real xs11,xs31,xp11,xp31,xp13,xp33,xd13,xd33,xd15,xd35   
      common /phases/ xs11,xs31,xp11,xp31,xp13,xp33,xd13,xd33,xd15,xd35

C      real s11(134),s31(134)
C      real p11(134),p31(134),p13(134),p33(134)
C      real d13(134),d33(134),d15(134),d35(134)
C      common /savep/   s11, s31, p11, p31, p13, p33, d13, d33, d15, d35

      real as(2),app(2),apm(2),adp(2),adm(2)
      common /amps/   as,app,apm,adp,adm