From 93ded62e322c56c4782fdc6242dd8cbe8b4626fe Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Fri, 10 May 2019 16:38:47 +0200 Subject: [PATCH] better readable --- src/math.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/math.f90 b/src/math.f90 index bc8170a5a..8db0508ea 100644 --- a/src/math.f90 +++ b/src/math.f90 @@ -15,7 +15,7 @@ module math real(pReal), parameter, public :: PI = acos(-1.0_pReal) !< ratio of a circle's circumference to its diameter real(pReal), parameter, public :: INDEG = 180.0_pReal/PI !< conversion from radian into degree real(pReal), parameter, public :: INRAD = PI/180.0_pReal !< conversion from degree into radian - complex(pReal), parameter, public :: TWOPIIMG = (0.0_pReal,2.0_pReal)*(PI,0.0_pReal) !< Re(0.0), Im(2xPi) + complex(pReal), parameter, public :: TWOPIIMG = cmplx(0.0_pReal,2.0_pReal*PI) !< Re(0.0), Im(2xPi) real(pReal), dimension(3,3), parameter, public :: & MATH_I3 = reshape([&