adding onlys to use const_def

Author: pmocz

astero/private/adipls_support.f90

@@ -23,10 +23,10 @@
 
       module adipls_support
 
+      use const_def, only: dp, pi, four_thirds_pi, pi4
       use astero_def
       use star_lib
       use star_def
-      use const_def
       use utils_lib
 
 

astero/private/adipls_support_stub.f90

@@ -26,7 +26,7 @@ module adipls_support
       use astero_def
       use star_lib
       use star_def
-      use const_def
+      use const_def, only: dp
       use utils_lib
 
       implicit none

astero/private/astero_run_support.f90

@@ -24,7 +24,7 @@ module astero_run_support
 
       use star_lib
       use star_def
-      use const_def
+      use const_def, only: dp
       use astero_support
 
       implicit none
@@ -770,7 +770,7 @@ real(dp) function simplex_f( &
             write(*,*) 'chi2 < simplex_chi2_tol; stopping further iteration'
             ierr = -1
             return
-         endif
+         end if
 
       end function simplex_f
 

astero/private/astero_support.f90

@@ -26,15 +26,13 @@ module astero_support
       use astero_def
       use star_lib
       use star_def
-      use const_def
+      use const_def, only: dp, Rsun, standard_cgrav
       use math_lib
       use utils_lib
       use auto_diff
 
       implicit none
 
-
-
       contains
 
       subroutine check_search_controls(ierr)
@@ -111,7 +109,7 @@ subroutine get_one_el_info( &
                return
             end if
 
-            R = Rsun*s% photosphere_r
+            R = Rsun * s% photosphere_r
             G = standard_cgrav
             M = s% m_grav(1)
             sig_fac = (2*pi)*(2*pi)*R*R*R/(G*M)

astero/private/extras_support.f90

@@ -24,15 +24,14 @@ module extras_support
 
       use star_lib
       use star_def
-      use const_def
+      use const_def, only: dp, secyer
       use utils_lib
       use astero_support
       use astero_def
       use astero_def
 
       implicit none
 
-
       contains
 
 
@@ -1238,6 +1237,4 @@ end subroutine move_flg
 
       end subroutine move_extra_info
 
-
-
       end module extras_support

astero/private/gyre_support.f90

@@ -22,26 +22,18 @@
 
 module gyre_support
 
-  ! Uses
-
   use astero_def
   use star_lib
   use star_def
-  use const_def
+  use const_def, only: dp, clight, crad, standard_cgrav, msun, rsun, lsun, mesa_dir
   use utils_lib
 
   use gyre_mesa_m
 
-  ! No implicit typing
-
   implicit none
 
-  ! Module variables
-
   logical, parameter :: GYRE_IS_ENABLED = .true.
 
-  ! Access specifiers
-
   private
 
   public :: GYRE_IS_ENABLED
@@ -52,14 +44,10 @@ module gyre_support
   public :: gyre_call_back
   public :: save_gyre_mode_info
 
-  ! Procedures
-
 contains
 
   subroutine init_gyre (gyre_file, ierr)
 
-    use const_def
-
     character(*), intent(in) :: gyre_file
     integer, intent(out)     :: ierr
 
@@ -83,13 +71,10 @@ subroutine init_gyre (gyre_file, ierr)
 
     write(*,*) 'done init_gyre'
 
-    ! Finish
-
     return
 
   end subroutine init_gyre
 
-  !****
 
   subroutine do_gyre_get_modes (s, el, store_model, ierr)
 
@@ -133,13 +118,10 @@ subroutine do_gyre_get_modes (s, el, store_model, ierr)
        write(*,1) 'time_in_oscillation_code and total', time, total_time_in_oscillation_code
     end if
 
-    ! Finish
-
     return
 
   end subroutine do_gyre_get_modes
 
-  !****
 
   subroutine null_gyre_call_back (md, ipar, rpar, ierr)
     type(mode_t), intent(in) :: md
@@ -149,7 +131,6 @@ subroutine null_gyre_call_back (md, ipar, rpar, ierr)
     ierr = 0
   end subroutine null_gyre_call_back
 
-  !****
 
   subroutine store_model_for_gyre (s, add_center_point, keep_surface_point, add_atmosphere, ierr)
 
@@ -226,7 +207,6 @@ subroutine store_model_for_gyre (s, add_center_point, keep_surface_point, add_at
 
     end if
 
-    ! Finish
 
     return
 
@@ -246,16 +226,12 @@ function num_string (n)
 
        write(num_string, format_string) s%model_number
 
-       ! Finish
-
        return
 
      end function num_string
 
   end subroutine store_model_for_gyre
 
-  !****
-
   subroutine gyre_call_back(md, ipar, rpar, ierr)
 
     use astero_def, only: store_new_oscillation_results
@@ -286,13 +262,10 @@ subroutine gyre_call_back(md, ipar, rpar, ierr)
          new_el, new_order, new_em, new_inertia, new_cyclic_freq, new_growth_rate, &
          md, ipar, rpar, ierr)
 
-    ! Finish
-
     return
 
   end subroutine gyre_call_back
 
-  !****
 
   subroutine save_gyre_mode_info( &
        new_el, new_order, new_em, new_inertia, new_cyclic_freq, new_growth_rate, &

astero/private/pgstar_astero_plots.f90

@@ -128,7 +128,7 @@ subroutine do_echelle_plot( &
             id, device_id, xleft, xright, ybot, ytop, subplot, title, txt_scale, ierr)
 
          use utils_lib
-         use const_def
+         use const_def, only: dp
 
          integer, intent(in) :: id, device_id
          real, intent(in) :: xleft, xright, ybot, ytop, txt_scale
@@ -400,7 +400,7 @@ subroutine do_ratios_plot( &
             id, device_id, xleft, xright, ybot, ytop, subplot, title, txt_scale, ierr)
 
          use utils_lib
-         use const_def
+         use const_def, only: dp
 
          integer, intent(in) :: id, device_id
          real, intent(in) :: xleft, xright, ybot, ytop, txt_scale
@@ -650,6 +650,3 @@ end subroutine write_plot_to_file
 
       end module pgstar_astero_plots
 
-
-
-

astero/public/astero_def.f90

@@ -26,7 +26,7 @@
       module astero_def
       use star_lib
       use star_def
-      use const_def
+      use const_def, only: dp, strlen
       use math_lib
       use utils_lib
       use star_pgstar

atm/private/atm_irradiated.f90

@@ -26,23 +26,15 @@
 
 module atm_irradiated
 
-  ! Uses
-
-  use const_def
+  use const_def, only: dp
   use math_lib
 
-  ! No implicit typing
-
   implicit none
 
-  ! Access specifiers
-
   private
 
   public :: eval_irradiated
 
-  ! Procedures
-
 contains
 
   ! Evaluate irradiated atmosphere data with fixed, uniform opacity
@@ -107,7 +99,7 @@ subroutine eval_irradiated( &
     if (L <= 0._dp .OR. R <= 0._dp .OR. M <= 0._dp) then
        ierr = -1
        return
-    endif
+    end if
 
     ! Evaluate the 'interior' temperature & gravity
 
@@ -191,21 +183,18 @@ subroutine eval_irradiated( &
 
        dlnT_dlnkap = 0._dp
 
-    endif
+    end if
 
     ! Set the effective temperature. This is equal to T_int, because
     ! irradiation has no effect on the *net* flux emerging from the
     ! atmosphere
 
     ! Teff = T_int
 
-    ! Finish
-
     return
 
   end subroutine eval_irradiated
 
-  !****
 
   ! Evaluate atmosphere data
 
@@ -273,7 +262,7 @@ subroutine eval_data( &
        gamma_eff = gamma
     else
        gamma_eff = kap_v/kap
-    endif
+    end if
 
     x = gamma_eff*tau
 
@@ -323,7 +312,7 @@ subroutine eval_data( &
           dlnx_dlnkap = 1._dp
        else
           dlnx_dlnkap = 0._dp
-       endif
+       end if
 
        dlnT_dL = (dlnT_dlnT_int*dlnT_int_dlnL + &
                   dlnT_dlntau*dlntau_dlnL + &
@@ -345,9 +334,7 @@ subroutine eval_data( &
        dlnT_dlnM = 0._dp
        dlnT_dlnkap = 0._dp
 
-    endif
-
-    ! Finish
+    end if
 
     return