MODULE FileUnits_OneDim_Module USE Numeric_Kinds_Module IMPLICIT NONE SAVE CHARACTER(LEN=200) InputDir !CHARACTER(LEN=200) OutDIr INTEGER(KIND=IW_Kind), PARAMETER:: Screen_Unit = 0 ! INTEGER(KIND=IW_Kind), PARAMETER:: Msg_unit = 4 ! INTEGER(KIND=IW_Kind), PARAMETER:: In_Unit = 5 ! INTEGER(KIND=IW_Kind), PARAMETER:: Out_Unit = 6 ! INTEGER(KIND=IW_Kind), PARAMETER:: Dbug_Unit = 7 INTEGER(KIND=IW_Kind), PARAMETER:: Time_Unit = 8 INTEGER(KIND=IW_Kind), PARAMETER:: Pot_Unit =10 INTEGER(KIND=IW_Kind), PARAMETER:: SYSPot_Unit =11 INTEGER(KIND=IW_Kind), PARAMETER:: Crit_Unit =12 INTEGER(KIND=IW_Kind), PARAMETER:: Graf_Unit =13 INTEGER(KIND=IW_Kind), PARAMETER:: Morse_Unit =14 INTEGER(KIND=IW_Kind), PARAMETER:: DAF_Unit =15 INTEGER(KIND=IW_Kind), PARAMETER:: DAFBin_Unit =16 INTEGER(KIND=IW_Kind), PARAMETER:: Numerov_Unit =17 INTEGER(KIND=IW_Kind), PARAMETER:: NumerovBin_Unit =18 INTEGER(KIND=IW_Kind), PARAMETER:: Spectra_Unit =19 INTEGER(KIND=IW_Kind), PARAMETER:: PsiDAFG_Unit =20 INTEGER(KIND=IW_Kind), PARAMETER:: PsiDAFGS_Unit =21 INTEGER(KIND=IW_Kind), PARAMETER:: PsiDAFD_Unit =22 INTEGER(KIND=IW_Kind), PARAMETER:: PsiDAFDS_Unit =23 INTEGER(KIND=IW_Kind), PARAMETER:: PsiNumerovG_Unit =24 INTEGER(KIND=IW_Kind), PARAMETER:: PsiNumerovGS_Unit =25 INTEGER(KIND=IW_Kind), PARAMETER:: PsiNumerovD_Unit =26 INTEGER(KIND=IW_Kind), PARAMETER:: PsiNumerovDS_Unit =27 INTEGER(KIND=IW_Kind), PARAMETER:: DAF_DVR_Unit =28 INTEGER(KIND=IW_Kind), PARAMETER:: Numerov_DVR_Unit =29 INTEGER(KIND=IW_Kind), PARAMETER:: EigPltNumerov_Unit=30 INTEGER(KIND=IW_Kind), PARAMETER:: EigPltDAF_Unit =31 INTEGER(KIND=IW_Kind), PARAMETER:: Numerov_Prop_Unit =32 INTEGER(KIND=IW_Kind), PARAMETER:: Continuum_Unit =33 INTEGER(KIND=IW_Kind), PARAMETER:: ContinuumBin_Unit =34 INTEGER(KIND=IW_Kind), PARAMETER:: BC_Plot_Unit =35 INTEGER(KIND=IW_Kind), PARAMETER:: Eig_Plot_Unit =36 INTEGER(KIND=IW_Kind), PARAMETER:: Dipole_Unit =37 INTEGER(KIND=IW_Kind), PARAMETER:: DAF_Oscil_Unit =38 INTEGER(KIND=IW_Kind), PARAMETER:: Numerov_Oscil_Unit=39 INTEGER(KIND=IW_Kind), PARAMETER:: BC_Bin_Unit =40 INTEGER(KIND=IW_Kind), PARAMETER:: Psi_Unit =41 INTEGER(KIND=IW_Kind), PARAMETER:: RMat_Unit =42 INTEGER(KIND=IW_Kind), PARAMETER:: Phase_Unit =43 INTEGER(KIND=IW_Kind), PARAMETER:: DPhase_Unit =44 INTEGER(KIND=IW_Kind), PARAMETER:: SMat_Unit =45 END MODULE FileUnits_OneDim_Module