34 lines
1.7 KiB
Fortran
34 lines
1.7 KiB
Fortran
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)
|