ASNGRP.f90#2
      SUBROUTINE ASNGRP(INID,LOWID,HIGID,INGRP)
#20
      CHARACTER LOWID*8 , HIGID*8 , INID*8 , IID1*8 , LID1*8 , HID1*8 , &
#33
      CALL SETIDG(HIGID,HID1,IH,HID2)
HREMIS.f90#30
      CHARACTER*8 LOWID , HIGID , LID1 , LID2 , HID1 , HID2 , TEMPID
#75
     &                  HIGID)
#78
            CALL SETIDG(HIGID,HID1,IH,HID2)
#86
               CALL ASNGRP(SRCID(K),LOWID,HIGID,INGRP)                  !      0
OLMGRP.f90#27
      CHARACTER*8 LOWID , HIGID , LID1 , LID2 , HID1 , HID2 , TEMPID
#75
     &                  HIGID)
#78
            CALL SETIDG(HIGID,HID1,IH,HID2)
#86
               CALL ASNGRP(SRCID(K),LOWID,HIGID,INGRP)                  !      0
SOGRP.f90#27
      CHARACTER*8 LOWID , HIGID , LID1 , LID2 , HID1 , HID2 , TEMPID
#74
     &                  HIGID)
#77
            CALL SETIDG(HIGID,HID1,IH,HID2)
#85
               CALL ASNGRP(SRCID(K),LOWID,HIGID,INGRP)                  !      0
URBANS.f90#27
      CHARACTER*8 LOWID , HIGID , LID1 , LID2 , HID1 , HID2
#44
     &               HIGID)
#47
         CALL SETIDG(HIGID,HID1,IH,HID2)
#54
            CALL ASNGRP(SRCID(K),LOWID,HIGID,INGRP)                     !      0

HyperKWIC - Version 1.00DD executed at 20:00 on  1 Mar 2018  | Personal or Academic or Evaluation User | Free for Non-Commercial, Non-Government Use