adding missing implicit nones

Author: pmocz

astero/private/astero_run_support.f90

@@ -44,6 +44,7 @@ subroutine do_run_star_astero( &
          use gyre_support, only: gyre_is_enabled, init_gyre
          interface
             subroutine extras_controls(id, ierr)
+               implicit none
                integer, intent(in) :: id
                integer, intent(out) :: ierr
             end subroutine extras_controls

astero/public/astero_def.f90

@@ -45,13 +45,15 @@ module astero_def
       abstract interface
 
          subroutine other_proc_interface(id, ierr)
+            implicit none
             integer, intent(in) :: id
             integer, intent(out) :: ierr
          end subroutine other_proc_interface
 
          subroutine other_adipls_mode_info_interface( &
                l, order, freq, inertia, x, y, aa, data, nn, iy, iaa, ispcpr, ierr)
             use const_def, only: dp
+            implicit none
             integer, intent(in) :: l, order
             real(dp), intent(in) :: freq, inertia
             integer, intent(in) :: nn, iy, iaa, ispcpr
@@ -614,6 +616,7 @@ end subroutine other_adipls_mode_info_interface
 
          subroutine set_constraint_value_interface(id, name, val, ierr)
             use const_def, only: dp, strlen
+            implicit none
             integer, intent(in) :: id
             character(len=strlen), intent(in) :: name
             real(dp), intent(out) :: val
@@ -622,13 +625,15 @@ end subroutine set_constraint_value_interface
 
          subroutine set_param_interface(id, name, val, ierr)
             use const_def, only: dp, strlen
+            implicit none
             integer, intent(in) :: id
             character(len=strlen), intent(in) :: name ! which param to set
             real(dp), intent(in) :: val
             integer, intent(out) :: ierr
          end subroutine set_param_interface
 
          subroutine extras_controls_interface(id, ierr)
+            implicit none
             integer, intent(in) :: id
             integer, intent(out) :: ierr
          end subroutine extras_controls_interface

astero/public/astero_lib.f90

@@ -50,6 +50,7 @@ subroutine run_star_astero( &
          use astero_def, only: init_astero_def
          interface
             subroutine extras_controls(id, ierr)
+               implicit none
                integer, intent(in) :: id
                integer, intent(out) :: ierr
             end subroutine extras_controls

atm/private/atm_t_tau_uniform.f90

@@ -454,6 +454,7 @@ subroutine build_solout( &
       interface
          real(dp) function interp_y(i, s, rwork_y, iwork_y, ierr)
            use const_def, only: dp
+           implicit none
            integer, intent(in) :: i
            real(dp), intent(in) :: s
            real(dp), intent(inout), target :: rwork_y(*)

atm/private/atm_t_tau_varying.f90

@@ -490,6 +490,7 @@ subroutine eval_solout( &
       interface
          real(dp) function interp_y(i, s, rwork_y, iwork_y, ierr)
            use const_def, only: dp
+           implicit none
            integer, intent(in) :: i
            real(dp), intent(in) :: s
            real(dp), intent(inout), target :: rwork_y(*)
@@ -719,6 +720,7 @@ subroutine build_solout( &
       interface
          real(dp) function interp_y(i, s, rwork_y, iwork_y, ierr)
            use const_def, only: dp
+           implicit none
            integer, intent(in) :: i
            real(dp), intent(in) :: s
            real(dp), intent(inout), target :: rwork_y(*)

atm/public/atm_def.f90

@@ -129,6 +129,7 @@ subroutine atm_eos_iface( &
           lnRho, res, dres_dlnRho, dres_dlnT, &
           ierr)
        use const_def, only: dp
+       implicit none
        real(dp), intent(in)  :: lnP
        real(dp), intent(in)  :: lnT
        real(dp), intent(out) :: lnRho
@@ -145,6 +146,7 @@ subroutine atm_kap_iface( &
           kap, dlnkap_dlnRho, dlnkap_dlnT, &
           ierr)
        use const_def, only: dp
+       implicit none
        real(dp), intent(in)  :: lnRho
        real(dp), intent(in)  :: lnT
        real(dp), intent(in)  :: res(:)

binary/private/pgbinary_hist_track.f90

@@ -642,6 +642,7 @@ subroutine do_Hist_Track(b, id, device_id, &
          show_annotation1, show_annotation2, show_annotation3, use_decorator
       interface
          subroutine decorate(id, ierr)
+            implicit none
             integer, intent(in) :: id
             integer, intent(out) :: ierr
          end subroutine decorate

binary/private/run_binary_support.f90

@@ -77,11 +77,13 @@ subroutine do_run1_binary(tst, &
       interface
 
          subroutine extras_controls(id, ierr)
+            implicit none
             integer, intent(in) :: id
             integer, intent(out) :: ierr
          end subroutine extras_controls
 
          subroutine extras_binary_controls(binary_id, ierr)
+            implicit none
             integer :: binary_id
             integer, intent(out) :: ierr
          end subroutine extras_binary_controls

binary/public/binary_def.f90

@@ -56,19 +56,22 @@ module binary_def
 
          subroutine other_rlo_mdot_interface(binary_id, rlo_mdot, ierr)
             use const_def, only: dp
+            implicit none
             integer, intent(in) :: binary_id
             real(dp), intent(out) :: rlo_mdot
             integer, intent(out) :: ierr
          end subroutine other_rlo_mdot_interface
 
          integer function other_check_implicit_rlo_interface(binary_id, new_mdot)
             use const_def, only: dp
+            implicit none
             integer, intent(in) :: binary_id
             real(dp), intent(out) :: new_mdot
          end function other_check_implicit_rlo_interface
 
          subroutine other_implicit_function_to_solve_interface(binary_id, function_to_solve, use_sum, detachment, ierr)
             use const_def, only: dp
+            implicit none
             integer, intent(in) :: binary_id
             real(dp), intent(out) :: function_to_solve
             logical, intent(out) :: use_sum, detachment
@@ -77,6 +80,7 @@ end subroutine other_implicit_function_to_solve_interface
 
          subroutine other_tsync_interface(id, sync_type, Ftid, qratio, m, r_phot, osep, t_sync, ierr)
             use const_def, only: dp, strlen
+            implicit none
             integer, intent(in) :: id
             character (len=strlen), intent(in) :: sync_type
             real(dp), intent(in) :: Ftid
@@ -90,6 +94,7 @@ end subroutine other_tsync_interface
 
          subroutine other_sync_spin_to_orbit_interface(id, nz, osep, qratio, rl, dt_next, Ftid, sync_type, sync_mode, ierr)
             use const_def, only: dp, strlen
+            implicit none
             integer, intent(in) :: id
             integer, intent(in) :: nz
             real(dp), intent(in) :: osep
@@ -104,99 +109,118 @@ end subroutine other_sync_spin_to_orbit_interface
 
          subroutine other_mdot_edd_interface(binary_id, mdot_edd, mdot_edd_eta, ierr)
             use const_def, only: dp
+            implicit none
             integer, intent(in) :: binary_id
             real(dp), intent(out) :: mdot_edd
             real(dp), intent(out) :: mdot_edd_eta
             integer, intent(out) :: ierr
          end subroutine other_mdot_edd_interface
 
          subroutine other_adjust_mdots_interface(binary_id, ierr)
+            implicit none
             integer, intent(in) :: binary_id
             integer, intent(out) :: ierr
          end subroutine other_adjust_mdots_interface
 
          subroutine other_accreted_material_j_interface(binary_id, ierr)
+            implicit none
             integer, intent(in) :: binary_id
             integer, intent(out) :: ierr
          end subroutine other_accreted_material_j_interface
 
          subroutine other_jdot_interface(binary_id, ierr)
+            implicit none
             integer, intent(in) :: binary_id
             integer, intent(out) :: ierr
          end subroutine other_jdot_interface
 
          subroutine other_binary_wind_transfer_interface(binary_id, s_i, ierr)
+            implicit none
             integer, intent(in) :: binary_id, s_i
             integer, intent(out) :: ierr
          end subroutine other_binary_wind_transfer_interface
 
          subroutine other_edot_interface(binary_id, ierr)
+            implicit none
             integer, intent(in) :: binary_id
             integer, intent(out) :: ierr
          end subroutine other_edot_interface
 
          subroutine other_CE_init_interface(binary_id, restart, ierr)
+            implicit none
             integer, intent(in) :: binary_id
             logical, intent(in) :: restart
             integer, intent(out) :: ierr
          end subroutine other_CE_init_interface
 
          subroutine other_CE_rlo_mdot_interface(binary_id, rlo_mdot, ierr)
             use const_def, only: dp
+            implicit none
             integer, intent(in) :: binary_id
             real(dp), intent(out) :: rlo_mdot
             integer, intent(out) :: ierr
          end subroutine other_CE_rlo_mdot_interface
 
          integer function other_CE_binary_evolve_step_interface(binary_id)
+            implicit none
             integer, intent(in) :: binary_id
          end function other_CE_binary_evolve_step_interface
 
          integer function other_CE_binary_finish_step_interface(binary_id)
+            implicit none
             integer, intent(in) :: binary_id
          end function other_CE_binary_finish_step_interface
 
          integer function extras_binary_startup_interface(binary_id,restart,ierr)
+            implicit none
             integer, intent(in) :: binary_id
             integer, intent(out) :: ierr
             logical,intent(in) :: restart
          end function extras_binary_startup_interface
 
          integer function extras_binary_start_step_interface(binary_id, ierr)
+            implicit none
             integer, intent(in) :: binary_id
             integer, intent(out) :: ierr
          end function extras_binary_start_step_interface
 
          integer function extras_binary_check_model_interface(binary_id)
+            implicit none
             integer, intent(in) :: binary_id
          end function extras_binary_check_model_interface
 
          integer function extras_binary_finish_step_interface(binary_id)
+            implicit none
             integer, intent(in) :: binary_id
          end function extras_binary_finish_step_interface
 
          subroutine extras_binary_after_evolve_interface(binary_id, ierr)
+            implicit none
             integer, intent(in) :: binary_id
             integer, intent(out) :: ierr
          end subroutine extras_binary_after_evolve_interface
 
          subroutine other_binary_photo_write_interface(binary_id, iounit)
+            implicit none
             integer, intent(in) :: binary_id, iounit
          end subroutine other_binary_photo_write_interface
 
          subroutine other_binary_photo_read_interface(binary_id, iounit, ierr)
+            implicit none
             integer, intent(in) :: binary_id, iounit
             integer, intent(out) :: ierr
          end subroutine other_binary_photo_read_interface
 
          subroutine other_e2_interface(id, e2, ierr)
             use const_def, only: dp
+            implicit none
             integer, intent(in) :: id
             real(dp),intent (out) :: e2
             integer, intent(out) :: ierr
          end subroutine other_e2_interface
 
          subroutine other_pgbinary_plots_info_interface(id, ierr)
+            implicit none
             integer, intent(in) :: id
             integer, intent(out) :: ierr
          end subroutine other_pgbinary_plots_info_interface

binary/public/binary_lib.f90

@@ -46,11 +46,13 @@ subroutine run1_binary(tst, &
          interface
 
             subroutine extras_controls(id, ierr)
+               implicit none
                integer, intent(in) :: id
                integer, intent(out) :: ierr
             end subroutine extras_controls
 
             subroutine extras_binary_controls(binary_id, ierr)
+               implicit none
                integer :: binary_id
                integer, intent(out) :: ierr
             end subroutine extras_binary_controls