MODULE SymGroup_Module
!-----------------------------------------------------------------------
!-----------------------------------------------------------------------
   USE Numeric_kinds_Module
   IMPLICIT NONE
   SAVE
!
   CHARACTER (len=3) :: group, system
!   INTEGER :: n_ir,n_symop
   INTEGER :: nirrep, nsymop
!   INTEGER :: nchi_ir(8), parity_ir(8), chishift_ir(8)
   INTEGER :: nchi_ir(8), par(8), chishift_ir(8)

   INTEGER,ALLOCATABLE :: indexchi_array(:)
   LOGICAL,ALLOCATABLE :: to_propagate(:)
!
END MODULE SymGroup_Module