From 882a074ceaf7a00879fc21ad246a8f0bd5f19bd2 Mon Sep 17 00:00:00 2001
From: William	Counts <w.counts@mpie.de>
Date: Wed, 28 Mar 2007 08:51:31 +0000
Subject: [PATCH] fixed dsqrt intrinsic call in Mandel parameter list

---
 trunk/math.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/trunk/math.f90 b/trunk/math.f90
index 7de9783ca..86e4402e2 100644
--- a/trunk/math.f90
+++ b/trunk/math.f90
@@ -28,9 +28,9 @@
   1,3  &
  /),(/2,6/))
  real(pReal), dimension(6), parameter :: nrmMandel = &
- (/1.0_pReal,1.0_pReal,1.0_pReal,dsqrt(2.0_pReal),dsqrt(2.0_pReal),dsqrt(2.0_pReal)/)
+ (/1.0_pReal,1.0_pReal,1.0_pReal, 1.414213562373095_pReal, 1.414213562373095_pReal, 1.414213562373095_pReal/)
  real(pReal), dimension(6), parameter :: invnrmMandel = &
- (/1.0_pReal,1.0_pReal,1.0_pReal,dsqrt(0.5_pReal),dsqrt(0.5_pReal),dsqrt(0.5_pReal)/)
+ (/1.0_pReal,1.0_pReal,1.0_pReal,0.7071067811865476_pReal,0.7071067811865476_pReal,0.7071067811865476_pReal/)
  
 
  CONTAINS