**++ Symbol table for subprogram ASD2M in file asd2m.for
     produced by SPAG     6.70Rc-40 at 15:34:47 on 10 Dec 2012
   0         X                           asd2m.for,0000006,0000141
   1         D           U              +../inc/manage/asd.inc
   2         D           U              +../inc/p1werm.inc
   3    1    C     / 6/S U        228   /SIEVES/SDIA,MNSIZE,MXSIZE,MDIA,NSIEVE,LOGCAS
   4         IR    ( 1)  U I            ALOG
   5         S     ( 6) MU         47   ASD2M(MNOT,MINF,GMD,GSD,NLAY,MF)
   6          R    ( 1) MU E       27   D(msieve+1)
   7         fR    ( 1)  U E            ERF
     (R4E)
   8    5   3 R    ( 1)A U E            GMD(mnsz)
   9    5   4 R    ( 1)A U E            GSD(mnsz)
  10          I         MU E            I
  11          I         MU E            J
  12          R         MU E            LNGMD
  13          R         M? E            LNGSD
  14         I?    ( 1)  U I            LOG
  15    3   6 I        C U E            LOGCAS
  16         I?    ( 2)  U I            MAX
  18    5   6 R    ( 2)AMU E            MF(msieve+1,mnsz)
  19    5   2 R    ( 1)A U E            MINF(mnsz)
  20    1    PR          U E            MINGSD=2.0
  33    5   1 R    ( 1)A U E            MNOT(mnsz)
  40    2    PI          U E      100   MNSZ=100
  42    1    PI          U E       26   MSIEVE=26
  44    5   5 I        A U E            NLAY
  45    3   5 I        C U E            NSIEVE
  46          R         MU E            PREV
  47    3   1 R    ( 1)C U E       26   SDIA(msieve)
  48         I?    ( 1)  U I            SQRT
  49          R         MU E            THIS
**-- END OF SYMBOL TABLE
**+-!*--ASD2M17 ./Restructure/Output/asd2m.spg