From eedec74a6a9b01208f7df726d66f62206be2eb2f Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sun, 25 Feb 2018 12:31:23 +0100 Subject: [PATCH] correct debug reporting --- src/spectral_utilities.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/spectral_utilities.f90 b/src/spectral_utilities.f90 index 874558c57..c0863cebb 100644 --- a/src/spectral_utilities.f90 +++ b/src/spectral_utilities.f90 @@ -782,7 +782,7 @@ function utilities_maskedCompliance(rot_BC,mask_stress,C) if(debugGeneral) then write(6,'(/,a)') ' ... updating masked compliance ............................................' write(6,'(/,a,/,9(9(2x,f12.7,1x)/))',advance='no') ' Stiffness C (load) / GPa =',& - transpose(temp99_Real)/1.e9_pReal + transpose(temp99_Real)*1.0e-9_pReal flush(6) endif k = 0_pInt ! calculate reduced stiffness @@ -837,7 +837,7 @@ function utilities_maskedCompliance(rot_BC,mask_stress,C) endif if(debugGeneral) then write(6,'(/,a,/,9(9(2x,f10.5,1x)/),/)',advance='no') & - ' Masked Compliance (load) / GPa =', transpose(temp99_Real*1.e-9_pReal) + ' Masked Compliance (load) * GPa =', transpose(temp99_Real)*1.0e9_pReal flush(6) endif utilities_maskedCompliance = math_Plain99to3333(temp99_Real)