ARVERT.f90#43 CALL STONUM(FIELD(K),ILEN_FLD,FNUMX,IMIT) ! 0 #45 IF ( IMIT.EQ.-1 ) THEN #49 CALL STONUM(FIELD(K+1),ILEN_FLD,FNUMY,IMIT) ! 0 #51 IF ( IMIT.EQ.-1 ) THEN AVETIM.f90#69 CALL STONUM(KOPT,8,AVENUM,IMIT) ! 6 #71 IF ( IMIT.EQ.-1 ) & #74 IF ( (MOD(24,INT(AVENUM)).EQ.0 .AND. IMIT.EQ.1) ) THEN COUNIT.f90#46 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #48 IF ( IMIT.NE.1 ) THEN DAYRNG.f90#62 CALL STONUM(BEGRNG,8,FNUM,IMIT) ! 0 #64 IF ( IMIT.EQ.-1 ) THEN #70 IF ( JDAY.GE.1 .AND. JDAY.LE.366 .AND. IMIT.EQ.1 ) THEN ! 0 #84 CALL STONUM(BEGRNG,8,FNUM,IMIT) ! 0 #86 IF ( IMIT.EQ.-1 ) THEN #92 CALL STONUM(ENDRNG,8,FNUM,IMIT) ! 0 #94 IF ( IMIT.EQ.-1 ) THEN #117 CALL STONUM(CMN1,8,FNUM,IMIT) ! 0 #119 IF ( IMIT.EQ.-1 ) THEN #125 CALL STONUM(CDY1,8,FNUM,IMIT) ! 0 #127 IF ( IMIT.EQ.-1 ) THEN #148 CALL STONUM(CMN1,8,FNUM,IMIT) ! 0 #150 IF ( IMIT.EQ.-1 ) THEN #156 CALL STONUM(CDY1,8,FNUM,IMIT) ! 0 #158 IF ( IMIT.EQ.-1 ) THEN #164 41 CALL STONUM(CMN2,8,FNUM,IMIT) ! 0 #166 IF ( IMIT.EQ.-1 ) THEN #172 CALL STONUM(CDY2,8,FNUM,IMIT) ! 0 #174 IF ( IMIT.EQ.-1 ) THEN DISCAR.f90#78 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #80 IF ( IMIT.EQ.-1 ) THEN #86 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #88 IF ( IMIT.EQ.-1 ) THEN #96 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #98 IF ( IMIT.EQ.-1 ) THEN #105 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #107 IF ( IMIT.EQ.-1 ) THEN #114 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #116 IF ( IMIT.EQ.-1 ) THEN #124 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #126 IF ( IMIT.EQ.-1 ) THEN #133 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #135 IF ( IMIT.EQ.-1 ) THEN #143 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #145 IF ( IMIT.EQ.-1 ) THEN #151 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #153 IF ( IMIT.EQ.-1 ) THEN DISPOL.f90#82 CALL STONUM(FIELD(4),ILEN_FLD,RANGE,IMIT) #84 IF ( IMIT.EQ.-1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #86 CALL STONUM(FIELD(5),ILEN_FLD,DIRECT,IMIT) #88 IF ( IMIT.EQ.-1 ) THEN #98 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #100 IF ( IMIT.EQ.-1 ) THEN #107 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #109 IF ( IMIT.EQ.-1 ) THEN #116 CALL STONUM(FIELD(8),ILEN_FLD,FNUM,IMIT) ! 0 #118 IF ( IMIT.EQ.-1 ) THEN #126 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #128 IF ( IMIT.EQ.-1 ) THEN #135 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #137 IF ( IMIT.EQ.-1 ) THEN #145 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #147 IF ( IMIT.EQ.-1 ) THEN #153 CALL STONUM(FIELD(8),ILEN_FLD,FNUM,IMIT) ! 0 #155 IF ( IMIT.EQ.-1 ) THEN DPUNIT.f90#47 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #49 IF ( IMIT.NE.1 ) THEN DSFILL.f90#40 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 9 #42 IF ( IMIT.EQ.-1 ) THEN #46 DO J = 1 , IMIT ! 9 #65 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 324 #67 IF ( IMIT.EQ.-1 ) THEN #71 DO J = 1 , IMIT ! 324 #93 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 324 #95 IF ( IMIT.EQ.-1 ) THEN #99 DO J = 1 , IMIT ! 324 #120 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 324 #122 IF ( IMIT.EQ.-1 ) THEN #126 DO J = 1 , IMIT ! 324 #144 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 324 #146 IF ( IMIT.EQ.-1 ) THEN #150 DO J = 1 , IMIT ! 324 EDECAY.f90#41 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #43 IF ( IMIT.NE.1 ) THEN EFFILL.f90#34 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 #36 IF ( IMIT.EQ.-1 ) THEN #40 DO J = 1 , IMIT ! 0 EMUNIT.f90#45 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #47 IF ( IMIT.NE.1 ) THEN EVCART.f90#62 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #64 IF ( IMIT.EQ.-1 ) THEN #70 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #72 IF ( IMIT.EQ.-1 ) THEN #78 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #80 IF ( IMIT.EQ.-1 ) THEN #86 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #88 IF ( IMIT.EQ.-1 ) THEN #94 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #96 IF ( IMIT.EQ.-1 ) THEN EVLOC.f90#60 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #62 IF ( IMIT.EQ.-1 ) THEN #70 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) #72 IF ( IMIT.EQ.-1 ) THEN #79 CALL STONUM(FIELD(8),ILEN_FLD,FNUM,IMIT) ! 0 #81 IF ( IMIT.EQ.-1 ) THEN #86 CALL STONUM(FIELD(9),ILEN_FLD,FNUM,IMIT) ! 0 #88 IF ( IMIT.EQ.-1 ) THEN #99 CALL STONUM(FIELD(10),ILEN_FLD,FNUM,IMIT) ! 0 #101 IF ( IMIT.EQ.-1 ) THEN EVPER.f90#79 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #81 IF ( IMIT.EQ.-1 ) THEN #115 CALL STODBL(FIELD(6),ILEN_FLD,DNUM,IMIT) ! 0 #117 IF ( IMIT.EQ.-1 ) THEN FLAGDF.f90#38 CALL STONUM(FIELD(3),ILEN_FLD,ZFLG,IMIT) ! 0 #40 IF ( IMIT.EQ.-1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #41 IF ( ZFLG.GE.0.0 .AND. IMIT.EQ.1 ) THEN #48 ELSEIF ( IMIT.NE.1 ) THEN FLGHGT.f90#56 CALL STONUM(FIELD(ISC),ILEN_FLD,FNUM,IMIT) ! 0 #58 IF ( IMIT.EQ.-1 ) THEN #67 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #69 IF ( IMIT.EQ.-1 ) THEN #73 DO J = 1 , IMIT ! 0 GASDEP.f90#70 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #72 IF ( IMIT.EQ.-1 ) THEN #81 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #83 IF ( IMIT.EQ.-1 ) THEN #92 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) #94 IF ( IMIT.EQ.-1 ) THEN #103 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) #105 IF ( IMIT.EQ.-1 ) THEN #136 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #138 IF ( IMIT.EQ.-1 ) THEN #147 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #149 IF ( IMIT.EQ.-1 ) THEN #158 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) #160 IF ( IMIT.EQ.-1 ) THEN #169 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) #171 IF ( IMIT.EQ.-1 ) THEN GDDEF.f90#47 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #49 IF ( IMIT.EQ.-1 ) THEN #57 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #59 IF ( IMIT.EQ.-1 ) THEN #67 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #69 IF ( IMIT.EQ.-1 ) THEN GDLAND.f90#49 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #51 IF ( IMIT.EQ.-1 ) THEN #55 DO J = 1 , IMIT ! 0 GDSEAS.f90#48 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #50 IF ( IMIT.EQ.-1 ) THEN #54 DO J = 1 , IMIT ! 0 GENCAR.f90#60 CALL STONUM(FIELD(ISC+K-1),ILEN_FLD,TEMPP(K),IMIT) ! 0 #62 IF ( IMIT.EQ.-1 ) THEN GENPOL.f90#59 CALL STONUM(FIELD(ISC+K-1),ILEN_FLD,TEMPP(K),IMIT) ! 9 #61 IF ( IMIT.EQ.-1 ) THEN GVSUBD.f90#47 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #49 IF ( IMIT.EQ.-1 ) THEN HILHGT.f90#51 CALL STONUM(FIELD(ISC),ILEN_FLD,FNUM,IMIT) ! 0 #53 IF ( IMIT.EQ.-1 ) THEN #62 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #64 IF ( IMIT.EQ.-1 ) THEN #68 DO J = 1 , IMIT ! 0 HQREAD.f90#67 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #69 IF ( IMIT.NE.1 ) & #72 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #74 IF ( IMIT.NE.1 ) & #77 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #79 IF ( IMIT.NE.1 ) & #82 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) #84 IF ( IMIT.NE.1 ) & #90 CALL STONUM(FIELD(8),ILEN_FLD,EV_HRQS(IS,IHR),IMIT) ! 0 #91 IF ( IMIT.NE.1 ) & #100 CALL STONUM(FIELD(9),ILEN_FLD,EV_HRTS(IS,IHR),IMIT) ! 0 #101 IF ( IMIT.NE.1 ) & #104 CALL STONUM(FIELD(10),ILEN_FLD,EV_HRVS(IS,IHR),IMIT) #105 IF ( IMIT.NE.1 ) & HRQEXT.f90#62 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #64 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #66 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #68 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #70 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #72 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #74 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) #76 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #81 CALL STONUM(FIELD(8),ILEN_FLD,HRQS,IMIT) ! 0 #82 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #91 CALL STONUM(FIELD(9),ILEN_FLD,HRTS,IMIT) ! 0 #92 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #94 CALL STONUM(FIELD(10),ILEN_FLD,HRVS,IMIT) #95 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) INPPDM.f90#49 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 #51 IF ( IMIT.EQ.-1 ) THEN #55 DO J = 1 , IMIT ! 0 #89 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 #91 IF ( IMIT.EQ.-1 ) THEN #95 DO J = 1 , IMIT ! 0 INPPDN.f90#49 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 #51 IF ( IMIT.EQ.-1 ) THEN #58 DO J = 1 , IMIT #92 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 #94 IF ( IMIT.NE.1 ) THEN #101 DO J = 1 , IMIT INPPHI.f90#47 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 #49 IF ( IMIT.EQ.-1 ) THEN #56 DO J = 1 , IMIT #90 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 #92 IF ( IMIT.EQ.-1 ) THEN #99 DO J = 1 , IMIT MAIN1.f90#773 INTEGER :: IMIT , INUM , IDUM , INDAVE , INDGRP , INDVAL , ISC , & MEOPEN.f90#94 CALL STONUM(CUSI,8,FNUM,IMIT) ! 0 #95 IF ( IMIT.EQ.1 ) THEN #100 CALL STONUM(CSSI,8,FNUM,IMIT) ! 0 #101 IF ( IMIT.EQ.1 ) THEN #106 CALL STONUM(COSI,8,FNUM,IMIT) ! 0 #107 IF ( IMIT.EQ.1 ) THEN MEREAD.f90#79 CALL STONUM(CUSI,8,FNUM,IMIT) ! 0 #80 IF ( IMIT.EQ.1 ) THEN #85 CALL STONUM(CSSI,8,FNUM,IMIT) ! 0 #86 IF ( IMIT.EQ.1 ) THEN METEXT.f90#131 CALL STONUM(CUSI,8,FNUM,IMIT) ! 0 #132 IF ( IMIT.EQ.1 ) THEN #137 CALL STONUM(CSSI,8,FNUM,IMIT) ! 0 #138 IF ( IMIT.EQ.1 ) THEN METH_2.f90#62 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #64 IF ( IMIT.EQ.-1 ) THEN #72 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #74 IF ( IMIT.EQ.-1 ) THEN #110 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #112 IF ( IMIT.EQ.-1 ) THEN #120 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #122 IF ( IMIT.EQ.-1 ) THEN NO2EQ.f90#41 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #43 IF ( IMIT.NE.1 ) THEN NO2RAT.f90#60 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #62 IF ( IMIT.EQ.-1 ) THEN #90 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #92 IF ( IMIT.EQ.-1 ) THEN O3VAL.f90#41 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #43 IF ( IMIT.NE.1 ) THEN ONDATA.f90#49 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #51 IF ( IMIT.NE.1 ) THEN #57 199 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #59 IF ( IMIT.NE.1 ) THEN #74 CALL STONUM(FIELD(6),ILEN_FLD,ONX,IMIT) ! 0 #75 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #76 CALL STONUM(FIELD(7),ILEN_FLD,ONY,IMIT) #77 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) OUDALY.f90#58 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) #59 IF ( IMIT.NE.1 ) THEN OUEVAL.f90#76 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #78 IF ( IMIT.NE.1 ) THEN OUHIGH.f90#86 CALL STONUM(HPRD,8,FNUM,IMIT) ! 0 #87 IF ( IMIT.NE.1 ) THEN #103 CALL STONUM(LPRD,8,FNUM,IMIT) ! 0 #104 IF ( IMIT.NE.1 ) THEN #111 114 CALL STONUM(HPRD,8,FNUM,IMIT) ! 0 #112 IF ( IMIT.NE.1 ) THEN OUMXFL.f90#57 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #58 IF ( IMIT.NE.1 ) THEN #110 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #112 IF ( IMIT.NE.1 ) THEN #130 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #132 IF ( IMIT.NE.1 ) THEN OUMXVL.f90#60 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #61 IF ( IMIT.NE.1 ) THEN #86 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 #87 IF ( IMIT.NE.1 ) THEN OUPLOT.f90#74 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #75 IF ( IMIT.NE.1 ) THEN #158 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #160 IF ( IMIT.NE.1 ) THEN OUPOST.f90#83 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #84 IF ( IMIT.NE.1 ) THEN #157 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #159 IF ( IMIT.NE.1 ) THEN OURANK.f90#51 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #52 IF ( IMIT.NE.1 ) THEN #92 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #94 IF ( IMIT.NE.1 ) THEN #124 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #126 IF ( IMIT.NE.1 ) THEN OUSEAS.f90#77 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #79 IF ( IMIT.NE.1 ) THEN OUTOXX.f90#58 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #59 IF ( IMIT.NE.1 ) THEN #99 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #101 IF ( IMIT.NE.1 ) THEN #119 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #121 IF ( IMIT.NE.1 ) THEN PERPLT.f90#83 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #85 IF ( IMIT.NE.1 ) THEN PERPST.f90#91 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #93 IF ( IMIT.NE.1 ) THEN POLDST.f90#46 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 12 #48 IF ( IMIT.EQ.-1 ) THEN POLORG.f90#66 CALL STONUM(FIELD(ISC),ILEN_FLD,XINT,IMIT) ! 0 #68 IF ( IMIT.EQ.-1 ) THEN #73 CALL STONUM(FIELD(ISC+1),ILEN_FLD,YINT,IMIT) ! 0 #75 IF ( IMIT.EQ.-1 ) THEN PRBASE.f90#36 CALL STONUM(FIELD(3),ILEN_FLD,ZBASE,IMIT) ! 3 #38 IF ( IMIT.EQ.-1 ) THEN #48 IF ( ZBASE.LT.0.0 .AND. IMIT.EQ.1 ) THEN ! 3 #51 ELSEIF ( IMIT.NE.1 ) THEN PREGENCAR.f90#57 CALL STONUM(FIELD(ISC+K-1),ILEN_FLD,TEMPP(K),IMIT) ! 0 #59 IF ( IMIT.EQ.-1 ) THEN PREGENPOL.f90#56 CALL STONUM(FIELD(ISC+K-1),ILEN_FLD,TEMPP(K),IMIT) ! 9 #58 IF ( IMIT.EQ.-1 ) THEN PREPOLDST.f90#45 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 12 #47 IF ( IMIT.EQ.-1 ) RECERR = .TRUE. PRERADRNG.f90#45 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #47 IF ( IMIT.EQ.-1 ) RECERR = .TRUE. PRESET.f90#196 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 #198 IF ( IMIT.NE.1 ) GOTO 999 PREXYPNTS.f90#45 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #47 IF ( IMIT.EQ.-1 ) RECERR = .TRUE. #68 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #70 IF ( IMIT.EQ.-1 ) RECERR = .TRUE. RADRNG.f90#46 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #48 IF ( IMIT.EQ.-1 ) THEN SAVEFL.f90#45 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #48 IF ( IMIT.EQ.-1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #52 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #55 IF ( IMIT.EQ.-1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) SCIMIT.f90#38 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #40 IF ( IMIT.EQ.-1 ) THEN #50 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #52 IF ( IMIT.EQ.-1 ) THEN #62 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #64 IF ( IMIT.EQ.-1 ) THEN #71 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #73 IF ( IMIT.EQ.-1 ) THEN SET_WINDOW.f90#48 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 #50 IF ( IMIT.NE.1 ) GOTO 999 SFDATA.f90#54 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 3 #56 IF ( IMIT.NE.1 ) THEN #62 199 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 #64 IF ( IMIT.NE.1 ) THEN #85 CALL STONUM(FIELD(6),ILEN_FLD,SFX,IMIT) ! 0 #86 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #87 CALL STONUM(FIELD(7),ILEN_FLD,SFY,IMIT) #88 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) SOLOCA.f90#71 CALL STONUM(FIELD(5),ILEN_FLD,AXS(ISRC),IMIT) ! 27 #73 IF ( IMIT.NE.1 ) & #75 CALL STONUM(FIELD(6),ILEN_FLD,AYS(ISRC),IMIT) #77 IF ( IMIT.NE.1 ) & #81 CALL STONUM(FIELD(7),ILEN_FLD,AZS(ISRC),IMIT) ! 27 #83 IF ( IMIT.NE.1 ) & SOPARM.f90#64 CALL STONUM(FIELD(I),ILEN_FLD,TEMP(I-3),IMIT) ! 117 #66 IF ( IMIT.NE.1 ) THEN STAEND.f90#46 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #48 IF ( IMIT.EQ.-1 ) THEN #53 198 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #55 IF ( IMIT.EQ.-1 ) THEN #60 298 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #62 IF ( IMIT.EQ.-1 ) THEN #67 398 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #69 IF ( IMIT.EQ.-1 ) THEN #74 498 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #76 IF ( IMIT.EQ.-1 ) THEN #81 598 CALL STONUM(FIELD(8),ILEN_FLD,FNUM,IMIT) ! 0 #83 IF ( IMIT.EQ.-1 ) THEN #121 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 3 #123 IF ( IMIT.EQ.-1 ) THEN #128 199 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 #130 IF ( IMIT.EQ.-1 ) THEN #135 299 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 3 #137 IF ( IMIT.EQ.-1 ) THEN #142 399 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 3 #144 IF ( IMIT.EQ.-1 ) THEN #149 499 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 3 #151 IF ( IMIT.EQ.-1 ) THEN #156 599 CALL STONUM(FIELD(8),ILEN_FLD,FNUM,IMIT) ! 3 #158 IF ( IMIT.EQ.-1 ) THEN #163 699 CALL STONUM(FIELD(9),ILEN_FLD,FNUM,IMIT) ! 3 #165 IF ( IMIT.EQ.-1 ) THEN #170 799 CALL STONUM(FIELD(10),ILEN_FLD,FNUM,IMIT) ! 3 #172 IF ( IMIT.EQ.-1 ) THEN TERHGT.f90#57 CALL STONUM(FIELD(ISC),ILEN_FLD,FNUM,IMIT) ! 0 #59 IF ( IMIT.EQ.-1 ) THEN #68 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #70 IF ( IMIT.EQ.-1 ) THEN #74 DO J = 1 , IMIT ! 0 TERLOC.f90#35 CALL STONUM(FIELD(3),ILEN_FLD,TGX0,IMIT) ! 0 #37 IF ( IMIT.EQ.-1 ) THEN #41 CALL STONUM(FIELD(4),ILEN_FLD,TGY0,IMIT) ! 0 #43 IF ( IMIT.EQ.-1 ) THEN TERRST.f90#49 CALL STONUM(INPFLD,3,FNUM,IMIT) UADATA.f90#54 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 3 #56 IF ( IMIT.NE.1 ) THEN #62 199 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 #64 IF ( IMIT.NE.1 ) THEN #85 CALL STONUM(FIELD(6),ILEN_FLD,UAX,IMIT) ! 0 #86 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #87 CALL STONUM(FIELD(7),ILEN_FLD,UAY,IMIT) #88 IF ( IMIT.NE.1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) URBOPT.f90#51 CALL STONUM(FIELD(3),ILEN_FLD,URBPOP,IMIT) ! 0 #53 IF ( IMIT.EQ.-1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) #64 CALL STONUM(FIELD(5),ILEN_FLD,URBZ0,IMIT) ! 0 #66 IF ( IMIT.EQ.-1 ) CALL ERRHDL(PATH,MODNAM,'E','208',KEYWRD) WDROTA.f90#35 CALL STONUM(FIELD(3),ILEN_FLD,ROTANG,IMIT) ! 0 #36 IF ( IMIT.NE.1 ) THEN WSCATS.f90#38 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #39 IF ( IMIT.NE.1 ) THEN XYPNTS.f90#49 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #51 IF ( IMIT.EQ.-1 ) THEN #89 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #91 IF ( IMIT.EQ.-1 ) 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