From 4d525c35bc6ada199601e4dd39f532c4aea6de2c Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 25 Nov 2023 16:21:00 +0100 Subject: [PATCH] use consistently case-sensitive parameters --- src/crystal.f90 | 8 ++++---- src/grid/spectral_utilities.f90 | 4 ++-- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/src/crystal.f90 b/src/crystal.f90 index f0dc1afcb..ff3291010 100644 --- a/src/crystal.f90 +++ b/src/crystal.f90 @@ -2128,9 +2128,9 @@ pure function crystal_isotropic_nu(C,assumption,lattice) result(nu) real(pREAL), dimension(6,6) :: S - if (IO_lc(assumption) == 'isostrain') then + if (assumption == 'isostrain') then K = sum(C(1:3,1:3)) / 9.0_pREAL - elseif (IO_lc(assumption) == 'isostress') then + elseif (assumption == 'isostress') then call math_invert(S,error,C) if (error) error stop 'matrix inversion failed' K = 1.0_pREAL / sum(S(1:3,1:3)) @@ -2160,7 +2160,7 @@ pure function crystal_isotropic_mu(C,assumption,lattice) result(mu) real(pREAL), dimension(6,6) :: S - if (IO_lc(assumption) == 'isostrain') then + if (assumption == 'isostrain') then select case(misc_optional(lattice,'')) case('cF','cI') mu = ( C(1,1) - C(1,2) + C(4,4)*3.0_pREAL) / 5.0_pREAL @@ -2171,7 +2171,7 @@ pure function crystal_isotropic_mu(C,assumption,lattice) result(mu) ) / 15.0_pREAL end select - elseif (IO_lc(assumption) == 'isostress') then + elseif (assumption == 'isostress') then select case(misc_optional(lattice,'')) case('cF','cI') mu = 5.0_pREAL & diff --git a/src/grid/spectral_utilities.f90 b/src/grid/spectral_utilities.f90 index de9518b8c..10915c5e4 100644 --- a/src/grid/spectral_utilities.f90 +++ b/src/grid/spectral_utilities.f90 @@ -226,7 +226,7 @@ subroutine spectral_utilities_init() scaledGeomSize = geomSize end if - select case(IO_lc(num_grid_fft%get_asStr('FFTW_plan_mode',defaultVal='FFTW_MEASURE'))) + select case(num_grid_fft%get_asStr('FFTW_plan_mode',defaultVal='FFTW_MEASURE')) case('fftw_estimate', 'FFTW_ESTIMATE') ! ordered from slow execution (but fast plan creation) to fast execution FFTW_planner_flag = FFTW_ESTIMATE case('fftw_measure', 'FFTW_MEASURE') @@ -236,7 +236,7 @@ subroutine spectral_utilities_init() case('fftw_exhaustive', 'FFTW_EXHAUSTIVE') FFTW_planner_flag = FFTW_EXHAUSTIVE case default - call IO_warning(47,'using default FFTW_MEASURE instead of "'//trim(num_grid_fft%get_asStr('plan_mode'))//'"') + call IO_warning(47,'using default FFTW_MEASURE instead of "'//trim(num_grid_fft%get_asStr('FFTW_plan_mode'))//'"') FFTW_planner_flag = FFTW_MEASURE end select