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