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.