ASNGRP.f90#2 SUBROUTINE ASNGRP(INID,LOWID,HIGID,INGRP) #20 CHARACTER LOWID*8 , HIGID*8 , INID*8 , IID1*8 , LID1*8 , HID1*8 , & #31 CALL SETIDG(INID,IID1,IN,IID2) SETIDG.f90#2 SUBROUTINE SETIDG(INID,IDCHR1,IDNUM,IDCHR2) #35 CHARACTER INID*8 , IDCHR1*8 , IDCHR2*8 , CHKI #50 CHKI = INID(I:I) ! 0 #61 CHKI = INID(I:I) #64 IDCHR1 = INID(ISTR:I) ! 0 #69 CHKI = INID(I:I) ! 0 #76 NUMID = INID(ISTR:I) ! 0 #81 CHKI = INID(I:I) ! 0 #88 IDCHR2 = INID(ISTR:I) ! 0 #93 CHKI = INID(I:I) ! 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