MODULE ReadK_Module USE Numeric_Kinds_Module USE TotalEng_Module USE QAsy_Numbers_Module IMPLICIT NONE SAVE INTEGER(Kind=IW_Kind) ithmat INTEGER(Kind=IW_Kind), ALLOCATABLE :: EminLoc(:), LastLoc(:), ElasLoc(:), InelasLoc(:), ReactLoc(:) END MODULE ReadK_Module