MODULE CMatt1_Module
   USE Numeric_Kinds_Module
   USE Max_Module
   IMPLICIT NONE
   SAVE
   REAL(KIND=dp) cmat(maxang,maxang)
END MODULE CMatt1_Module