From c503cd617e415950b70b8790014e3d3a54a85f68 Mon Sep 17 00:00:00 2001 From: pmocz Date: Thu, 29 Aug 2024 15:54:50 -0400 Subject: [PATCH] adding some onlys --- star/private/hydro_rsp2_support.f90 | 5 ++--- star/private/pgstar_abundance.f90 | 2 +- star/private/star_profile_def.f90 | 2 +- 3 files changed, 4 insertions(+), 5 deletions(-) diff --git a/star/private/hydro_rsp2_support.f90 b/star/private/hydro_rsp2_support.f90 index 827b11405..9c4baf1d6 100644 --- a/star/private/hydro_rsp2_support.f90 +++ b/star/private/hydro_rsp2_support.f90 @@ -334,10 +334,9 @@ end subroutine rescale_xa subroutine revise_lnT_for_QHSE(P_surf, ierr) use eos_def, only: num_eos_basic_results, num_eos_d_dxa_results - use chem_lib - use chem_def + use chem_def, only: chem_isos use eos_support, only: solve_eos_given_DP - use eos_def + use eos_def, only: i_eta, i_lnfree_e use kap_def, only: num_kap_fracs use kap_support, only: get_kap real(dp), intent(in) :: P_surf diff --git a/star/private/pgstar_abundance.f90 b/star/private/pgstar_abundance.f90 index 5f3f4ae1d..f3d52cce3 100644 --- a/star/private/pgstar_abundance.f90 +++ b/star/private/pgstar_abundance.f90 @@ -307,7 +307,7 @@ end subroutine do_all integer function do1(cnt, str, legend_flag) - use chem_lib + use chem_lib, only: chem_get_iso_id integer, intent(in) :: cnt character (len=*), intent(in) :: str logical, intent(in) :: legend_flag diff --git a/star/private/star_profile_def.f90 b/star/private/star_profile_def.f90 index 8f3e58563..f50e1df2e 100644 --- a/star/private/star_profile_def.f90 +++ b/star/private/star_profile_def.f90 @@ -1431,7 +1431,7 @@ end subroutine profile_column_names_shutdown integer function do_get_profile_id(cname) - use utils_lib + use utils_lib, only: integer_dict_lookup character (len=*), intent(in) :: cname ! returns id for the profile column if there is a matching name ! returns 0 otherwise.