adding some missing onlys (fortitude C131)

Author: pmocz

atm/preprocessor/src/create_BT_Settl.f90

@@ -23,7 +23,7 @@ module mod_BT_Settl
    use chem_def
    use chem_lib
    use const_def
-   use const_lib
+   use const_lib, only: const_init
    use num_lib, only: binary_search
 
    implicit none

atm/preprocessor/src/create_table_atm.f90

@@ -34,7 +34,7 @@ program create_table_atm
    use chem_def
    use chem_lib, only: chem_init, basic_composition_info
    use const_def
-   use const_lib
+   use const_lib, only: const_init
    use eos_def
    use eos_lib
    use kap_lib

atm/preprocessor/src/create_tau100.f90

@@ -27,7 +27,7 @@ module mod_tau100
    use chem_def
    use chem_lib, only: chem_init, basic_composition_info
    use const_def
-   use const_lib
+   use const_lib, only: const_init
    use eos_def
    use eos_lib
    use kap_lib

atm/preprocessor/src/create_wd_tau25.f90

@@ -19,7 +19,9 @@
 !   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 !
 ! ***********************************************************************
+
 module mod_wd_tau_25
+
    use const_def
    use utils_lib, only: mesa_error
 
@@ -34,7 +36,7 @@ module mod_wd_tau_25
 contains
 
    subroutine build_wd_tau_25_tables
-      use const_lib
+      use const_lib, only: const_init
       character(len=256) :: fname_in, fname_out, line, my_mesa_dir
       integer :: i, j, iounit, ierr, iounit_out, k
       real(dp) :: Prad, Teff_in, logg_in

atm/test/src/test_atm_setup.f90

@@ -14,7 +14,7 @@ module test_atm_setup
 contains
 
    subroutine setup
-      use const_lib
+      use const_lib, only: const_init
 
       logical, parameter :: use_cache = .true.
       character(len=256) :: my_mesa_dir

auto_diff/test/src/test_auto_diff.f90

@@ -1,7 +1,7 @@
 program test_auto_diff
    use math_lib
    use auto_diff
-   use const_def
+   use const_def, only: dp, ln10, pi
 
    implicit none
 

chem/preprocessor/src/chem_support.f90

@@ -1,6 +1,6 @@
 module chem_support
-   use const_def
-   use const_lib
+   use const_def, only: dp
+   use const_lib, only: const_init
    use math_lib
    use utils_lib, only: mesa_error
 

colors/test/src/test_colors.f90

@@ -12,7 +12,7 @@ program test_colors
 contains
 
    subroutine do_test_colors
-      use const_lib
+      use const_lib, only: const_init
 
       character(len=256) :: my_mesa_dir
       integer :: info

const/public/const_lib.f90

@@ -29,6 +29,9 @@ module const_lib
 
    implicit none
 
+   private
+   public :: const_init
+
 contains
 
    subroutine const_init(mesa_dir_init, ierr)

const/test/src/test_const.f90

@@ -1,6 +1,8 @@
 program test_const
+
    use const_def
-   use const_lib
+   use const_lib, only: const_init
+
    implicit none
 
    integer :: ierr
@@ -28,7 +30,6 @@ subroutine do_test_const
       write (*, fmt=fmt1) 'boltz_sigma*4/clight', boltz_sigma*4/clight
       write (*, fmt=fmt1) 'boltz_sigma/clight', boltz_sigma/clight
       write (*, fmt=fmt1) 'crad', crad
-
       write (*, fmt=fmt1) 'secyer', secyer
       write (*, fmt=fmt1) 'Msun', Msun
       write (*, fmt=fmt1) 'Rsun', Rsun
@@ -49,4 +50,3 @@ subroutine do_test_const
    end subroutine do_test_const
 
 end program test_const
-