FLGHGT.f90#46 CALL ERRHDL(PATH,MODNAM,'E','223',KTYPE) ! 0 GENCAR.f90#48 CALL ERRHDL(PATH,MODNAM,'E','202',KTYPE) ! 0 #53 CALL ERRHDL(PATH,MODNAM,'E','201',KTYPE) ! 0 GENPOL.f90#47 CALL ERRHDL(PATH,MODNAM,'E','201',KTYPE) ! 0 #52 CALL ERRHDL(PATH,MODNAM,'E','202',KTYPE) ! 0 HILHGT.f90#41 CALL ERRHDL(PATH,MODNAM,'E','223',KTYPE) ! 0 MAIN1.f90#192 & KTYPE*5 , RUNST*1 POLORG.f90#46 CALL ERRHDL(PATH,MODNAM,'E','202',KTYPE) ! 0 PRECART.f90#39 KTYPE = FIELD(3) #41 KTYPE = FIELD(4) ! 0 #44 KTYPE = FIELD(4) #53 IF ( KTYPE.EQ.'STA' ) THEN ! 0 #62 ELSEIF ( KTYPE.EQ.'XYINC' ) THEN #65 ELSEIF ( KTYPE.EQ.'XPNTS' .OR. KTYPE.EQ.'YPNTS' ) THEN #68 ELSEIF ( KTYPE.EQ.'END' ) THEN #74 ELSEIF ( KTYPE.NE.'ELEV' .AND. KTYPE.NE.'FLAG' .AND. & #75 & KTYPE.NE.'HILL' ) THEN PREPOLR.f90#40 KTYPE = FIELD(3) #42 KTYPE = FIELD(4) ! 3 #45 KTYPE = FIELD(4) #55 IF ( KTYPE.EQ.'STA' ) THEN ! 15 #62 ELSEIF ( KTYPE.EQ.'DIST' ) THEN #65 ELSEIF ( KTYPE.EQ.'GDIR' ) THEN #67 ELSEIF ( KTYPE.EQ.'DDIR' ) THEN #69 ELSEIF ( KTYPE.EQ.'END' ) THEN #76 ELSEIF ( KTYPE.NE.'ELEV' .AND. KTYPE.NE.'FLAG' .AND. & #77 & KTYPE.NE.'HILL' .AND. KTYPE.NE.'ORIG' ) THEN PREXYPNTS.f90#30 IF ( KTYPE.EQ.'XPNTS' ) THEN #53 ELSEIF ( KTYPE.EQ.'YPNTS' ) THEN RECART.f90#46 KTYPE = FIELD(3) #48 KTYPE = FIELD(4) ! 0 #51 KTYPE = FIELD(4) #73 IF ( KTYPE.EQ.'STA' ) THEN ! 0 #92 ELSEIF ( KTYPE.EQ.'XYINC' ) THEN #98 ELSEIF ( KTYPE.EQ.'XPNTS' .OR. KTYPE.EQ.'YPNTS' ) THEN #104 ELSEIF ( KTYPE.EQ.'ELEV' ) THEN #108 ELSEIF ( KTYPE.EQ.'HILL' ) THEN #112 ELSEIF ( KTYPE.EQ.'FLAG' ) THEN #116 ELSEIF ( KTYPE.EQ.'END' ) THEN REPOLR.f90#44 KTYPE = FIELD(3) #46 KTYPE = FIELD(4) ! 3 #49 KTYPE = FIELD(4) #73 IF ( KTYPE.EQ.'STA' ) THEN ! 15 #90 ELSEIF ( KTYPE.EQ.'ORIG' ) THEN #96 ELSEIF ( KTYPE.EQ.'DIST' ) THEN #100 ELSEIF ( KTYPE.EQ.'GDIR' ) THEN #106 ELSEIF ( KTYPE.EQ.'DDIR' ) THEN #112 ELSEIF ( KTYPE.EQ.'ELEV' ) THEN #116 ELSEIF ( KTYPE.EQ.'HILL' ) THEN #120 ELSEIF ( KTYPE.EQ.'FLAG' ) THEN #124 ELSEIF ( KTYPE.EQ.'END' ) THEN TERHGT.f90#47 CALL ERRHDL(PATH,MODNAM,'E','223',KTYPE) ! 0 XYPNTS.f90#33 IF ( KTYPE.EQ.'XPNTS' ) THEN #72 ELSEIF ( KTYPE.EQ.'YPNTS' ) THEN
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