MODULE qnumber_Module
!-----------------------------------------------------------------------
! qnumber_Module
!
!     mvib   -- array of vibrational quantum numbers
!     jrot   -- array of rotor quantum numbers
!     lorb   -- array of orbital quantum numbers
!     megaz  -- array of projection quantum numbers
!     energy -- array of two times the reduced mass times the
!               quantity of the total energy minus the internal
!               energy
!     nuj    -- array of vibrational rotational quantum numbers
!     mtype  --
!-----------------------------------------------------------------------
   USE narran_Module
   USE NState_Module
   USE numeric_kinds_Module
   SAVE
!  INTEGER,allocatable :: mvib(:), jrot(:), lorb(:), megaz(:), nuj(:), mtype(:)
!  REAL (KIND=dp),allocatable :: energy(:)
   INTEGER mvib(nstate), jrot(nstate), lorb(nstate), megaz(nstate), nuj(nstate), mtype(nstate)
   REAL (KIND=dp) energy(nstate)
    NAMELIST / qnumbr /mvib, jrot, lorb, megaz, nuj, mtype ,energy
END MODULE qnumber_Module