**++ Symbol table for subprogram AA0038 in file s1surf.inc
     produced by SPAG     6.70Rc-40 at 21:09:21 on  9 Dec 2012
   0         D                           s1surf.inc,0000015,0000032
   1         C     /13/S                /S1SURF/ASZCR,ASFCR,ASMLOS,ASFLOS,ASDCR,ASECR,ASFALD,ASFALW,ACANAG,ACANCR,ASF10AN,ASF10EN,ASF10BK
   2         M?            I            AA0038
   3    1   9 R    ( 1)C   E            ACANAG(mnsub)
   4    1  10 R    ( 1)C   E            ACANCR(mnsub)
   5    1   5 R    ( 1)C   E            ASDCR(mnsub)
   6    1   6 R    ( 1)C   E            ASECR(mnsub)
   7    1  11 R    ( 1)C   E            ASF10AN(mnsub)
   8    1  13 R    ( 1)C   E            ASF10BK(mnsub)
   9    1  12 R    ( 1)C   E            ASF10EN(mnsub)
  10    1   7 R    ( 1)C   E            ASFALD(mnsub)
  11    1   8 R    ( 1)C   E            ASFALW(mnsub)
  12    1   2 R    ( 1)C   E            ASFCR(mnsub)
  13    1   4 R    ( 1)C   E            ASFLOS(mnsub)
  14    1   3 R    ( 1)C   E            ASMLOS(mnsub)
  15    1   1 R    ( 1)C   E            ASZCR(mnsub)
  16          I          U I            MNSUB
**-- END OF SYMBOL TABLE
**+-!*--AA00384 ./Restructure/Output/s1surf.spg