**++ Symbol table for subprogram ERODIN in file erodin.for produced by SPAG 6.70Rc-40 at 15:33:29 on 10 Dec 2012 0 X erodin.for,0000006,0000980 1 D MU +../inc/b1glob.inc 2 D M +../inc/c1gen.inc 3 D MU +../inc/c1glob.inc 4 D MU +../inc/d1glob.inc 5 D U +../inc/erosion/p1erode.inc 6 D MU +../inc/h1db1.inc 7 D MU +../inc/m1flag.inc 8 D MU +../inc/m1geo.inc 9 D MU +../inc/m1sim.inc 10 D MU +../inc/m1subr.inc 11 D MU +../inc/p1const.inc 12 D U +../inc/p1werm.inc 13 D MU +../inc/s1agg.inc 14 D MU +../inc/s1dbh.inc 15 D MU +../inc/s1layr.inc 16 D MU +../inc/s1phys.inc 17 D MU +../inc/s1sgeo.inc 18 D MU +../inc/s1surf.inc 19 D M +../inc/w1pavg.inc 20 D MU +../inc/w1wind.inc 21 1 C /20/SMU 3616 /B1GLOB/ABZHT,ABZMHT,ABM,ABMST,ABMF,ABMBG,ABMRT,ABMBGZ,ABMRTZ,ABDSTM,ABRSAI,ABRLAI,ABRCD,ABRSAZ,ABRLAZ,ABFFCV,ABFSCV,ABFTCV, ABFCANCOV,ABEVAPREDU 22 2 C /13/SM 512 /C1GEN/AC0RG,ACDPOP,ACYTGT,ACHYFG,ACYNMU,ACYCON,ACYWCT,ACRSFG,ACXROW,ACTHUDF,APLANT_DAY,APLANT_MONTH,APLANT_ROTYR 23 3 C /48/SMU 7232 /C1GLOB/ACMSTANDSTEM,ACMSTANDLEAF,ACMSTANDSTORE,ACMFLATSTEM,ACMFLATLEAF,ACMFLATSTORE,ACMSHOOT,ACMTOTSHOOT,ACMBGSTEMZ, ACMROOTSTOREZ,ACMROOTFIBERZ,ACZHT,ACZSHOOT,ACDSTM,ACZRTD,ACTHUCUM,ACTRTHUCUM,ACGRAINF,ACZGROWPT,ACFLIVELEAF, ACLEAFAREATREND,ACSTEMMASSTREND,ACTWARMDAYS,ACTCHILLUCUM,ACTHARDNX,ACTHU_SHOOT_BEG,ACTHU_SHOOT_END,ACDAYAP,ACDAYAM, ACMBGSTEM,ACMROOTSTORE,ACMROOTFIBER,ACXSTMREP,ACM,ACMST,ACMF,ACMRT,ACMRTZ,ACRSAI,ACRLAI,ACRCD,ACRSAZ,ACRLAZ,ACFFCV, ACFSCV,ACFTCV,ACFCANCOV,ACDAYSPRING 24 4 C /56/SMU 59472 /D1GLOB/ADMSTANDSTEM,ADMSTANDLEAF,ADMSTANDSTORE,ADMFLATSTEM,ADMFLATLEAF,ADMFLATSTORE,ADMFLATROOTSTORE,ADMFLATROOTFIBER, ADMBGSTEMZ,ADMBGLEAFZ,ADMBGSTOREZ,ADMBGROOTSTOREZ,ADMBGROOTFIBERZ,ADZHT,ADDSTM,ADXSTMREP,ADGRAINF,ADHYFG,ADMBGSTEM, ADMBGLEAF,ADMBGSTORE,ADMBGROOTSTORE,ADMBGROOTFIBER,ADM,ADMST,ADMF,ADMRT,ADMRTZ,ADMBG,ADMBGZ,ADRSAI,ADRLAI,ADRSAZ,ADRLAZ, ADRCD,ADFFCV,ADFSCV,ADFTCV,ADFCANCOV,ADDSTMTOT,ADZHT_AVE,ADMTOT,ADMTOTTO4,ADMSTTOT,ADMFTOT,ADMBGTOT,ADMBGTOTTO4, ADMRTTOT,ADMRTTOTTO4,ADRCDTOT,ADRSAITOT,ADRLAITOT,ADFFCVTOT,ADFSCVTOT,ADFTCVTOT,ADFTCANCOV 25 C / 1/ M 4 /FLAGS/DEBUGFLG 26 6 C / 9/SMU 11600 /H1DB1/AHRWCR,AHRWCW,AHRWCF,AHRWCS,AHRWCA,AHRWC0,AHZSND,AHRWC1,AHFREDSAT 27 7 C /28/SMU 112 /M1FLAG/AM0IFL,AM0EIF,AM0CGF,AM0CIF,AM0DIF,AM0HFL,AM0GDF,AM0TIL,AM0DEFOLIATEFL,AM0KILFL,AM0CROPUPFL,AM0SFL,AM0TFL,AM0CFL,AM0DFL, AM0EFL,AM0OIF,AM0SIF,INIT_LOOP,CALIB_LOOP,REPORT_LOOP,CALIB_DONE,MAX_CALIB_CYCLES,CALIB_CYCLE,N_ROT_CYCLES, WIND_GEN_FMT_FLAG,CLI_GEN_FMT_FLAG,WIND_MAX_FLAG 28 8 C /12/SMU 54160 /M1GEO/NACCTR,NBR,SIM_AREA,AMASIM,AMPBR,AMXAR,AMXBR,AMXBRW,AMXSIM,AMXSR,AMZBR,AMZBT 29 9 C / 6/SMU 24 /M1SIM/AM0JD,NTSTEP,EROD_INTERVAL,AMALAT,AMALON,AMZELE 30 10 C /12/SMU 1464 /M1SUBR/NSUBR,AM0CSR,AMNRYR,AMNROTCYCLE,AMRSLP,SFCOV,WATEREROSION,SOILROCKFRAGMENTS,AM0SID,AM0TAX,AM0LOCALPHASE,SOILLOSSTOL 31 11 C / 4/SMU 16 /P1CONST/ANEMHT,AWZZO,AWZDISP,WZOFLG 32 5 C / 1/S 4 /P1ERODE/SURF_UPD_FLG 33 C / 3/ MU 484 /PLOT/XPLOT,XCHARIN,XIN 34 13 C /12/SMU 19296 /S1AGG/ASDAGD,ASEAGS,ASLAGM,ASLAGN,ASLAGX,AS0AGS,ASEAGM,ASEAGMN,ASEAGMX,ASK4D,ASLMIN,ASLMAX 35 14 C /10/SMU 16064 /S1DBH/ASFSAN,ASFSIL,ASFCLA,ASVROC,ASFVCS,ASFCS,ASFMS,ASFFS,ASFVFS,ASFWDC 36 15 C / 5/SMU 4848 /S1LAYR/NSLAY,ASZLYT,ASZLYD,ASFCLE,WATERTABLE_DEPTH 37 16 C / 7/SMU 8048 /S1PHYS/ASDBLK,ASDSBLK,ASDWBLK,ASDBLK0,ASDPART,RESTRICT_DEPTH,BEDROCK_DEPTH 38 17 C /11/SMU 176 /S1SGEO/ASZRGH,ASZRHO,ASXRGW,ASXRGS,ASARGO,ASXDKS,ASXDKH,AS0RRK,ASLRRC,ASLRR,ASLRRO 39 18 C /13/SMU 208 /S1SURF/ASZCR,ASFCR,ASMLOS,ASFLOS,ASDCR,ASECR,ASFALD,ASFALW,ACANAG,ACANCR,ASF10AN,ASF10EN,ASF10BK 40 19 C / 8/SM 32 /W1PAVG/AWTMMX,AWTMMN,AWDAIR,AWZTPT,AWTPAV,AWUPAV,AWNUET,AWEUET 41 20 C / 9/SMU 11624 /W1WIND/AWADIR,AWHRMX,AWRMXN,AWUDMX,AWUDMN,AWUDAV,AWU,AWDIR,AWWISN 42 I MU E A 46 21 16 R ( 1)CMU E 4 ABFFCV(mnsub) 57 21 12 R ( 1)CMU E 4 ABRLAI(mnsub) 59 21 11 R ( 1)CMU E 4 ABRSAI(mnsub) 61 21 1 R ( 1)CMU E 4 ABZHT(mnsub) 63 22 1 I ( 1)CM E 4 AC0RG(mnsub) 99 23 40 R ( 1)CMU E 4 ACRLAI(mnsub) 101 23 39 R ( 1)CMU E 4 ACRSAI(mnsub) 113 22 9 R ( 1)CM E 4 ACXROW(mnsub) 120 23 12 R ( 1)CMU E 4 ACZHT(mnsub) 171 24 52 R ( 1)CMU E 4 ADRLAITOT(mnsub) 174 24 51 R ( 1)CMU E 4 ADRSAITOT(mnsub) 178 24 41 R ( 1)CMU E 4 ADZHT_AVE(mnsub) 180 26 6 R ( 2)CMU E 96 AHRWC0(mnhhrs,mnsub) 182 26 5 R ( 2)CMU E 400 AHRWCA(mnsz,mnsub) 186 26 2 R ( 2)CMU E 400 AHRWCW(mnsz,mnsub) 187 26 7 R ( 1)CMU E 4 AHZSND(mnsub) 188 310 4 I A U E ALREADY_READ_INPUTS 197 27 16 I CMU E AM0EFL 198 27 2 L CMU E AM0EIF 214 28 4 R CMU E AMASIM 217 28 5 R ( 1)CMU E 500 AMPBR(mnbr) 219 28 6 R ( 3)CMU E 16 AMXAR(mnarpt,mnarpt,mnar) 220 28 7 R ( 3)CMU E 2000 AMXBR(mnbpt,mnbpt,mnbr) 221 28 8 R ( 1)CMU E 500 AMXBRW(mnbr) 222 28 9 R ( 2)CMU E 4 AMXSIM(mnspt,mnspt) 223 28 10 R ( 3)CMU E 16 AMXSR(mnsrpt,mnsrpt,mnsub) 224 28 11 R ( 1)CMU E 500 AMZBR(mnbr) 227 31 1 R CMU E ANEMHT 231 34 6 R ( 2)CMU E 404 AS0AGS(0:mnsz,mnsub) 233 38 5 R ( 1)CMU E 4 ASARGO(mnsub) 234 34 1 R ( 2)CMU E 404 ASDAGD(0:mnsz,mnsub) 235 37 1 R ( 2)CMU E 404 ASDBLK(0:mnsz,mnsub) 237 39 5 R ( 1)CMU E 4 ASDCR(mnsub) 244 34 2 R ( 2)CMU E 404 ASEAGS(0:mnsz,mnsub) 245 39 6 R ( 1)CMU E 4 ASECR(mnsub) 251 35 3 R ( 2)CMU E 404 ASFCLA(0:mnsz,mnsub) 253 39 2 R ( 1)CMU E 4 ASFCR(mnsub) 256 39 4 R ( 1)CMU E 4 ASFLOS(mnsub) 258 35 1 R ( 2)CMU E 404 ASFSAN(0:mnsz,mnsub) 259 35 2 R ( 2)CMU E 404 ASFSIL(0:mnsz,mnsub) 261 35 9 R ( 2)CMU E 400 ASFVFS(mnsz,mnsub) 264 34 3 R ( 2)CMU E 404 ASLAGM(0:mnsz,mnsub) 265 34 4 R ( 2)CMU E 404 ASLAGN(0:mnsz,mnsub) 266 34 5 R ( 2)CMU E 404 ASLAGX(0:mnsz,mnsub) 269 38 10 R ( 1)CMU E 4 ASLRR(mnsub) 272 39 3 R ( 1)CMU E 4 ASMLOS(mnsub) 273 35 4 R ( 2)CMU E 404 ASVROC(0:mnsz,mnsub) 275 38 6 R ( 1)CMU E 4 ASXDKS(mnsub) 276 38 4 R ( 1)CMU E 4 ASXRGS(mnsub) 277 38 3 R ( 1)CMU E 4 ASXRGW(mnsub) 278 39 1 R ( 1)CMU E 4 ASZCR(mnsub) 280 36 2 R ( 2)CMU E 404 ASZLYT(mnsz+1,mnsub) 281 38 1 R ( 1)CMU E 4 ASZRGH(mnsub) 283 41 1 R CMU E AWADIR 284 40 3 R CM E AWDAIR 293 41 7 R ( 1)CMU E 1440 AWU(mntime) 296 41 4 R CMU E AWUDMX 301 31 2 R CMU E AWZZO 302 I MU E B 308 310 3 I A U E CMDEBUGFLAG 309 25 1 I CM E DEBUGFLG 310 S ( 4) ?U 551 ERODIN(I_UNIT,O_UNIT,CMDEBUGFLAG,ALREADY_READ_INPUTS) 312 R ( 1) MU E 1440 F(mntime) 313 fC*512( 1) U E GETLINE*mrcl (I4V) 314 I MU E H 315 I MU E I 317 310 1 I A?? E I_UNIT 318 I MU E J 319 I MU E K 321 I MU E L 322 C*512 MU E LINE*mrcl 323 I? ( 1) U I LOG 325 12 PI U E 4 MNAR=4 326 12 PI U E 2 MNARPT=2 327 12 PI U E 5 MNBPLS=5 328 12 PI U E 2 MNBPT=2 329 12 PI U E 500 MNBR=500 330 12 PI U E 5 MNCZ=5 334 12 PI U E 24 MNHHRS=24 339 12 PI U E 2 MNSPT=2 340 12 PI U E 2 MNSRPT=2 341 12 PI U E 4 MNSUB=4 342 12 PI U E 100 MNSZ=100 343 12 PI U E 1440 MNTIME=1440 344 I? ( 2) U I MOD 345 PI U E 512 MRCL=512 346 28 1 I CMU E NACCTR 347 28 2 I CMU E NBR 348 36 1 I ( 1)CMU E 4 NSLAY(mnsub) 349 30 1 I CMU E NSUBR 350 29 2 I CMU E NTSTEP 352 310 2 I A U E O_UNIT 356 I MU E S 360 5 PR U E SLRR_MAX=100.0 361 5 PR U E SLRR_MIN=1.5 364 R MU E STEP 366 R MU E W0K 369 R MU E WFCALM 370 I MU E WFLG 373 R ( 1) MU E 1440 WU(mntime) 374 R MU E WUC 375 31 4 I CMU E WZOFLG 376 5 PR U E WZZO_MAX=30.0 377 5 PR U E WZZO_MIN=0.5 378 I MU E X 379 33 2 C*12 ( 1)CM E 30 XCHARIN(30)*12 380 I MU E XFLAG 381 33 3 R ( 1)CM E 30 XIN(30) 382 33 1 I CMU E XPLOT 383 I MU E Y **-- END OF SYMBOL TABLE **+-!*--ERODIN37 ./Restructure/Output/erodin.spg **++ Symbol table for subprogram GETLINE in file erodin.for produced by SPAG 6.70Rc-40 at 15:33:29 on 10 Dec 2012 0 X erodin.for,0000983,0001009 1 C / 1/ U 4 /FLAGS/DEBUGFLG 2 I? ( 2) U I BTEST 3 I SMU E DATALINE 4 1 1 I C U E DEBUGFLG 5 FC*(*)( 1) MU E 12 GETLINE**(I_UNIT) 6 5 1 I A U E I_UNIT 7 I SMU E LINECOUNT 8 I? ( 1) U I TRIM **-- END OF SYMBOL TABLE **+-!*--GETLINE1010 ./Restructure/Output/erodin.spg