adding some onlys

MESAHub · Aug 29, 2024 · c503cd6 · c503cd6
1 parent 858efb0
commit c503cd6
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 5 deletions.
diff --git 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
@@ -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
@@ -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.