**++ Symbol table for subprogram SBBR in file sbbr.for produced by SPAG 6.70Rc-40 at 15:33:38 on 10 Dec 2012 0 X sbbr.for,0000008,0000251 1 D MU +../inc/erosion/e2grid.inc 2 D +../inc/erosion/e3grid.inc 3 D U +../inc/erosion/m2geo.inc 4 D ?U +../inc/m1geo.inc 5 D U +../inc/p1const.inc 6 D U +../inc/p1werm.inc 7 1 C / 2/SMU 9072144 /E2GRID/CSR,W0BR 8 2 C /11/S 44 /E3GRID/KBR,I1,I2,I3,I4,I5,I6,AWA,SIN_AWA,COS_AWA,TAN_AWA 9 4 C /12/S?U 54160 /M1GEO/NACCTR,NBR,SIM_AREA,AMASIM,AMPBR,AMXAR,AMXBR,AMXBRW,AMXSIM,AMXSR,AMZBR,AMZBT 10 3 C / 6/S U 24 /M2GEO/IMAX,JMAX,IX,JY,XGDPT,YGDPT 11 5 C / 4/S 16 /P1CONST/ANEMHT,AWZZO,AWZDISP,WZOFLG 12 R MU E A 13 R MU E AA 14 I? ( 1) U I ABS 15 I? ( 1) U I ACOS 16 R MU E ALPHA 17 9 4 R C U E AMASIM 18 9 5 R ( 1)C?? E 500 AMPBR(mnbr) 20 9 7 R ( 3)C?? E 2000 AMXBR(mnbpt,mnbpt,mnbr) 21 9 8 R ( 1)C?? E 500 AMXBRW(mnbr) 22 9 9 R ( 2)C U E 4 AMXSIM(mnspt,mnspt) 24 9 11 R ( 1)C?U E 500 AMZBR(mnbr) 27 fR ( 4) U E ANG (R4L,R4L,R4V,R4V) 29 R ( 1) MU E 8 AWAR(8) 32 R MU E B 34 R MU E C 35 R MU E CA 36 R MU E CETA 39 R MU E DMIN 40 fR ( 4) U E FU (R4E,R4L,R4L,R4L) 41 I MU E I 48 10 1 I C U E IMAX 49 10 3 R C U E IX 50 I MU E J 51 10 2 I C U E JMAX 52 10 4 R C U E JY 53 I MU E K 56 R M? E LX 57 R M? E LY 58 I? ( 2) U I MAX 59 I? ( 2) U I MIN 61 6 PI U E 4 MNAR=4 62 6 PI U E 2 MNARPT=2 64 6 PI U E 2 MNBPT=2 65 6 PI U E 500 MNBR=500 69 6 PI U E 501 MNGDPT=501 75 6 PI U E 2 MNSPT=2 76 6 PI U E 2 MNSRPT=2 77 6 PI U E 4 MNSUB=4 80 I MU E N 82 9 2 I C U E NBR 84 5 PR U E PI=3.1415927 85 S 87 SBBR 88 I? ( 1) U I SIN 90 fR ( 4) U E SLEN (R4V,R4V,R4L,R4L) ( , , ,???) 92 R MU E TMPA 93 I MU E TMPV 94 R MU E TMPW0 95 R M? E W 96 7 2 R ( 3)CMU E 2016032 W0BR(0:mngdpt,0:mngdpt,8) 97 R MU E WAA **-- END OF SYMBOL TABLE **+-!*--SBBR25 ./Restructure/Output/sbbr.spg **++ Symbol table for subprogram SLEN in file sbbr.for produced by SPAG 6.70Rc-40 at 15:33:38 on 10 Dec 2012 0 X sbbr.for,0000254,0000258 1 I? ( 1) U I ABS 2 FR ( 4) MU E 2 SLEN(X1,Y1,X2,Y2) 3 I? ( 1) U I SQRT 4 2 1 R A U E X1 5 2 3 R A U E X2 6 2 2 R A U E Y1 7 2 4 R A U E Y2 **-- END OF SYMBOL TABLE **+-!*--SLEN275 ./Restructure/Output/sbbr.spg **++ Symbol table for subprogram ANG in file sbbr.for produced by SPAG 6.70Rc-40 at 15:33:38 on 10 Dec 2012 0 X sbbr.for,0000262,0000287 1 I? ( 1) U I ABS 2 FR ( 4) MU E 22 ANG(XBR,YBR,XP,YP) 3 I? ( 1) U I ATAN 4 R MU E PI 5 R MU E TEMPA 6 2 1 R A U E XBR 7 2 3 R A U E XP 8 2 2 R A U E YBR 9 2 4 R A U E YP **-- END OF SYMBOL TABLE **+-!*--ANG300 ./Restructure/Output/sbbr.spg **++ Symbol table for subprogram FU in file sbbr.for produced by SPAG 6.70Rc-40 at 15:33:38 on 10 Dec 2012 0 X sbbr.for,0000292,0000313 1 R MU E A 2 R MU E B 3 R MU E C 4 R MU E D 5 I? ( 1) U I EXP 6 FR ( 4) MU E 12 FU(XH,ZBR,PBR,XBRW) 7 R MU E PB 8 6 3 R A U E PBR 9 R MU E X 10 6 4 R A U E XBRW 11 6 1 R A U E XH 12 R MU E XW 13 6 2 R A U E ZBR **-- END OF SYMBOL TABLE **+-!*--FU351 ./Restructure/Output/sbbr.spg