COUNIT.f90#46 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #53 EMIFAC(1) = FNUM ! 0 DAYRNG.f90#62 CALL STONUM(BEGRNG,8,FNUM,IMIT) ! 0 #68 JDAY = NINT(FNUM) ! 0 #84 CALL STONUM(BEGRNG,8,FNUM,IMIT) ! 0 #90 JDAYB = NINT(FNUM) ! 0 #92 CALL STONUM(ENDRNG,8,FNUM,IMIT) ! 0 #98 JDAYE = NINT(FNUM) ! 0 #117 CALL STONUM(CMN1,8,FNUM,IMIT) ! 0 #123 IMN = NINT(FNUM) ! 0 #125 CALL STONUM(CDY1,8,FNUM,IMIT) ! 0 #131 IDY = NINT(FNUM) ! 0 #148 CALL STONUM(CMN1,8,FNUM,IMIT) ! 0 #154 IMN1 = NINT(FNUM) ! 0 #156 CALL STONUM(CDY1,8,FNUM,IMIT) ! 0 #162 IDY1 = NINT(FNUM) ! 0 #164 41 CALL STONUM(CMN2,8,FNUM,IMIT) ! 0 #170 IMN2 = NINT(FNUM) ! 0 #172 CALL STONUM(CDY2,8,FNUM,IMIT) ! 0 #178 IDY2 = NINT(FNUM) ! 0 DISCAR.f90#78 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #83 AXR(I1+1) = FNUM ! 0 #86 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #91 AYR(I2+1) = FNUM ! 0 #96 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #101 AZELEV(I3+1) = FNUM ! 0 #105 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #110 AZHILL(I5+1) = FNUM ! 0 #114 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #119 AZFLAG(I4+1) = FNUM ! 0 #124 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #129 AZELEV(I3+1) = FNUM ! 0 #133 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #138 AZHILL(I5+1) = FNUM ! 0 #143 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #148 AZFLAG(I4+1) = FNUM ! 0 #151 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #156 AZFLAG(I4+1) = FNUM ! 0 DISPOL.f90#98 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #103 AZELEV(I3+1) = FNUM ! 0 #107 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #112 AZHILL(I5+1) = FNUM ! 0 #116 CALL STONUM(FIELD(8),ILEN_FLD,FNUM,IMIT) ! 0 #121 AZFLAG(I4+1) = FNUM ! 0 #126 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #131 AZELEV(I3+1) = FNUM ! 0 #135 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #140 AZHILL(I5+1) = FNUM ! 0 #145 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #150 AZFLAG(I4+1) = FNUM ! 0 #153 CALL STONUM(FIELD(8),ILEN_FLD,FNUM,IMIT) ! 0 #158 AZFLAG(I4+1) = FNUM ! 0 DPUNIT.f90#47 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #56 EMIFAC(I) = FNUM ! 0 #67 EMIFAC(I) = FNUM ! 0 DSFILL.f90#40 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 9 #50 ADSBH(ISET,ISDX) = FNUM ! 324 #52 IF ( FNUM.LT.0.0 ) & #65 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 324 #75 ADSBW(ISET,ISDX) = FNUM ! 324 #77 IF ( FNUM.LT.0.0 ) & #93 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 324 #103 ADSBL(ISET,ISDX) = FNUM ! 324 #105 IF ( FNUM.LT.0.0 ) & #120 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 324 #130 ADSXADJ(ISET,ISDX) = FNUM ! 324 #144 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 324 #154 ADSYADJ(ISET,ISDX) = FNUM ! 324 EDECAY.f90#41 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #49 HAFLIF = FNUM ! 0 #53 DECOEF = FNUM ! 0 EFFILL.f90#34 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 #44 QFACT(ISET,ISDX) = FNUM ! 0 #46 IF ( FNUM.LT.0.0 ) & EMUNIT.f90#45 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #52 EMIFAC(1) = FNUM ! 0 EVCART.f90#62 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #67 AXR(I1+1) = FNUM ! 0 #70 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #75 AYR(I2+1) = FNUM ! 0 #78 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #83 AZELEV(I3+1) = FNUM ! 0 #86 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #91 AZHILL(I5+1) = FNUM ! 0 #94 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #99 AZFLAG(I4+1) = FNUM ! 0 EVLOC.f90#60 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #65 SETAXR = FNUM ! 0 #70 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) #75 SETAYR = FNUM ! 0 #79 CALL STONUM(FIELD(8),ILEN_FLD,FNUM,IMIT) ! 0 #84 AZELEV(ISDX) = FNUM ! 0 #86 CALL STONUM(FIELD(9),ILEN_FLD,FNUM,IMIT) ! 0 #91 AZHILL(ISDX) = FNUM ! 0 #99 CALL STONUM(FIELD(10),ILEN_FLD,FNUM,IMIT) ! 0 #104 AZFLAG(ISDX) = FNUM ! 0 EVPER.f90#79 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #85 EVAPER(IEVENT) = NINT(FNUM) ! 0 FLGHGT.f90#56 CALL STONUM(FIELD(ISC),ILEN_FLD,FNUM,IMIT) ! 0 #62 ROW = FNUM ! 0 #67 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #77 ZFTMP2(ISET) = FNUM GASDEP.f90#70 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #74 ELSEIF ( FNUM.LE.0.0 ) THEN #78 PDIFF(ISDX) = FNUM ! 0 #81 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #85 ELSEIF ( FNUM.LE.0.0 ) THEN #89 PDIFFW(ISDX) = FNUM ! 0 #92 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) #96 ELSEIF ( FNUM.LE.0.0 ) THEN #100 RCLI(ISDX) = FNUM ! 0 #103 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) #107 ELSEIF ( FNUM.LE.0.0 ) THEN #111 HENRY(ISDX) = FNUM ! 0 #136 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #140 ELSEIF ( FNUM.LE.0.0 ) THEN #144 PDIFF(ISDX) = FNUM ! 0 #147 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #151 ELSEIF ( FNUM.LE.0.0 ) THEN #155 PDIFFW(ISDX) = FNUM ! 0 #158 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) #162 ELSEIF ( FNUM.LE.0.0 ) THEN #166 RCLI(ISDX) = FNUM ! 0 #169 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) #173 ELSEIF ( FNUM.LE.0.0 ) THEN #177 HENRY(ISDX) = FNUM ! 0 GDDEF.f90#47 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #54 FO = FNUM ! 0 #57 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #64 FSEAS2 = FNUM ! 0 #67 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #74 FSEAS5 = FNUM ! 0 GDLAND.f90#49 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #59 ILAND_NDX = NINT(FNUM) ! 0 GDSEAS.f90#48 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #58 ISEA_NDX = NINT(FNUM) ! 0 GVSUBD.f90#47 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #54 USERVD = FNUM ! 0 HILHGT.f90#51 CALL STONUM(FIELD(ISC),ILEN_FLD,FNUM,IMIT) ! 0 #57 ROW = FNUM ! 0 #62 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #72 ZHTMP2(ISET) = FNUM HQREAD.f90#67 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #68 IHYEAR = NINT(FNUM) #72 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #73 IHMON = NINT(FNUM) #77 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #78 IHDAY = NINT(FNUM) #82 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) #83 IHHOUR = NINT(FNUM) HRQEXT.f90#62 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #63 IHYEAR = NINT(FNUM) #66 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #67 IHMON = NINT(FNUM) #70 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #71 IHDAY = NINT(FNUM) #74 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) #75 IHHOUR = NINT(FNUM) INPPDM.f90#49 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 #59 APDIAM(ISET,ISDX) = FNUM ! 0 #89 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 #98 APDIAM(ISET,I) = FNUM ! 0 INPPDN.f90#49 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 #56 IF ( FNUM.LE.0.0 ) & #62 APDENS(ISET,ISDX) = FNUM ! 0 #92 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 #99 IF ( FNUM.LE.0.0 ) & #104 APDENS(ISET,I) = FNUM ! 0 INPPHI.f90#47 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 #54 IF ( FNUM.LT.0.0 .OR. FNUM.GT.1.0 ) & #60 APHI(ISET,ISDX) = FNUM ! 0 #90 CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 #97 IF ( FNUM.LT.0.0 .OR. FNUM.GT.1.0 ) & #102 APHI(ISET,I) = FNUM ! 0 MAIN1.f90#775 REAL :: FNUM , RNUM MEOPEN.f90#94 CALL STONUM(CUSI,8,FNUM,IMIT) ! 0 #96 IUSI = NINT(FNUM) ! 0 #100 CALL STONUM(CSSI,8,FNUM,IMIT) ! 0 #102 ISSI = NINT(FNUM) ! 0 #106 CALL STONUM(COSI,8,FNUM,IMIT) ! 0 #108 IOSI = NINT(FNUM) ! 0 MEREAD.f90#79 CALL STONUM(CUSI,8,FNUM,IMIT) ! 0 #81 JUSI = NINT(FNUM) ! 0 #85 CALL STONUM(CSSI,8,FNUM,IMIT) ! 0 #87 JSSI = NINT(FNUM) ! 0 METEXT.f90#131 CALL STONUM(CUSI,8,FNUM,IMIT) ! 0 #133 JUSI = NINT(FNUM) ! 0 #137 CALL STONUM(CSSI,8,FNUM,IMIT) ! 0 #139 JSSI = NINT(FNUM) ! 0 METH_2.f90#62 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #69 FINEMASS(ISDX) = FNUM ! 0 #72 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #79 APDIAM(1,ISDX) = FNUM ! 0 #110 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #117 FINEMASS(ISDX) = FNUM ! 0 #120 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #127 APDIAM(1,ISDX) = FNUM ! 0 NO2EQ.f90#41 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #49 NO2EQUIL = FNUM ! 0 NO2RAT.f90#60 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #67 IF ( FNUM.LT.0.0 .OR. FNUM.GT.1.0 ) & #70 ANO2_RATIO(ISDX) = FNUM #90 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #97 IF ( FNUM.LT.0.0 .OR. FNUM.GT.1.0 ) & #100 ANO2_RATIO(IING) = FNUM O3VAL.f90#41 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #49 O3BACK = FNUM ! 0 ONDATA.f90#49 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #55 IDSITE = INT(FNUM) ! 0 #57 199 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #63 IOYEAR = INT(FNUM) ! 0 OUDALY.f90#58 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) #64 IPRDT = NINT(FNUM) ! 0 OUEVAL.f90#76 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #84 IF ( FNUM.LE.25. ) THEN ! 0 #88 ELSEIF ( FNUM.GT.100 ) THEN #92 IELUNT(INDSRC) = INT(FNUM) #94 IELUNT(INDSRC) = INT(FNUM) ! 0 OUHIGH.f90#86 CALL STONUM(HPRD,8,FNUM,IMIT) ! 0 #92 IPRDT1 = NINT(FNUM) ! 0 #103 CALL STONUM(LPRD,8,FNUM,IMIT) ! 0 #109 IPRDT1 = NINT(FNUM) ! 0 #111 114 CALL STONUM(HPRD,8,FNUM,IMIT) ! 0 #117 IPRDT2 = NINT(FNUM) ! 0 OUMXFL.f90#57 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #63 IPRDT = NINT(FNUM) ! 0 #110 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #117 THRESH(INDGRP,INDAVE) = FNUM ! 0 #130 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #138 IF ( FNUM.LE.25. ) THEN ! 0 #142 ELSEIF ( FNUM.GT.100 ) THEN #146 IMXUNT(INDGRP,INDAVE) = NINT(FNUM) #148 IMXUNT(INDGRP,INDAVE) = NINT(FNUM) ! 0 OUMXVL.f90#60 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #66 IPRDT = NINT(FNUM) ! 0 #86 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 #92 INUM = NINT(FNUM) ! 3 OUPLOT.f90#74 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #80 IPRDT = NINT(FNUM) ! 0 #158 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #166 IF ( FNUM.LE.25. ) THEN ! 0 #170 ELSEIF ( FNUM.GT.100 ) THEN #174 IPLUNT(INDVAL,INDGRP,INDAVE) = NINT(FNUM) #176 IPLUNT(INDVAL,INDGRP,INDAVE) = NINT(FNUM) ! 0 OUPOST.f90#83 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #89 IPRDT = NINT(FNUM) ! 0 #157 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #165 IF ( FNUM.LE.25. ) THEN ! 0 #169 ELSEIF ( FNUM.GT.100 ) THEN #173 IPSUNT(INDGRP,INDAVE) = NINT(FNUM) #175 IPSUNT(INDGRP,INDAVE) = NINT(FNUM) ! 0 OURANK.f90#51 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #57 IPRDT = INT(FNUM) ! 0 #92 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #99 INUM = INT(FNUM) ! 0 #124 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #132 IF ( FNUM.LE.25. ) THEN ! 0 #136 ELSEIF ( FNUM.GT.100 ) THEN #140 IRKUNT(INDAVE) = INT(FNUM) #142 IRKUNT(INDAVE) = INT(FNUM) ! 0 OUSEAS.f90#77 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #85 IF ( FNUM.LE.25. ) THEN ! 0 #89 ELSEIF ( FNUM.GT.100 ) THEN #93 ISHUNT(INDGRP) = NINT(FNUM) #95 ISHUNT(INDGRP) = NINT(FNUM) ! 0 OUTOXX.f90#58 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #64 IPRDT = NINT(FNUM) ! 0 #99 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #106 TOXTHR(INDAVE) = FNUM ! 0 #119 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #127 IF ( FNUM.LE.25. ) THEN ! 0 #131 ELSEIF ( FNUM.GT.100 ) THEN #135 ITXUNT(INDAVE) = NINT(FNUM) #137 ITXUNT(INDAVE) = NINT(FNUM) ! 0 PERPLT.f90#83 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #91 IF ( FNUM.LE.25. ) THEN ! 0 #95 ELSEIF ( FNUM.GT.100 ) THEN #99 IPPUNT(INDGRP) = NINT(FNUM) #101 IPPUNT(INDGRP) = NINT(FNUM) ! 0 PERPST.f90#91 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #99 IF ( FNUM.LE.25. ) THEN ! 0 #103 ELSEIF ( FNUM.GT.100 ) THEN #107 IAPUNT(INDGRP) = NINT(FNUM) #109 IAPUNT(INDGRP) = NINT(FNUM) ! 0 POLDST.f90#46 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 12 #55 XCOORD(ISET,INNET) = FNUM ! 12 #58 IF ( FNUM.EQ.XCOORD(J,INNET) ) & PREPOLDST.f90#45 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 12 PRERADRNG.f90#45 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 PRESET.f90#196 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 #199 INUM = NINT(FNUM) ! 3 PREXYPNTS.f90#45 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #68 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 RADRNG.f90#46 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #56 YCOORD(ISET,INNET) = FNUM ! 0 #64 IF ( FNUM.EQ.YCOORD(J,INNET) ) & SAVEFL.f90#45 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #46 INCRST = NINT(FNUM) #52 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #53 INCRST = NINT(FNUM) SCIMIT.f90#38 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #44 NREGSTART = NINT(FNUM) ! 0 #50 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) #56 NREGINT = NINT(FNUM) ! 0 #62 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) #68 NWETSTART = NINT(FNUM) ! 0 #71 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #77 NWETINT = NINT(FNUM) ! 0 SET_WINDOW.f90#48 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 #51 ISYEAR = NINT(FNUM) ! 3 SFDATA.f90#54 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 3 #60 IDSURF = NINT(FNUM) ! 3 #62 199 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 #68 ISYEAR = NINT(FNUM) ! 3 STAEND.f90#46 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 #52 ISYR = NINT(FNUM) ! 0 #53 198 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 #59 ISMN = NINT(FNUM) ! 0 #60 298 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 #66 ISDY = NINT(FNUM) ! 0 #67 398 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 #73 IEYR = NINT(FNUM) ! 0 #74 498 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 #80 IEMN = NINT(FNUM) ! 0 #81 598 CALL STONUM(FIELD(8),ILEN_FLD,FNUM,IMIT) ! 0 #87 IEDY = NINT(FNUM) ! 0 #121 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 3 #127 ISYR = NINT(FNUM) ! 3 #128 199 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 #134 ISMN = NINT(FNUM) ! 3 #135 299 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 3 #141 ISDY = NINT(FNUM) ! 3 #142 399 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 3 #148 ISHR = NINT(FNUM) ! 3 #149 499 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 3 #155 IEYR = NINT(FNUM) ! 3 #156 599 CALL STONUM(FIELD(8),ILEN_FLD,FNUM,IMIT) ! 3 #162 IEMN = NINT(FNUM) ! 3 #163 699 CALL STONUM(FIELD(9),ILEN_FLD,FNUM,IMIT) ! 3 #169 IEDY = NINT(FNUM) ! 3 #170 799 CALL STONUM(FIELD(10),ILEN_FLD,FNUM,IMIT) ! 3 #176 IEHR = NINT(FNUM) ! 3 STODBL.f90#2 SUBROUTINE STODBL(STRVAR,LEN,FNUM,IMUTI) #30 DOUBLE PRECISION FNUM , CNUM #100 FNUM = CNUM ! 0 #103 IF ( NMARK ) FNUM = -FNUM #106 IF ( EMARK .AND. ABS(FNUM).LE.30. ) THEN #107 FNUM = HEAD*10**(FNUM) ! 0 #108 ELSEIF ( EMARK .AND. ABS(FNUM).GT.30. ) THEN #109 IF ( FNUM.LT.0.0 ) THEN ! 0 #110 FNUM = 0.0 ! 0 #111 ELSEIF ( FNUM.GT.0.0 ) THEN #112 FNUM = HEAD*10**30. ! 0 STONUM.f90#2 SUBROUTINE STONUM(STRVAR,LENGTH,FNUM,IMUTI) #25 REAL FNUM , CNUM , FDEC , FDC1 , HEAD #95 FNUM = CNUM ! 2879 #98 IF ( NMARK ) FNUM = -FNUM #101 IF ( EMARK .AND. ABS(FNUM).LE.30. ) THEN #102 FNUM = HEAD*10**(FNUM) ! 18 #103 ELSEIF ( EMARK .AND. ABS(FNUM).GT.30. ) THEN #104 IF ( FNUM.LT.0.0 ) THEN ! 0 #105 FNUM = 0.0 ! 0 #106 ELSEIF ( FNUM.GT.0.0 ) THEN #107 FNUM = HEAD*10**30. ! 0 TERHGT.f90#57 CALL STONUM(FIELD(ISC),ILEN_FLD,FNUM,IMIT) ! 0 #63 ROW = FNUM ! 0 #68 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #78 ZETMP2(ISET) = FNUM TERRST.f90#49 CALL STONUM(INPFLD,3,FNUM,IMIT) #58 IF ( NINT(FNUM).EQ.440 ) ICLM = ICLM + 1 #60 IF ( NINT(FNUM).EQ.460 ) IMSG = IMSG + 1 #62 IF ( NINT(FNUM).EQ.283 ) IHEZ = IHEZ + 1 UADATA.f90#54 CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 3 #60 IDUAIR = NINT(FNUM) ! 3 #62 199 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 #68 IUYEAR = NINT(FNUM) ! 3 WSCATS.f90#38 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #42 ELSEIF ( FNUM.LT.1.0 .OR. FNUM.GT.20.0 ) THEN #47 UCAT(IWS) = FNUM XYPNTS.f90#49 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #57 XCOORD(ISET,INNET) = FNUM ! 0 #60 IF ( FNUM.EQ.XCOORD(J,INNET) ) & #89 CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 #97 YCOORD(JSET,INNET) = FNUM ! 0 #100 IF ( FNUM.EQ.YCOORD(J,INNET) ) &
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