*KEEP,MCONST.
      PARAMETER(MAXPAR=200)
      PARAMETER(MAXNEU=100)
      COMMON/MCONST/NNR,NQ,NGR,NTSTW,MGPREG,MGP1,M1M,NI,NNUC,NCOL