fortitude fixes - double precision to real(dp)

MESAHub · Feb 16, 2025 · 5ef32ad · 5ef32ad
1 parent 061834a
commit 5ef32ad
Show file tree

Hide file tree

Showing 6 changed files with 20 additions and 24 deletions.
diff --git a/astero/private/astero_run_support.f90 b/astero/private/astero_run_support.f90
@@ -536,8 +536,8 @@ end subroutine do_scan_grid
 
       subroutine bobyqa_fun(n,x,f)
          integer, intent(in) :: n
-         double precision, intent(in) :: x(*)
-         double precision, intent(out) :: f
+         real(dp), intent(in) :: x(*)
+         real(dp), intent(out) :: f
 
          character(len=256) :: filename
          integer :: ierr
@@ -561,8 +561,8 @@ end subroutine bobyqa_fun
 
       subroutine newuoa_fun(n,x,f)
          integer, intent(in) :: n
-         double precision, intent(in) :: x(*)
-         double precision, intent(out) :: f
+         real(dp), intent(in) :: x(*)
+         real(dp), intent(out) :: f
 
          character(len=256) :: filename
          integer :: ierr
@@ -586,8 +586,8 @@ end subroutine newuoa_fun
 
       subroutine bobyqa_or_newuoa_fun(n,x,f)
          integer, intent(in) :: n
-         double precision, intent(in) :: x(*)
-         double precision, intent(out) :: f
+         real(dp), intent(in) :: x(*)
+         real(dp), intent(out) :: f
          integer :: ierr, prev_sample_number, i
          include 'formats'
 

diff --git a/eos/eosFreeEOS_builder/src/free_eos_table.f90 b/eos/eosFreeEOS_builder/src/free_eos_table.f90
@@ -442,7 +442,7 @@ subroutine Setup_MESA
       !..allocate and load the eos tables
       character (len=256) :: eos_file_prefix, my_mesa_dir
       integer :: info
-      double precision :: logT_all_HELM, logT_all_OPAL
+      real(dp) :: logT_all_HELM, logT_all_OPAL
       logical :: use_cache
 
       eos_file_prefix = 'mesa'

diff --git a/eos/test/src/test_eos_support.f90 b/eos/test/src/test_eos_support.f90
@@ -38,7 +38,7 @@ end subroutine test_eosPT
 
       subroutine test1_eosPT(Z, X, logPgas, logT, do_compare, quietly, logRho, logP)
          logical, intent(in) :: quietly
-         real(dp) :: Z, X, logPgas, logT
+         real(dp), intent(in) :: Z, X, logPgas, logT
          real(dp), intent(out) :: logRho, logP
          logical, intent(in) :: do_compare
          real(dp) :: &
@@ -58,15 +58,15 @@ subroutine test1_eosPT(Z, X, logPgas, logT, do_compare, quietly, logRho, logP)
 
          call Init_Composition(X, Z, 0d0, 0d0)  ! sets abar and zbar
 
-         if (.false.) then  ! TESTING
-            z =     0d0
-            x =     0.72d0
-            call Init_Composition(X, Z, 0d0, 0d0)  ! sets abar and zbar
-            abar =     1.2966413082679851D+00
-            zbar =     1.1021433867453336D+00
-            logPgas  = 4.8066181993619859D+00
-            logT  = 3.7569035961895620D+00
-         end if
+         !if (.false.) then  ! TESTING
+         !   Z = 0d0
+         !   X = 0.72d0
+         !   call Init_Composition(X, Z, 0d0, 0d0)  ! sets abar and zbar
+         !   abar    = 1.2966413082679851D+00
+         !   zbar    = 1.1021433867453336D+00
+         !   logPgas = 4.8066181993619859D+00
+         !   logT    = 3.7569035961895620D+00
+         !end if
 
          T = exp10(logT)
          Pgas = exp10(logPgas)
@@ -215,7 +215,7 @@ subroutine doit(str)
             character (len=*), intent(in) :: str
 
             if (.false.) then
-               T = 2d8; rho = 100
+               T = 2d8; rho = 100d0
                call Do_One_TRho(quietly,T,Rho,X,Zinit,dXC,dXO,Y,Z,res)  ! scvh
                stop
             end if

diff --git a/utils/private/utils_dict.f90 b/utils/private/utils_dict.f90
@@ -24,7 +24,7 @@
 ! ***********************************************************************
 
       module utils_dict
-      use utils_def
+      use utils_def, only: maxlen_key_string, integer_dict, hash_entry
 
       implicit none
 

diff --git a/utils/private/utils_idict.f90 b/utils/private/utils_idict.f90
@@ -24,7 +24,7 @@
 ! ***********************************************************************
 
       module utils_idict
-      use utils_def
+      use utils_def, only: integer_idict, ihash_entry
 
       implicit none
 

diff --git a/utils/public/utils_def.f90 b/utils/public/utils_def.f90
@@ -29,7 +29,6 @@ module utils_def
       integer, parameter :: min_io_unit = 29
       integer, parameter :: max_io_unit = 99
 
-
       integer, parameter :: eof_token = 1
       integer, parameter :: string_token = 2
       integer, parameter :: name_token = 3
@@ -67,8 +66,5 @@ module utils_def
       end type ihash_entry
 
 
-
-
-
       end module utils_def