COMMON A(MTOT,MTOT),  B(MTOT,MTOT),  C(MTOT,MTOT),
     *       E(MTOT,MTOT),
     *       VECL(MTOT),    Y1(MTOT),      Y2(MTOT),
     *       PSI0(MTOT),    PSIM(MTOT),    PSIP(MTOT),
     *       RAD0(MTOT),    RADM(MTOT),    RADP(MTOT),
     *       FKM(MFREX),    FK0(MFREX),    FKP(MFREX),
     *       ABSOM(MFREX),  ABSO0(MFREX),  ABSOP(MFREX),
     *       EMISM(MFREX),  EMIS0(MFREX),  EMISP(MFREX),
     *       SCATM(MFREX),  SCAT0(MFREX),  SCATP(MFREX),
     *       DABTM(MFREX),  DABT0(MFREX),  DABTP(MFREX),
     *       DEMTM(MFREX),  DEMT0(MFREX),  DEMTP(MFREX),
     *       DABNM(MFREX),  DABN0(MFREX),  DABNP(MFREX),
     *       DEMNM(MFREX),  DEMN0(MFREX),  DEMNP(MFREX),
     *       DABMM(MFREX),  DABM0(MFREX),  DABMP(MFREX),
     *       DEMMM(MFREX),  DEMM0(MFREX),  DEMMP(MFREX),
     *       WDEPM(MFREX),  WDEP0(MFREX),  WDEPP(MFREX),
     *       SBFM(MLEVEL),  SBF0(MLEVEL),  SBFP(MLEVEL),
     *       HEX(MLEVEL),   REX(MLEVEL),   REXA(MLEVEL),  
     *       DSBFM(MLEVEL), DSBF0(MLEVEL), DSBFP(MLEVEL),
     *       SUMDCH(MLEVEL),
     *       DRCHM(MLEVEL,MFREX),   DRETM(MLEVEL,MFREX),
     *       DRCH0(MLEVEL,MFREX),   DRET0(MLEVEL,MFREX),
     *       DRCHP(MLEVEL,MFREX),   DRETP(MLEVEL,MFREX)
      COMMON/EXPRAD/
     *       ABSOEX(MFREX,MDEPTH),EMISEX(MFREX,MDEPTH),
     *       SCATEX(MFREX,MDEPTH),
     *       DABTEX(MFREX,MDEPTH),DEMTEX(MFREX,MDEPTH),
     *       DABNEX(MFREX,MDEPTH),DEMNEX(MFREX,MDEPTH),
     *       DABMEX(MFREX,MDEPTH),DEMMEX(MFREX,MDEPTH),
     *       DRCHEX(MLVEXP,MFREX,MDEPTH),
     *       DRETEX(MLVEXP,MFREX,MDEPTH)
      COMMON/BPOCOM/ESEMAT(MLEVEL,MLEVEL),BESE(MLEVEL),
     *       ATT(MLEVEL),ANN(MLEVEL)