remove unnecessary iso_fortran_env

Author: pmocz

const/public/const_def.f90

@@ -29,14 +29,14 @@ module const_def
 
    ! real number precision options: single, double, quad
    integer, parameter :: sp = selected_real_kind(p=5)
-   integer, parameter :: dp = selected_real_kind(p=15)
-   integer, parameter :: qp = selected_real_kind(p=30)
+   integer, parameter :: dp = selected_real_kind(p=15)  ! real32
+   integer, parameter :: qp = selected_real_kind(p=30)  ! real64
 
    ! integer precision options
-   integer, parameter :: i1 = selected_int_kind(2)   ! 8 bits
-   integer, parameter :: i2 = selected_int_kind(4)   ! 16 bits
-   integer, parameter :: i4 = selected_int_kind(9)   ! 32 bits
-   integer, parameter :: i8 = selected_int_kind(18)  ! 64 bits
+   integer, parameter :: i1 = selected_int_kind(2)   ! int8
+   integer, parameter :: i2 = selected_int_kind(4)   ! int16
+   integer, parameter :: i4 = selected_int_kind(9)   ! int32
+   integer, parameter :: i8 = selected_int_kind(18)  ! int64
 
    integer, parameter :: strlen = 256  ! for character (len=strlen)
 

num/test/src/test_brent.f90

@@ -529,7 +529,7 @@ subroutine test_zero_one ( a, b, machep, t, f, title )
         real(dp) fz
         real(dp) machep
         real(dp) t
-        character ( len = *  ) title
+        character(len=*) title
         real(dp) z
         real(dp) dfdx
 
@@ -549,11 +549,11 @@ subroutine test_zero_one ( a, b, machep, t, f, title )
         ierr = 0
         fa = f ( a, dfdx, lrpar, rpar, lipar, ipar, ierr )
         if (ierr /= 0) call mesa_error(__FILE__,__LINE__)
-        fb = f ( b, dfdx, lrpar, rpar, lipar, ipar, ierr )
+        fb = f ( b, dfdx, lrpar, rpar, lipar, ipar, ierr)
         if (ierr /= 0) call mesa_error(__FILE__,__LINE__)
-        z = brent_safe_zero ( a, b, machep, t, 0d0, f, fa, fb, lrpar, rpar, lipar, ipar, ierr )
+        z = brent_safe_zero ( a, b, machep, t, 0d0, f, fa, fb, lrpar, rpar, lipar, ipar, ierr)
         if (ierr /= 0) call mesa_error(__FILE__,__LINE__)
-        fz = f ( z, dfdx, lrpar, rpar, lipar, ipar, ierr )
+        fz = f ( z, dfdx, lrpar, rpar, lipar, ipar, ierr)
         if (ierr /= 0) call mesa_error(__FILE__,__LINE__)
 
         if (abs(fz) < 1d-14) return

star/private/star_private_def.f90

@@ -31,7 +31,6 @@ module star_private_def
 
       implicit none
 
-
       real(dp), parameter :: del_cntr_rho = 1d0
       real(dp), parameter :: min_cntr_rho = 3d0
       real(dp), parameter :: no_he_ignition_limit = 0.75d0
@@ -394,7 +393,6 @@ integer function how_many_allocated_star_ids()
       end function how_many_allocated_star_ids
 
 
-
       subroutine free_star(s)
          type (star_info), pointer :: s
          star_handles(s% id)% in_use = .false.
@@ -413,7 +411,6 @@ subroutine stardata_init( &
             ionization_cache_dir, kap_cache_dir, rates_cache_dir, &
             color_num_files,color_file_names,color_num_colors,&
             ierr)
-         use iso_fortran_env
          use colors_lib, only : colors_init
          use kap_lib, only: kap_init
          use eos_lib, only: eos_init
@@ -438,7 +435,7 @@ subroutine stardata_init( &
             ionization_cache_dir, kap_cache_dir, rates_cache_dir
          integer, intent(in) :: color_num_files
          character (len=*), intent(in) :: color_file_names(:)
-         integer , intent(in):: color_num_colors(:)
+         integer, intent(in) :: color_num_colors(:)
          real(dp), intent(in) :: reaclib_min_T9_in
          logical, intent(in) :: use_suzuki_weak_rates, use_special_weak_rates
          integer, intent(out) :: ierr
@@ -553,12 +550,11 @@ subroutine stardata_init( &
 
          write(*,'(1x,a,1x,a)') 'version_number', trim(version_number)
 
-         !here we store useful information about the compiler and SDK
+         ! here we store useful information about the compiler and SDK
          call get_compiler_version(compiler_name,compiler_version_name)
          call get_mesasdk_version(mesasdk_version_name,ierr)
          call date_and_time(date=date)
 
       end subroutine stardata_init
 
       end module star_private_def
-

utils/public/utils_lib.f90

@@ -86,14 +86,13 @@ end subroutine get_compiler_version
 
 
   subroutine get_mesasdk_version(version, ierr)
-    use iso_fortran_env
     character(len=*), intent(out) :: version
     integer, intent(out) :: ierr
     character(len=strlen) :: mesasdk_root, filename
     integer :: unit, root_len, name_len
 
     ierr = 0
-    version = 'unknown'  !set here in case there is a problem below
+    version = 'unknown'  ! set here in case there is a problem below
 
     call get_environment_variable(name='MESASDK_VERSION', value=version, length=name_len, status=ierr)
     if (ierr /= 0) then