COMMON/FREQSY/FREQ(MFREQ),W(MFREQ),WLAM(MFREQ),
     *              FRX1(MFREQ),FRX2(MFREQ),BNUE(MFREQ),
     *              FRQOBS(MFREQ),WLOBS(MFREQ),
     *              FREQC(MFREQC),WLAMC(MFREQC),
     *              IJCINT(MFREQ)
      COMMON/CRSAVG/FRECR(MCROSS,MFCRA),CROSR(MCROSS,MFCRA),
     *              CRMX(MCROSS),NFCR(MCROSS),IASV
      COMMON/CRSAVQ/FRECQ(MPHOT,MFCRA),QHOT(MPHOT,MFCRA),
     *              AQHT(MPHOT),EQHT(MPHOT),GQHT(MPHOT),
     *              CRMY(MPHOT),NFQHT(MPHOT),NQHT