MODULE Elemnt_module
!-----------------------------------------------------------------------
!  npar      Set to true IF parity decoupling is to be used.
!  nsymc     Set to true for each arrangement channel in which the
!            asymptotic diatomic fragment is homonuclear.
!-----------------------------------------------------------------------
   USE Narran_Module
   IMPLICIT NONE
   SAVE
   LOGICAL npar/.true./, nsymc(narran)
END MODULE Elemnt_module