C par2.e1
C
      INTEGER MAXLVL    !maximum number of quantum levels
C
      PARAMETER (MAXLVL=100)
c