Module Matrices_Module
   USE Numeric_Kinds_Module
   USE Max_Module
   IMPLICIT NONE
   SAVE
   REAL(KIND=dp) rd(maxang,maxang), rdt(maxang,maxang), scon(maxang,maxang), aa(maxang,maxang)
   REAL(KIND=dp) subd(maxang),sd(maxangv),en(maxang)
END Module Matrices_Module