fixed tests

MFlowCode · Dec 22, 2024 · 432bcff · 432bcff
1 parent 12de935
commit 432bcff
Show file tree

Hide file tree

Showing 10 changed files with 120 additions and 120 deletions.
diff --git a/src/common/m_helper.fpp b/src/common/m_helper.fpp
@@ -231,13 +231,13 @@ contains
         real(wp), intent(in) :: omega, peclet
         real(wp), intent(out) :: Re_trans, Im_trans
 
-        complex :: trans, c1, c2, c3
-        complex :: imag = (0._wp, 1._wp)
-        real(wp) :: f_transcoeff
+        complex(wp) :: imag, trans, c1, c2, c3
+
+        imag = (0._wp, 1._wp)
 
         c1 = imag*omega*peclet
-        c2 = csqrt(c1)
-        c3 = (cexp(c2) - cexp(-c2))/(cexp(c2) + cexp(-c2)) ! TANH(c2)
+        c2 = sqrt(c1)
+        c3 = (exp(c2) - exp(-c2))/(exp(c2) + exp(-c2)) ! TANH(c2)
         trans = ((c2/c3 - 1._wp)**(-1) - 3._wp/c1)**(-1) ! transfer function
 
         Re_trans = trans

diff --git a/tests/18A29336/golden-metadata.txt b/tests/18A29336/golden-metadata.txt
diff --git a/tests/1A1D02B7/golden-metadata.txt b/tests/1A1D02B7/golden-metadata.txt
diff --git a/tests/1A1D02B7/golden.txt b/tests/1A1D02B7/golden.txt
diff --git a/tests/5B195322/golden-metadata.txt b/tests/5B195322/golden-metadata.txt
diff --git a/tests/5B195322/golden.txt b/tests/5B195322/golden.txt
diff --git a/tests/81579DD9/golden-metadata.txt b/tests/81579DD9/golden-metadata.txt