15 lines
649 B
Fortran
15 lines
649 B
Fortran
PARAMETER (MITER = 200,
|
|
* MLAMBD = 100)
|
|
COMMON/LAMBDA/NLAMBD,IFFIX(MITER),NETEXP(MITER),NETFIX(MITER),
|
|
* IETEXP(MITER,MLAMBD),IETFIX(MITER,MLAMBD),
|
|
* NITLAM(MITER+1),IELCOR
|
|
COMMON/CHNMAT/INHE0(MITER),INRE0(MITER),INPC0(MITER),
|
|
* INDL0(MITER),INSE0(MITER),INMP0(MITER),
|
|
* NN00(MITER),NDRE0(MITER),LCHMAT,LIROST
|
|
COMMON/ACCEL/ORELAX,ITEK,IACC,IACC0,IACD,KANT(MITER),KSNG,
|
|
* LSNG(MTOT),LASO,LRES2
|
|
COMMON/ACCLP/ILAM,IACPP,IACC0P,IACDP,LAC2P
|
|
COMMON/ACCLT/IACLT,IACLDT
|
|
COMMON/CHNAD/CHMAXT,NLAMT,ILDER,IBPOPE
|
|
|