| ARVERT.f90#43 | CALL STONUM(FIELD(K),ILEN_FLD,FNUMX,IMIT) ! 0 |
| #49 | CALL STONUM(FIELD(K+1),ILEN_FLD,FNUMY,IMIT) ! 0 |
| AVETIM.f90#69 | CALL STONUM(KOPT,8,AVENUM,IMIT) ! 6 |
| COUNIT.f90#46 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 |
| DAYRNG.f90#62 | CALL STONUM(BEGRNG,8,FNUM,IMIT) ! 0 |
| #84 | CALL STONUM(BEGRNG,8,FNUM,IMIT) ! 0 |
| #92 | CALL STONUM(ENDRNG,8,FNUM,IMIT) ! 0 |
| #117 | CALL STONUM(CMN1,8,FNUM,IMIT) ! 0 |
| #125 | CALL STONUM(CDY1,8,FNUM,IMIT) ! 0 |
| #148 | CALL STONUM(CMN1,8,FNUM,IMIT) ! 0 |
| #156 | CALL STONUM(CDY1,8,FNUM,IMIT) ! 0 |
| #164 | 41 CALL STONUM(CMN2,8,FNUM,IMIT) ! 0 |
| #172 | CALL STONUM(CDY2,8,FNUM,IMIT) ! 0 |
| DISCAR.f90#78 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 |
| #86 | CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 |
| #96 | CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 |
| #105 | CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 |
| #114 | CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 |
| #124 | CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 |
| #133 | CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 |
| #143 | CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 |
| #151 | CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 |
| DISPOL.f90#82 | CALL STONUM(FIELD(4),ILEN_FLD,RANGE,IMIT) |
| #86 | CALL STONUM(FIELD(5),ILEN_FLD,DIRECT,IMIT) |
| #98 | CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 |
| #107 | CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 |
| #116 | CALL STONUM(FIELD(8),ILEN_FLD,FNUM,IMIT) ! 0 |
| #126 | CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 |
| #135 | CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 |
| #145 | CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 |
| #153 | CALL STONUM(FIELD(8),ILEN_FLD,FNUM,IMIT) ! 0 |
| DPUNIT.f90#47 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 |
| DSFILL.f90#40 | CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 9 |
| #65 | CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 324 |
| #93 | CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 324 |
| #120 | CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 324 |
| #144 | CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 324 |
| EDECAY.f90#41 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 |
| EFFILL.f90#34 | CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 |
| EMUNIT.f90#45 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 |
| EVCART.f90#62 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 |
| #70 | CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 |
| #78 | CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 |
| #86 | CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 |
| #94 | CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 |
| EVLOC.f90#60 | CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) |
| #70 | CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) |
| #79 | CALL STONUM(FIELD(8),ILEN_FLD,FNUM,IMIT) ! 0 |
| #86 | CALL STONUM(FIELD(9),ILEN_FLD,FNUM,IMIT) ! 0 |
| #99 | CALL STONUM(FIELD(10),ILEN_FLD,FNUM,IMIT) ! 0 |
| EVPER.f90#79 | CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 |
| FLAGDF.f90#38 | CALL STONUM(FIELD(3),ILEN_FLD,ZFLG,IMIT) ! 0 |
| FLGHGT.f90#56 | CALL STONUM(FIELD(ISC),ILEN_FLD,FNUM,IMIT) ! 0 |
| #67 | CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 |
| GASDEP.f90#70 | CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) |
| #81 | CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) |
| #92 | CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) |
| #103 | CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) |
| #136 | CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) |
| #147 | CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) |
| #158 | CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) |
| #169 | CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) |
| GDDEF.f90#47 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 |
| #57 | CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) |
| #67 | CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) |
| GDLAND.f90#49 | CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 |
| GDSEAS.f90#48 | CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 |
| GENCAR.f90#60 | CALL STONUM(FIELD(ISC+K-1),ILEN_FLD,TEMPP(K),IMIT) ! 0 |
| GENPOL.f90#59 | CALL STONUM(FIELD(ISC+K-1),ILEN_FLD,TEMPP(K),IMIT) ! 9 |
| GVSUBD.f90#47 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 |
| HILHGT.f90#51 | CALL STONUM(FIELD(ISC),ILEN_FLD,FNUM,IMIT) ! 0 |
| #62 | CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 |
| HQREAD.f90#67 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 |
| #72 | CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) |
| #77 | CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) |
| #82 | CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) |
| #90 | CALL STONUM(FIELD(8),ILEN_FLD,EV_HRQS(IS,IHR),IMIT) ! 0 |
| #100 | CALL STONUM(FIELD(9),ILEN_FLD,EV_HRTS(IS,IHR),IMIT) ! 0 |
| #104 | CALL STONUM(FIELD(10),ILEN_FLD,EV_HRVS(IS,IHR),IMIT) |
| HRQEXT.f90#62 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 |
| #66 | CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) |
| #70 | CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) |
| #74 | CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) |
| #81 | CALL STONUM(FIELD(8),ILEN_FLD,HRQS,IMIT) ! 0 |
| #91 | CALL STONUM(FIELD(9),ILEN_FLD,HRTS,IMIT) ! 0 |
| #94 | CALL STONUM(FIELD(10),ILEN_FLD,HRVS,IMIT) |
| INPPDM.f90#49 | CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 |
| #89 | CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 |
| INPPDN.f90#49 | CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 |
| #92 | CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 |
| INPPHI.f90#47 | CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 |
| #90 | CALL STONUM(FIELD(K),ILEN_FLD,FNUM,IMIT) ! 0 |
| MEOPEN.f90#94 | CALL STONUM(CUSI,8,FNUM,IMIT) ! 0 |
| #100 | CALL STONUM(CSSI,8,FNUM,IMIT) ! 0 |
| #106 | CALL STONUM(COSI,8,FNUM,IMIT) ! 0 |
| MEREAD.f90#79 | CALL STONUM(CUSI,8,FNUM,IMIT) ! 0 |
| #85 | CALL STONUM(CSSI,8,FNUM,IMIT) ! 0 |
| METEXT.f90#131 | CALL STONUM(CUSI,8,FNUM,IMIT) ! 0 |
| #137 | CALL STONUM(CSSI,8,FNUM,IMIT) ! 0 |
| METH_2.f90#62 | CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) |
| #72 | CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) |
| #110 | CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) |
| #120 | CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) |
| NO2EQ.f90#41 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 |
| NO2RAT.f90#60 | CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 |
| #90 | CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) |
| O3VAL.f90#41 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 |
| ONDATA.f90#49 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 |
| #57 | 199 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 |
| #74 | CALL STONUM(FIELD(6),ILEN_FLD,ONX,IMIT) ! 0 |
| #76 | CALL STONUM(FIELD(7),ILEN_FLD,ONY,IMIT) |
| OUDALY.f90#58 | CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) |
| OUEVAL.f90#76 | CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 |
| OUHIGH.f90#86 | CALL STONUM(HPRD,8,FNUM,IMIT) ! 0 |
| #103 | CALL STONUM(LPRD,8,FNUM,IMIT) ! 0 |
| #111 | 114 CALL STONUM(HPRD,8,FNUM,IMIT) ! 0 |
| OUMXFL.f90#57 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 |
| #110 | CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 |
| #130 | CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 |
| OUMXVL.f90#60 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 |
| #86 | CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 |
| OUPLOT.f90#74 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 |
| #158 | CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 |
| OUPOST.f90#83 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 |
| #157 | CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 |
| OURANK.f90#51 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 |
| #92 | CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 |
| #124 | CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 |
| OUSEAS.f90#77 | CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 |
| OUTOXX.f90#58 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 |
| #99 | CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 |
| #119 | CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 |
| PERPLT.f90#83 | CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 |
| PERPST.f90#91 | CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 |
| POLDST.f90#46 | CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 12 |
| POLORG.f90#66 | CALL STONUM(FIELD(ISC),ILEN_FLD,XINT,IMIT) ! 0 |
| #73 | CALL STONUM(FIELD(ISC+1),ILEN_FLD,YINT,IMIT) ! 0 |
| PRBASE.f90#36 | CALL STONUM(FIELD(3),ILEN_FLD,ZBASE,IMIT) ! 3 |
| PREGENCAR.f90#57 | CALL STONUM(FIELD(ISC+K-1),ILEN_FLD,TEMPP(K),IMIT) ! 0 |
| PREGENPOL.f90#56 | CALL STONUM(FIELD(ISC+K-1),ILEN_FLD,TEMPP(K),IMIT) ! 9 |
| 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 |
| 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 |
| SAVEFL.f90#45 | CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) |
| #52 | CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) |
| SCIMIT.f90#38 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 |
| #50 | CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) |
| #62 | CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) |
| #71 | CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 |
| SET_WINDOW.f90#48 | CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 |
| SFDATA.f90#54 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 3 |
| #62 | 199 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 |
| #85 | CALL STONUM(FIELD(6),ILEN_FLD,SFX,IMIT) ! 0 |
| #87 | CALL STONUM(FIELD(7),ILEN_FLD,SFY,IMIT) |
| SOLOCA.f90#71 | CALL STONUM(FIELD(5),ILEN_FLD,AXS(ISRC),IMIT) ! 27 |
| #75 | CALL STONUM(FIELD(6),ILEN_FLD,AYS(ISRC),IMIT) |
| #81 | CALL STONUM(FIELD(7),ILEN_FLD,AZS(ISRC),IMIT) ! 27 |
| SOPARM.f90#64 | CALL STONUM(FIELD(I),ILEN_FLD,TEMP(I-3),IMIT) ! 117 |
| STAEND.f90#46 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 0 |
| #53 | 198 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 0 |
| #60 | 298 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 0 |
| #67 | 398 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 0 |
| #74 | 498 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 0 |
| #81 | 598 CALL STONUM(FIELD(8),ILEN_FLD,FNUM,IMIT) ! 0 |
| #121 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 3 |
| #128 | 199 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 |
| #135 | 299 CALL STONUM(FIELD(5),ILEN_FLD,FNUM,IMIT) ! 3 |
| #142 | 399 CALL STONUM(FIELD(6),ILEN_FLD,FNUM,IMIT) ! 3 |
| #149 | 499 CALL STONUM(FIELD(7),ILEN_FLD,FNUM,IMIT) ! 3 |
| #156 | 599 CALL STONUM(FIELD(8),ILEN_FLD,FNUM,IMIT) ! 3 |
| #163 | 699 CALL STONUM(FIELD(9),ILEN_FLD,FNUM,IMIT) ! 3 |
| #170 | 799 CALL STONUM(FIELD(10),ILEN_FLD,FNUM,IMIT) ! 3 |
| STONUM.f90#2 | SUBROUTINE STONUM(STRVAR,LENGTH,FNUM,IMUTI) |
| TERHGT.f90#57 | CALL STONUM(FIELD(ISC),ILEN_FLD,FNUM,IMIT) ! 0 |
| #68 | CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 |
| TERLOC.f90#35 | CALL STONUM(FIELD(3),ILEN_FLD,TGX0,IMIT) ! 0 |
| #41 | CALL STONUM(FIELD(4),ILEN_FLD,TGY0,IMIT) ! 0 |
| TERRST.f90#49 | CALL STONUM(INPFLD,3,FNUM,IMIT) |
| UADATA.f90#54 | CALL STONUM(FIELD(3),ILEN_FLD,FNUM,IMIT) ! 3 |
| #62 | 199 CALL STONUM(FIELD(4),ILEN_FLD,FNUM,IMIT) ! 3 |
| #85 | CALL STONUM(FIELD(6),ILEN_FLD,UAX,IMIT) ! 0 |
| #87 | CALL STONUM(FIELD(7),ILEN_FLD,UAY,IMIT) |
| URBOPT.f90#51 | CALL STONUM(FIELD(3),ILEN_FLD,URBPOP,IMIT) ! 0 |
| #64 | CALL STONUM(FIELD(5),ILEN_FLD,URBZ0,IMIT) ! 0 |
| WDROTA.f90#35 | CALL STONUM(FIELD(3),ILEN_FLD,ROTANG,IMIT) ! 0 |
| WSCATS.f90#38 | CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 |
| XYPNTS.f90#49 | CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 |
| #89 | CALL STONUM(FIELD(I),ILEN_FLD,FNUM,IMIT) ! 0 |
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