C
      COMMON /CSLINI/ NQ(MRAD),IND(MRAD)
      COMMON /CSLINE/ QMAX(MRAD),Q0(MRAD),
     * Q(MQ,MRAD),WQ(MQ,MRAD),WQMU,FRQ(0:MQ,MWIDE),
     * PHI(MRAD,-MQ:MQ),PHIP(MRAD,-MQ:MQ),WPHI(MRAD),
     * EMISS(MRAD,0:4,MQ), EMERGE(MRAD,0:4,MQ),
     * RMAGN