**++ Symbol table for subprogram M2ASD in file m2asd.for
     produced by SPAG     6.70Rc-40 at 15:34:47 on 10 Dec 2012
   0         X                           m2asd.for,0000047,0000225
   1         D          MU              +../inc/manage/asd.inc
   2         D           U              +../inc/p1werm.inc
   3    1    C     / 6/SMU        228   /SIEVES/SDIA,MNSIZE,MXSIZE,MDIA,NSIEVE,LOGCAS
   4          R         MU E            ALPHA
   5          R         MU E            BETA
   6         I?    ( 1)  U I            EXP
   7   15   5 R    ( 1)AM  E            GMD(mnsz)
   8   15   6 R    ( 1)AM  E            GSD(mnsz)
   9          I         MU E            I
  10          I         MU E            ISTART
  11          I         MU E            ISTOP
  12          I         MU E            J
  13         I?    ( 1)  U I            LOG
  14    3   6 I        C U E            LOGCAS
  15         S     ( 6) MU         77   M2ASD(MF,NLAY,MNOT,MINF,GMD,GSD)
  16         I?    ( 2)  U I            MAX
  17    3   4 R    ( 1)CMU E       27   MDIA(msieve+1)
  18          R         MU E            MDIA_ISTART
  19          R         MU E            MDIA_ISTOP
  20   15   1 R    ( 2)A U E            MF(msieve+1,mnsz)
  21   15   4 R    ( 1)A U E            MINF(mnsz)
  22    1    PR          U E            MINGSD=2.0
  35   15   3 R    ( 1)A U E            MNOT(mnsz)
  38    3   2 R        C U E            MNSIZE
  42    2    PI          U E      100   MNSZ=100
  44    1    PI          U E       26   MSIEVE=26
  45    3   3 R        C U E            MXSIZE
  46   15   2 I        A U E            NLAY
  47    3   5 I        C U E            NSIEVE
  48    3   1 R    ( 1)C U E       26   SDIA(msieve)
  49          R         MU E            SDIA_TEMP
  50         I?    ( 1)  U I            SQRT
  51          R    ( 1) MU E       27   TMD(msieve+1)
**-- END OF SYMBOL TABLE
**+-!*--M2ASD95 ./Restructure/Output/m2asd.spg