LOGICAL LEVOIGT
      PARAMETER (LEVOIGT=.FALSE.)
      INTEGER NOVLP
      PARAMETER (NOVLP=1)
      INTEGER KAER
      PARAMETER (KAER=0)