FLGHGT.f90#40 IF ( FIELD(I).EQ.'FLAG' ) ISC = I + 1 ! 0 #44 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #49 ELSEIF ( IFC.EQ.ISC ) THEN #56 CALL STONUM(FIELD(ISC),ILEN_FLD,FNUM,IMIT) ! 0 #66 DO I = ISC + 1 , IFC GENCAR.f90#37 IF ( FIELD(I).EQ.'XYINC' ) ISC = I + 1 ! 0 #41 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #46 ELSEIF ( IFC.GT.ISC+5 ) THEN #51 ELSEIF ( IFC.LT.ISC+5 ) THEN #60 CALL STONUM(FIELD(ISC+K-1),ILEN_FLD,TEMPP(K),IMIT) ! 0 GENPOL.f90#36 IF ( FIELD(I).EQ.'GDIR' ) ISC = I + 1 ! 18 #40 IF ( IFC.EQ.ISC-1 ) THEN ! 3 #45 ELSEIF ( IFC.LT.ISC+2 ) THEN #50 ELSEIF ( IFC.GT.ISC+2 ) THEN #59 CALL STONUM(FIELD(ISC+K-1),ILEN_FLD,TEMPP(K),IMIT) ! 9 HILHGT.f90#35 IF ( FIELD(I).EQ.'HILL' ) ISC = I + 1 ! 0 #39 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #44 ELSEIF ( IFC.EQ.ISC ) THEN #51 CALL STONUM(FIELD(ISC),ILEN_FLD,FNUM,IMIT) ! 0 #61 DO I = ISC + 1 , IFC MAIN1.f90#773 INTEGER :: IMIT , INUM , IDUM , INDAVE , INDGRP , INDVAL , ISC , & POLDST.f90#32 IF ( FIELD(I).EQ.'DIST' ) ISC = I + 1 ! 21 #36 IF ( IFC.EQ.ISC-1 ) THEN ! 3 #45 DO I = ISC , IFC POLORG.f90#35 IF ( FIELD(I).EQ.'ORIG' ) ISC = I + 1 ! 12 #39 IF ( IFC.EQ.ISC-1 ) THEN ! 3 #44 ELSEIF ( IFC.GT.ISC+1 ) THEN #51 IF ( IFC.EQ.ISC ) THEN ! 3 #53 SOID = FIELD(ISC) ! 3 #66 CALL STONUM(FIELD(ISC),ILEN_FLD,XINT,IMIT) ! 0 #73 CALL STONUM(FIELD(ISC+1),ILEN_FLD,YINT,IMIT) ! 0 PREGENCAR.f90#37 IF ( FIELD(I).EQ.'XYINC' ) ISC = I + 1 ! 0 #41 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #45 ELSEIF ( IFC.GT.ISC+5 ) THEN #49 ELSEIF ( IFC.LT.ISC+5 ) THEN #57 CALL STONUM(FIELD(ISC+K-1),ILEN_FLD,TEMPP(K),IMIT) ! 0 PREGENPOL.f90#36 IF ( FIELD(I).EQ.'GDIR' ) ISC = I + 1 ! 18 #40 IF ( IFC.EQ.ISC-1 ) THEN ! 3 #44 ELSEIF ( IFC.LT.ISC+2 ) THEN #48 ELSEIF ( IFC.GT.ISC+2 ) THEN #56 CALL STONUM(FIELD(ISC+K-1),ILEN_FLD,TEMPP(K),IMIT) ! 9 PREPOLDST.f90#32 IF ( FIELD(I).EQ.'DIST' ) ISC = I + 1 ! 21 #36 IF ( IFC.EQ.ISC-1 ) THEN ! 3 #44 DO I = ISC , IFC PRERADRNG.f90#32 IF ( FIELD(I).EQ.'DDIR' ) ISC = I + 1 ! 0 #36 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #44 DO I = ISC , IFC PREXYPNTS.f90#33 IF ( FIELD(I).EQ.'XPNTS' ) ISC = I + 1 ! 0 #37 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #44 DO I = ISC , IFC #56 IF ( FIELD(I).EQ.'YPNTS' ) ISC = I + 1 ! 0 #60 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #67 DO I = ISC , IFC RADRNG.f90#32 IF ( FIELD(I).EQ.'DDIR' ) ISC = I + 1 ! 0 #36 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #45 DO I = ISC , IFC TERHGT.f90#41 IF ( FIELD(I).EQ.'ELEV' ) ISC = I + 1 ! 0 #45 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #50 ELSEIF ( IFC.EQ.ISC ) THEN #57 CALL STONUM(FIELD(ISC),ILEN_FLD,FNUM,IMIT) ! 0 #67 DO I = ISC + 1 , IFC XYPNTS.f90#36 IF ( FIELD(I).EQ.'XPNTS' ) ISC = I + 1 ! 0 #40 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #48 DO I = ISC , IFC #75 IF ( FIELD(I).EQ.'YPNTS' ) ISC = I + 1 ! 0 #79 IF ( IFC.EQ.ISC-1 ) THEN ! 0 #88 DO I = ISC , IFC
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