MODULE FileUnits_Common_Module
   USE Numeric_Kinds_Module
   IMPLICIT NONE
   SAVE
   CHARACTER(LEN=99)  OutDir
   CHARACTER(LEN=99)  InputDir
   CHARACTER(LEN=99), PARAMETER::InputRoot="D:/Input_Data/APH3D/"
   CHARACTER(LEN=99), PARAMETER::OutputRoot="E:/ParkerE/APH3D/"
   !INTEGER(KIND=IW_Kind), PARAMETER::Screen_Unit   =  0
   INTEGER(KIND=IW_Kind), PARAMETER::Msg_Unit      =  0        !
   INTEGER(KIND=IW_Kind), PARAMETER::In_Unit       =  3        !
   INTEGER(KIND=IW_Kind), PARAMETER::Out_Unit      =  6        !
ENDMODULE FileUnits_Common_Module