PROGRAM Program_Li3_Pairwise USE FileUnits_Module IMPLICIT NONE CHARACTER(LEN=100), PARAMETER:: SysDir='Li3/APH3D_Li3_Pairwise/' OutDir=TRIM(OutputRoot)//TRIM(SysDir) InputDir=TRIM(InputRoot)//TRIM(SysDir) CALL BasisForScattering STOP 'Program_Li3_Pairwise' ENDPROGRAM Program_Li3_Pairwise