Merge pull request #760 from MESAHub/chore/pmocz/format

fortitude linting

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

astero/test_suite/astero_adipls/src/run.f90

@@ -2,4 +2,4 @@ program run
       use astero_lib, only: run_star_astero
       use run_star_extras, only: extras_controls
       call run_star_astero(extras_controls)
-      end program
+      end program run

astero/test_suite/astero_gyre/src/run.f90

@@ -2,4 +2,4 @@ program run
       use astero_lib, only: run_star_astero
       use run_star_extras, only: extras_controls
       call run_star_astero(extras_controls)
-      end program
+      end program run

astero/test_suite/example_astero/src/run.f90

@@ -2,4 +2,4 @@ program run
       use astero_lib, only: run_star_astero
       use run_star_extras, only: extras_controls
       call run_star_astero(extras_controls)
-      end program
+      end program run

astero/test_suite/fast_from_file/src/run.f90

@@ -2,4 +2,4 @@ program run
       use astero_lib, only: run_star_astero
       use run_star_extras, only: extras_controls
       call run_star_astero(extras_controls)
-      end program
+      end program run

astero/test_suite/fast_newuoa/src/run.f90

@@ -2,4 +2,4 @@ program run
       use astero_lib, only: run_star_astero
       use run_star_extras, only: extras_controls
       call run_star_astero(extras_controls)
-      end program
+      end program run

astero/test_suite/fast_scan_grid/src/run.f90

@@ -2,4 +2,4 @@ program run
       use astero_lib, only: run_star_astero
       use run_star_extras, only: extras_controls
       call run_star_astero(extras_controls)
-      end program
+      end program run

astero/test_suite/fast_simplex/src/run.f90

@@ -2,4 +2,4 @@ program run
       use astero_lib, only: run_star_astero
       use run_star_extras, only: extras_controls
       call run_star_astero(extras_controls)
-      end program
+      end program run