From 219ea0f9714af804b709879991e3f650501ffc5e Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Tue, 16 Jun 2020 10:10:07 +0200
Subject: [PATCH] added imaginary unit variable imagu
---
src/prec_const_mod.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/prec_const_mod.F90 b/src/prec_const_mod.F90
index 7476c2a4..645e6641 100644
--- a/src/prec_const_mod.F90
+++ b/src/prec_const_mod.F90
@@ -40,7 +40,7 @@ MODULE prec_const
REAL(dp), PARAMETER :: onesixteenth=0.0625_dp
REAL(dp), PARAMETER :: ninesixteenths=0.5625_dp
REAL(dp), PARAMETER :: thirteentwelfths = 1.083333333333333333333333333333333333333333333_dp
-
+ COMPLEX(dp), PARAMETER :: imagu = (0,-1)
CONTAINS
SUBROUTINE INIT_PREC_CONST
--
GitLab