MAIN1.f90#433 CHARACTER :: NETID*8 , NETIDT*8 , PNETID*8='' , NTID*8 , NTTYP*8 , & POLDST.f90#59 & CALL ERRHDL(PATH,MODNAM,'W','250',NETIDT) PRECART.f90#32 NETIDT = FIELD(3) ! 0 #34 & (NETIDT.EQ.' ' .OR. NETIDT.EQ.'XYINC' .OR. & #35 & NETIDT.EQ.'XPNTS' .OR. NETIDT.EQ.'YPNTS' .OR. & #36 & NETIDT.EQ.'ELEV' .OR. NETIDT.EQ.'HILL' .OR. & #37 & NETIDT.EQ.'FLAG' .OR. NETIDT.EQ.'END') ) THEN #38 NETIDT = PNETID ! 0 #40 ELSEIF ( .NOT.NEWID .AND. NETIDT.EQ.PNETID ) THEN #42 ELSEIF ( NEWID .AND. NETIDT.NE.' ' ) THEN #82 PNETID = NETIDT ! 0 PREPOLR.f90#33 NETIDT = FIELD(3) ! 15 #34 IF ( .NOT.NEWID .AND. (NETIDT.EQ.' ' .OR. NETIDT.EQ.'ORIG' .OR.& #35 & NETIDT.EQ.'DIST' .OR. NETIDT.EQ.'DDIR' .OR. & #36 & NETIDT.EQ.'ELEV' .OR. NETIDT.EQ.'HILL' .OR. & #37 & NETIDT.EQ.'FLAG' .OR. NETIDT.EQ.'GDIR' .OR. NETIDT.EQ.'END') & #39 NETIDT = PNETID ! 9 #41 ELSEIF ( .NOT.NEWID .AND. NETIDT.EQ.PNETID ) THEN #43 ELSEIF ( NEWID .AND. NETIDT.NE.' ' ) THEN #84 PNETID = NETIDT ! 15 RADRNG.f90#65 & CALL ERRHDL(PATH,MODNAM,'W','250',NETIDT) RECART.f90#39 NETIDT = FIELD(3) ! 0 #41 & (NETIDT.EQ.' ' .OR. NETIDT.EQ.'XYINC' .OR. & #42 & NETIDT.EQ.'XPNTS' .OR. NETIDT.EQ.'YPNTS' .OR. & #43 & NETIDT.EQ.'ELEV' .OR. NETIDT.EQ.'HILL' .OR. & #44 & NETIDT.EQ.'FLAG' .OR. NETIDT.EQ.'END') ) THEN #45 NETIDT = PNETID ! 0 #47 ELSEIF ( .NOT.NEWID .AND. NETIDT.EQ.PNETID ) THEN #49 ELSEIF ( NEWID .AND. NETIDT.NE.' ' ) THEN #94 IF ( IXYSET.NE.0 ) CALL ERRHDL(PATH,MODNAM,'E','180',NETIDT) ! 0 #100 IF ( INCSET.NE.0 ) CALL ERRHDL(PATH,MODNAM,'E','180',NETIDT) ! 0 #130 & CALL ERRHDL(PATH,MODNAM,'E','212',NETIDT) #134 CALL ERRHDL(PATH,MODNAM,'W','214',NETIDT) ! 0 #138 CALL ERRHDL(PATH,MODNAM,'W','213',NETIDT) ! 0 #148 CALL ERRHDL(PATH,MODNAM,'W','216',NETIDT) ! 0 #151 CALL ERRHDL(PATH,MODNAM,'W','215',NETIDT) ! 0 #174 CALL ERRHDL(PATH,MODNAM,'E','170',NETIDT) ! 0 #180 PNETID = NETIDT ! 0 REPOLR.f90#37 NETIDT = FIELD(3) ! 15 #38 IF ( .NOT.NEWID .AND. (NETIDT.EQ.' ' .OR. NETIDT.EQ.'ORIG' .OR.& #39 & NETIDT.EQ.'DIST' .OR. NETIDT.EQ.'DDIR' .OR. & #40 & NETIDT.EQ.'ELEV' .OR. NETIDT.EQ.'HILL' .OR. & #41 & NETIDT.EQ.'FLAG' .OR. NETIDT.EQ.'GDIR' .OR. NETIDT.EQ.'END') & #43 NETIDT = PNETID ! 9 #45 ELSEIF ( .NOT.NEWID .AND. NETIDT.EQ.PNETID ) THEN #47 ELSEIF ( NEWID .AND. NETIDT.NE.' ' ) THEN #92 IF ( IORSET.NE.0 ) CALL ERRHDL(PATH,MODNAM,'E','160',NETIDT) ! 3 #102 IF ( IDRSET.NE.0 ) CALL ERRHDL(PATH,MODNAM,'E','180',NETIDT) ! 3 #108 IF ( IGRSET.NE.0 ) CALL ERRHDL(PATH,MODNAM,'E','180',NETIDT) ! 0 #138 CALL ERRHDL(PATH,MODNAM,'W','220',NETIDT) ! 0 #143 IF ( IXRSET.EQ.0 ) CALL ERRHDL(PATH,MODNAM,'E','221',NETIDT) ! 3 #146 & CALL ERRHDL(PATH,MODNAM,'E','222',NETIDT) #150 CALL ERRHDL(PATH,MODNAM,'W','214',NETIDT) ! 0 #154 CALL ERRHDL(PATH,MODNAM,'W','213',NETIDT) ! 0 #164 CALL ERRHDL(PATH,MODNAM,'W','216',NETIDT) ! 0 #167 CALL ERRHDL(PATH,MODNAM,'W','215',NETIDT) ! 0 #190 CALL ERRHDL(PATH,MODNAM,'E','170',NETIDT) ! 0 #196 PNETID = NETIDT ! 15 SETCAR.f90#68 NTID(INNET) = NETIDT #128 NETID(I) = NETIDT ! 0 SETPOL.f90#72 NTID(INNET) = NETIDT #132 NETID(I) = NETIDT ! 432 XYPNTS.f90#61 & CALL ERRHDL(PATH,MODNAM,'W','250',NETIDT) #101 & CALL ERRHDL(PATH,MODNAM,'W','250',NETIDT)
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