PARAMETER (MQJ=2000,MDEPJ=100)
      COMMON /CFIXI/ NQF(MRFIX)
      COMMON /CFIX/ QMAXF(MRFIX),Q0F(MRFIX),FF(MRFIX),ALFACF(MQ,MRFIX),
     * QF(MQ,MRFIX),WQF(MQ,MRFIX),ADAMPF(MDEP,MRFIX),
     * GAF(MRFIX),GQF(MRFIX),GWF(MRFIX)
      REAL JNYJ
      COMMON /CJFIX/ TAU5J(MDEPJ),CMASSJ(MDEPJ),JNYJ(MDEP,MQJ),
     * QJ(MQJ),NDEPJ,NQJ