MODULE FileUnits_Module
   USE Numeric_Kinds_Module
   IMPLICIT NONE
   SAVE
   INTEGER(KIND=IW_Kind), PARAMETER::Msg_Unit      =  0        ! Message
   INTEGER(KIND=IW_Kind), PARAMETER::In_Unit       =  3        ! Input
   INTEGER(KIND=IW_Kind), PARAMETER::Out_Unit      =  4        ! Output
END MODULE FileUnits_Module