**++ Symbol table for subprogram CALCWU in file calcwu.for produced by SPAG 6.70Rc-40 at 15:33:38 on 10 Dec 2012 0 X calcwu.for,0000006,0000146 1 D U +../inc/file.inc 2 D U +../inc/m1flag.inc 3 D U +../inc/m1sim.inc 4 D MU +../inc/main/main.inc 5 D U +../inc/p1const.inc 6 D +../inc/p1unconv.inc 7 D U +../inc/p1werm.inc 8 D MU +../inc/w1wind.inc 9 D U +../inc/wpath.inc 10 1 C / 1/ 120 /DECFILES/LUODEC 11 2 C /28/S U 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 12 3 C / 6/S U 24 /M1SIM/AM0JD,NTSTEP,EROD_INTERVAL,AMALAT,AMALON,AMZELE 13 5 C / 4/S 16 /P1CONST/ANEMHT,AWZZO,AWZDISP,WZOFLG 14 4 C /31/SMU 5268 /SIMDAY/CLIFIL,DINFIL,HINFIL,RUNFIL,SIMOUT,SINFIL,SUBFIL,TINFIL,USRID,USRLOC,USRNAM,WINFIL,SERIES,DAYSIM,EROSRPT,GNRPT,ID,IM,IY, IJDAY,LD,LM,LY,LJDAY,LOPDAY,LOPMON,LOPYR,MAXPER,OUTCNT,TYEARS,SUBFLG 15 8 C / 9/SMU 11624 /W1WIND/AWADIR,AWHRMX,AWRMXN,AWUDMX,AWUDMN,AWUDAV,AWU,AWDIR,AWWISN 16 9 C / 1/S U 512 /WPATH/ROOTP 24 11 16 I C U E AM0EFL 29 12 1 I C U E AM0JD 40 15 1 R CMU E AWADIR 42 15 2 R C U E AWHRMX 44 15 7 R ( 1)CMU E 1440 AWU(mntime) 45 15 6 R C U E AWUDAV 46 15 5 R C U E AWUDMN 47 15 4 R C U E AWUDMX 51 S 38 CALCWU 52 s ( 3) CALDATW (I4V,I4V,I4V) 58 I? ( 1) U I COS 59 I MU E DAY 66 s ( 1) EXIT (I4E) 67 L MU E FEXIST 74 I MU E I 80 I MU E JD 81 fI ( 3) U E JULDAY (I4V,I4V,I4V) 84 I? ( 1) U I LEN_TRIM 85 C*80 MU E LINE*80 99 1 PI U E 148 LUIWSD=148 158 7 PI U E 4 MNSUB=4 160 7 PI U E 1440 MNTIME=1440 161 I MU E MONTH 163 12 2 I C U E NTSTEP 167 5 PR U E PI=3.1415927 170 16 1 C*512 C U E ROOTP*512 176 14 7 C*512 C U E SUBFIL*512 177 14 31 L CMU E SUBFLG 183 11 26 I C U E WIND_GEN_FMT_FLAG 187 I MU E YEAR **-- END OF SYMBOL TABLE **+-!*--CALCWU27 ./Restructure/Output/calcwu.spg