C
      COMMON /CTRAN/ XMY,X(0:MDEP),S(MDEP),PMS(MDEP),
     * IPLUS(0:MDEP),IMINUS(0:MDEP),P(MDEP),RNY(MDEP)
      REAL IPLUS,IMINUS