PROGRAM TestDiatomic
USE FileUnits_Common_Module
IMPLICIT NONE

InputDir="D:\Input_Data\APH3D\Testing\Test_Diatomic\"
OutDIr=  "E:\ParkerE\APH3D\Testing\Test_Diatomic\"

CALL Diatomic

STOP "TestDiatomic Completed"
ENDPROGRAM TestDiatomic