30 lines
1.6 KiB
Fortran
30 lines
1.6 KiB
Fortran
COMMON/FIXALP/ABSO(MFREQ),EMIS(MFREQ),SCAT(MFREQ),
|
|
* REIT(MDEPTH),REIN(MDEPTH),REIM(MDEPTH),
|
|
* REIP(MLVEXP,MDEPTH),
|
|
* AREIT(MDEPTH),AREIN(MDEPTH),AREIM(MDEPTH),
|
|
* AREIP(MLVEXP,MDEPTH),
|
|
* CREIT(MDEPTH),CREIN(MDEPTH),CREIM(MDEPTH),
|
|
* CREIP(MLVEXP,MDEPTH),
|
|
* REIX(MDEPTH),CREIX(MDEPTH),
|
|
* REDX(MDEPTH),REDT(MDEPTH),REDN(MDEPTH),
|
|
* REDM(MDEPTH),REDP(MLVEXP,MDEPTH),
|
|
* REDXM(MDEPTH),REDTM(MDEPTH),REDNM(MDEPTH),
|
|
* REDMM(MDEPTH),REDPM(MLVEXP,MDEPTH),
|
|
* REDTP(MDEPTH),REDNP(MDEPTH),REDXP(MDEPTH),
|
|
* REDMP(MDEPTH),REDPP(MLVEXP,MDEPTH),
|
|
* HEIT(MDEPTH),HEIN(MDEPTH),HEIM(MDEPTH),
|
|
* HEIP(MLVEXP,MDEPTH),
|
|
* HEITM(MDEPTH),HEINM(MDEPTH),HEIMM(MDEPTH),
|
|
* HEIPM(MLVEXP,MDEPTH),
|
|
* HEITP(MDEPTH),HEINP(MDEPTH),HEIMP(MDEPTH),
|
|
* HEIPP(MLVEXP,MDEPTH),
|
|
* EHET(MDEPTH),EHEN(MDEPTH),ERET(MDEPTH),EREN(MDEPTH),
|
|
* EHEP(MLVEX3,MDEPTH),EREP(MLVEX3,MDEPTH),
|
|
* APT(MLVEXP,MDEPTH),APN(MLVEXP,MDEPTH),
|
|
* AAPT(MLVEX3,MDEPTH),AAPN(MLVEX3,MDEPTH),
|
|
* CAPT(MLVEX3,MDEPTH),CAPN(MLVEX3,MDEPTH),
|
|
* APP(MLVEXP,MLVEXP,MDEPTH),
|
|
* AAPP(MLVEX3,MLVEX3,MDEPTH),
|
|
* CAPP(MLVEX3,MLVEX3,MDEPTH),QTLAS,
|
|
* IFALI,IFPOPR,irprec,ifprec,itold1,itold2,itlas
|