update to fortitude 0.7.1

Author: pmocz

eos/eosDT_builder/src/azbar.f90

@@ -29,4 +29,4 @@ subroutine azbar(xmass, aion, zion, ionmax, ymass, abar, zbar)
    end do
    abar = 1.0d0/ytot1
    zbar = zbarxx*abar
-end
+end subroutine azbar

eos/eosDT_builder/src/create_eos_files.f90

@@ -198,4 +198,4 @@ subroutine Make_EoS_Files(Z_in, X_in, include_radiation)
 
    end subroutine Make_EoS_Files
 
-end
+end program create_eosDT_files

eos/eosDT_builder/src/helm_opal_scvh_driver.f90

@@ -469,6 +469,6 @@ subroutine get_helmeos(include_radiation)
 
       end subroutine get_helmeos
 
-   end subroutine
+   end subroutine helm_opal_scvh
 
 end module helm_opal_scvh_driver

eos/eosDT_builder/src/opal_scvh_driver.f90

@@ -56,7 +56,7 @@ subroutine interpolate_opal_scvh(opal_only, scvh_only, include_radiation, search
 
       dlnPgas_dlnY = 0
 
-   end subroutine
+   end subroutine interpolate_opal_scvh
 
    subroutine do_opal_scvh(opal_only, scvh_only, include_radiation, search_for_SCVH, &
                            logT_in, logRho_in, temp_in, den_in, abar_in, zbar_in, X_in, Z_in, &
@@ -488,7 +488,7 @@ subroutine do_opal_scvh(opal_only, scvh_only, include_radiation, search_for_SCVH
 
       return
 
-   end subroutine
+   end subroutine do_opal_scvh
 
    subroutine blend(alfa, beta, den, temp, Prad, logPgas_1, logPgas_2, logS_1, logS_2, &
                     dS_dT_1, dS_dT_2, dS_dRho_1, dS_dRho_2, &

fortitude.toml

@@ -1,3 +1,3 @@
 [check]
-ignore = ["E001","C001","C003","C061","C071","C072","C092","C121","C131","S061","OB011","PORT011"]
+ignore = ["C001","C003","C061","C071","C072","C092","C121","C131","OB011","PORT011"]
 line-length = 180

kap/preprocessor/src/plot.f90

@@ -155,4 +155,4 @@ subroutine Open_Plot_Outfiles(io_first, io_last, io_params, ioR, io_tmp, dir)
 
    end subroutine Open_Plot_Outfiles
 
-end
+end program plot_kap_builder

num/test/src/test_brent.f90

@@ -504,16 +504,16 @@ subroutine test_zero_one(a, b, machep, t, f, title)
          include 'num_root_fcn.dek'  ! f provides function values
       end interface
 
-      real(dp) a
-      real(dp) b
-      real(dp) fa
-      real(dp) fb
-      real(dp) fz
-      real(dp) machep
-      real(dp) t
-      character(len=*) title
-      real(dp) z
-      real(dp) dfdx
+      real(dp) :: a
+      real(dp) :: b
+      real(dp) :: fa
+      real(dp) :: fb
+      real(dp) :: fz
+      real(dp) :: machep
+      real(dp) :: t
+      character(len=*) :: title
+      real(dp) :: z
+      real(dp) :: dfdx
 
       integer, parameter :: lrpar = 0, lipar = 0
       integer :: ierr

requirements-dev.txt

@@ -1,4 +1,4 @@
-fortitude-lint>=0.7.0
+fortitude-lint>=0.7.1
 fprettify>=0.3.7
 ruff>=0.9.9
 sphinx-lint>=1.0.0

stella/res/stella_extras.f90

@@ -18,8 +18,8 @@ program main
    real(dp), allocatable, dimension(:) :: &
       t, m, dm, h, he, c, n, o, ne, na, mg, al, si, s, ar, ca, fe, ni
    real(dp) :: dum, time, X, sum_tau, tauph, tau_extra, denmax, gdepos
-   character*132 :: runname, filestr, fname, test_str
-   character*256 :: line, my_mesa_dir
+   character(len=132) :: runname, filestr, fname, test_str
+   character(len=256) :: line, my_mesa_dir
 
    real(dp), parameter :: &
       A_Fe56 = 56d0, lambda0 = 5169.02d-8, f = 0.023d0, Z_div_X_solar = 0.02293d0, &