C
      COMMON /CSLINI/ NQ(MRAD),IND(MRAD)
      COMMON /CSLINE/ QMAX(MRAD),Q0(MRAD),DIFF,
     * Q(MQ,MRAD),WQ(MQ,MRAD),WQMU,FRQ(0:MQ,MWIDE),
     * TAUQ(0:MDEP),DTAUQ(MDEP),A1(MDEP),C1(MDEP),
     * PHI(MDEP),WPHI(MDEP,MRAD),
     * SL(MDEP,MRAD),SC(MDEP),SBCK(MDEP),
     * JNY(MDEP),JNYOLD(MDEP),EJ(MRAD,MDEP),EMAXJ,
     * WEQLTE(MLINE),WEQ(MLINE),
     * RIJ(MDEP,MRAD),RJI(MDEP,MRAD),
     * FLUX(0:MQ,MRAD),OUTINT(0:MQ,MMU,MRAD),COOL(MDEP,MRAD)
      REAL JNY,JNYOLD