MODULE QDiv_Module
   USE Numeric_Kinds_Module
   USE Numbers_Module
   IMPLICIT NONE
   SAVE
   INTEGER, PARAMETER    :: mxdiv=   7   !
   INTEGER               :: nthdiv=  2                   !
   INTEGER(KIND=IW_Kind) :: nchdiv=  7        !
   INTEGER(KIND=IW_Kind) :: nqth(mxdiv)  = [20,20,0,0,0,0,0]   !
   INTEGER(KIND=IW_Kind) :: nqch(mxdiv)  = [13,10,20,10,20,10,13] !
   REAL(Kind=WP_Kind)    :: thdiv(mxdiv) = [0.D0, 0.75D0, 1.5707963267949D0, 0.D0, 0.d0, 0.d0, 0.d0] !
   REAL(Kind=WP_Kind)    :: chdiv(mxdiv+1) = [-HalfPi, -1.2472D0, -0.8472D0,  -0.2D0, 0.2D0, 0.8472D0, 1.2472D0, HalfPi] !
   NAMELIST/qdivp/ nthdiv, nqth, thdiv, nchdiv, nqch, chdiv
END MODULE QDiv_Module