MODULE FileUnits_Module USE Numeric_Kinds_Module IMPLICIT NONE SAVE INTEGER(KIND=Int4), PARAMETER::Msg_Unit = 0 ! INTEGER(KIND=Int4), PARAMETER::In_Unit = 3 ! INTEGER(KIND=Int4), PARAMETER::Out_Unit = 4 ! INTEGER(KIND=Int4), PARAMETER::frst_Unit = 14 ! INTEGER(KIND=Int4), PARAMETER::pmat_Unit = 15 ! INTEGER(KIND=Int4), PARAMETER::ovr_Unit = 16 ! INTEGER(KIND=Int4), PARAMETER::elvl_Unit = 17 ! INTEGER(KIND=Int4), PARAMETER::work_Unit = 18 ! INTEGER(KIND=Int4), PARAMETER::dwork_Unit = 19 ! INTEGER(KIND=Int4), PARAMETER::todo_Unit = 20 ! INTEGER(KIND=Int4), PARAMETER::phmat_Unit = 21 ! INTEGER(KIND=Int4), PARAMETER::fph_Unit = 22 ! INTEGER(KIND=Int4), PARAMETER::dmu_Unit = 23 ! INTEGER(KIND=Int4), PARAMETER::low_Unit = 24 ! INTEGER(KIND=Int4), PARAMETER::e_Unit = 25 ! INTEGER(KIND=Int4), PARAMETER::p_Unit = 26 ! INTEGER(KIND=Int4), PARAMETER::q_Unit = 27 ! INTEGER(KIND=Int4), PARAMETER::norm_Unit = 28 ! INTEGER(KIND=Int4), PARAMETER::intrp_Unit = 29 ! INTEGER(KIND=Int4), PARAMETER::bas_Unit = 30 ! INTEGER(KIND=Int4), PARAMETER::res_Unit = 31 ! INTEGER(KIND=Int4), PARAMETER::inho_Unit = 32 ! INTEGER(KIND=Int4), PARAMETER::tmutp_Unit = 33 ! INTEGER(KIND=Int4), PARAMETER::sflvl_Unit = 34 ! INTEGER(KIND=Int4), PARAMETER::jtot_Unit = 35 ! INTEGER(KIND=Int4), PARAMETER::lam_Unit = 36 ! INTEGER(KIND=Int4), PARAMETER::asym_Unit = 37 ! INTEGER(KIND=Int4), PARAMETER::cor_Unit = 38 ! INTEGER(KIND=Int4), PARAMETER::sbfrst_Unit = 39 ! INTEGER(KIND=Int4), PARAMETER::vec_Unit = 40 ! INTEGER(KIND=Int4), PARAMETER::vfrst_Unit = 41 ! INTEGER(KIND=Int4), PARAMETER::pfrst_Unit = 42 ! INTEGER(KIND=Int4), PARAMETER::weight_Unit = 43 ! INTEGER(KIND=Int4), PARAMETER::wfrst_Unit = 44 ! INTEGER(KIND=Int4), PARAMETER::sf33_Unit = 45 ! INTEGER(KIND=Int4), PARAMETER::sf34_Unit = 46 ! INTEGER(KIND=Int4), PARAMETER::phip_Unit = 47 ! INTEGER(KIND=Int4), PARAMETER::phid_Unit = 48 ! INTEGER(KIND=Int4), PARAMETER::efun_Unit = 49 ! INTEGER(KIND=Int4), PARAMETER::elm_Unit = 50 ! INTEGER(KIND=Int4), PARAMETER::nmode_Unit = 51 ! INTEGER(KIND=Int4), PARAMETER::progre_Unit = 52 ! INTEGER(KIND=Int4), PARAMETER::umat_Unit = 53 ! INTEGER(KIND=Int4), PARAMETER::sfunfbr_Unit = 54 ! INTEGER(KIND=Int4), PARAMETER::sflvl_Unit2 = 61 ! INTEGER(KIND=Int4), PARAMETER::dvr7 = 67 ! INTEGER(KIND=Int4), PARAMETER::dvr8 = 68 ! INTEGER(KIND=Int4), PARAMETER::dvr11 = 71 ! INTEGER(KIND=Int4), PARAMETER::dvr12 = 72 ! INTEGER(KIND=Int4), PARAMETER::dvr13 = 73 ! INTEGER(KIND=Int4), PARAMETER::dvr14 = 74 ! INTEGER(KIND=Int4), PARAMETER::dvr15 = 75 ! INTEGER(KIND=Int4), PARAMETER::dvr16 = 76 ! INTEGER(KIND=Int4), PARAMETER::dvr17 = 90 ! INTEGER(KIND=Int4), PARAMETER::dvr18 = 91 ! INTEGER(KIND=Int4), PARAMETER::dvr19 = 92 ! INTEGER(KIND=Int4), PARAMETER::dvr20 = 93 ! INTEGER(KIND=Int4), PARAMETER::dvr21 = 94 ! INTEGER(KIND=Int4), PARAMETER::dvr23 = 77 ! INTEGER(KIND=Int4), PARAMETER::dvr24 = 78 ! INTEGER(KIND=Int4), PARAMETER::dvr25 = 82 ! INTEGER(KIND=Int4), PARAMETER::dvr26 = 83 ! INTEGER(KIND=Int4), PARAMETER::dvr27 = 84 ! INTEGER(KIND=Int4), PARAMETER::dvr32 = 79 ! INTEGER(KIND=Int4), PARAMETER::dvr33 = 80 ! INTEGER(KIND=Int4), PARAMETER::dvr22 = 81 ! INTEGER(KIND=Int4), PARAMETER::csv_unit = 82 ! INTEGER(KIND=Int4), PARAMETER::Vee_Unit = 83 ! INTEGER(KIND=Int4), PARAMETER::MTV_Unit = 84 ! INTEGER(KIND=Int4), PARAMETER::DAF_Unit = 85 ! INTEGER(KIND=Int4), PARAMETER::Bound_Unit = 86 ! INTEGER(KIND=Int4), PARAMETER::DerUnit = 87 ! INTEGER(KIND=Int4), PARAMETER::EigUnit = 88 ! INTEGER(KIND=Int4), PARAMETER::Graf_Unit = 89 ! INTEGER(KIND=Int4), PARAMETER::xdaf_Unit = 90 ! INTEGER(KIND=Int4), PARAMETER::Num_Unit = 91 ! INTEGER(KIND=Int4), PARAMETER::DBug_Unit = 92 ! INTEGER(KIND=Int4), PARAMETER::Crit_Unit = 93 ! INTEGER(KIND=Int4), PARAMETER:: IdNames_Unit = 94 ! INTEGER(KIND=Int4), PARAMETER:: Time_Unit = 95 ! INTEGER(KIND=Int4), PARAMETER:: Psi_Unit = 96 ! INTEGER(KIND=Int4), PARAMETER:: Wrons_Unit = 97 ! INTEGER(KIND=Int4), PARAMETER:: Qn_Unit = 98 ! INTEGER(KIND=Int4), PARAMETER:: Angf_Unit = 99 ! INTEGER(KIND=Int4), PARAMETER:: Level0_Unit =100 ! INTEGER(KIND=Int4), PARAMETER:: Levels_Unit =101 ! INTEGER(KIND=Int4), PARAMETER:: ReadPot =102 ! INTEGER(KIND=Int4), PARAMETER:: Prob_Unit =103 ! INTEGER(KIND=Int4), PARAMETER:: Probf_Unit =104 ! INTEGER(KIND=Int4), PARAMETER:: BCUnit =105 ! INTEGER(KIND=Int4), PARAMETER:: QB_Unit =106 ! INTEGER(KIND=Int4), PARAMETER:: HfOut_Unit =107 ! INTEGER(KIND=Int4), PARAMETER:: HfPlt_Unit =108 ! INTEGER(KIND=Int4), PARAMETER:: Diad_Unit =109 ! INTEGER(KIND=Int4), PARAMETER:: ReadOvr =110 ! INTEGER(KIND=Int4), PARAMETER:: BC_Unit =111 ! INTEGER(KIND=Int4), PARAMETER:: ReadEig =112 ! INTEGER(KIND=Int4), PARAMETER::enerdata_unit =113 ! INTEGER(KIND=Int4), PARAMETER::maindata_unit =114 ! INTEGER(KIND=Int4), PARAMETER:: treal_unit =115 ! INTEGER(KIND=Int4), PARAMETER:: timag_unit =116 ! INTEGER(KIND=Int4), PARAMETER:: opac_unit =117 ! INTEGER(KIND=Int4), PARAMETER:: nj_unit =118 ! INTEGER(KIND=Int4), PARAMETER:: cs_unit =119 ! INTEGER(KIND=Int4), PARAMETER:: probe_unit =120 ! INTEGER(KIND=Int4), PARAMETER:: probqb_unit =121 ! INTEGER(KIND=Int4), PARAMETER:: elev_unit=122 ! INTEGER(KIND=Int4), PARAMETER:: temp_unit =123 ! INTEGER(KIND=Int4), PARAMETER:: tmatrix_unit =124 ! INTEGER(KIND=Int4), PARAMETER:: PotPlot_Unit =125 ! INTEGER(KIND=Int4), PARAMETER:: Graph_Unit =126 ! INTEGER(KIND=Int4), PARAMETER:: Evolv_Unit =127 ! INTEGER(KIND=Int4), PARAMETER:: angeigv_Unit =128 ! INTEGER(KIND=Int4), PARAMETER:: potmat_unit =129 ! INTEGER(KIND=Int4), PARAMETER:: overlap_Unit =130 ! INTEGER(KIND=Int4), PARAMETER:: probfe_unit =131 ! INTEGER(KIND=Int4), PARAMETER:: probse_unit =132 ! INTEGER(KIND=Int4), PARAMETER:: probqbf_unit =133 ! INTEGER(KIND=Int4), PARAMETER:: angbf_unit =134 ! INTEGER(KIND=Int4), PARAMETER:: nonun_unit =135 ! INTEGER(KIND=Int4), PARAMETER:: mainrec_unit =136 ! INTEGER(KIND=Int4), PARAMETER:: chanrec_unit =137 ! INTEGER(KIND=Int4), PARAMETER:: enerrec_unit =138 ! INTEGER(KIND=Int4), PARAMETER:: angeigf_Unit =139 ! INTEGER(KIND=Int4), PARAMETER:: Debug_Unit =140 ! INTEGER(KIND=Int4), PARAMETER:: dia2ad_unit =141 ! INTEGER(KIND=Int4), PARAMETER:: potmatsvd_unit =142 ! INTEGER(KIND=Int4), PARAMETER:: potmatdbs_unit =143 ! INTEGER(KIND=Int4), PARAMETER:: rmat_unit = 144 ! INTEGER(KIND=Int4), PARAMETER:: masses_unit = 145 ! INTEGER(KIND=Int4), PARAMETER:: id_unit= 146 ! INTEGER(KIND=Int4), PARAMETER:: plvls_unit= 147 ! INTEGER(KIND=Int4), PARAMETER:: psi_grace_unit= 148 ! INTEGER(KIND=Int4), PARAMETER::prob_grace_unit= 149 ! END MODULE FileUnits_Module