MODULE TotJ_Module
!---------------------------------------------------------------------
!  JTot      Total angular momentum, J.
!  Parity    Parity.
!  Mega      Total angular momentum projection quantum number.
!  MegaMin   Minimum value of the projection quantum number.
!  MegaMax   Maximum value of the projection quantum number.
!  Symmetry  True IF symmetry decoupling is being used. This can
!            be the case only IF channels B and C contain identical
!            atoms.
!  jEven     Ignored IF symmetry is false. IF symmetry is true and
!            jEven IF true THEN even rotational states are used in
!            channel A. IF symmetry is true and jEven is false odd
!            rotational states are used in channel A.
!  JRef      a reference J used to get surface functions independent
!            of the actual J.
!  MegaCoup
!---------------------------------------------------------------------
   USE Elemnt_module
   IMPLICIT NONE
   SAVE
   LOGICAL Symmetry/.true./, jEven/.true./
   INTEGER JTot/0/, Parity/0/, Mega/0/, MegaMin/0/, MegaMax/0/, JRef/0/, MegaCoup/0/
   NAMELIST / Momentum / JTot, Parity, jEven, MegaMax, nsymc, JRef, MegaCoup
END MODULE TotJ_Module