From 9828a470af10cc60928e1afd297e82a1335e04b5 Mon Sep 17 00:00:00 2001 From: Thomas Gastine Date: Fri, 6 Sep 2024 16:43:42 +0200 Subject: [PATCH] some cleanups in fortranLib --- python/magic/fortranLib/readPot_single.f90 | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/python/magic/fortranLib/readPot_single.f90 b/python/magic/fortranLib/readPot_single.f90 index eed7bc3d..29dd0c4a 100644 --- a/python/magic/fortranLib/readPot_single.f90 +++ b/python/magic/fortranLib/readPot_single.f90 @@ -1,15 +1,17 @@ module potreader_single + use iso_fortran_env, only: cp => real32 + implicit none - real(kind=4) :: ra, ek, pr, prmag, radratio, sigma_ratio, omega_ma, omega_ic - real(kind=4) :: raxi, sc - real(kind=4) :: time + real(cp) :: ra, ek, pr, prmag, radratio, sigma_ratio, omega_ma, omega_ic + real(cp) :: raxi, sc + real(cp) :: time integer :: n_r_max, l_max, n_r_ic_max, lm_max, minc, version integer :: m_min, m_max - real(kind=4), allocatable :: radius(:), rho0(:) - complex(kind=4), allocatable :: pol(:,:), tor(:,:) - complex(kind=4), allocatable :: pol_ic(:,:), tor_ic(:,:) + real(cp), allocatable :: radius(:), rho0(:) + complex(cp), allocatable :: pol(:,:), tor(:,:) + complex(cp), allocatable :: pol_ic(:,:), tor_ic(:,:) contains