From 93f66a10cfa3174f693043fe091c08688924427f Mon Sep 17 00:00:00 2001 From: eschnett Date: Thu, 9 Aug 2012 20:02:21 +0000 Subject: Define Pi with double precision git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/GRHydro_InitData/trunk@151 ac85fae7-cede-4708-beff-ae01c7fa1c26 --- src/GRHydro_BondiM_new.F90 | 2 +- src/GRHydro_Bondi_new.F90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/GRHydro_BondiM_new.F90 b/src/GRHydro_BondiM_new.F90 index c582666..3b1f47d 100644 --- a/src/GRHydro_BondiM_new.F90 +++ b/src/GRHydro_BondiM_new.F90 @@ -31,7 +31,7 @@ #include "cctk_Functions.h" #include "GRHydro_Macros.h" -# define M_PI 3.14159265358979323846 /* pi */ +# define M_PI 3.14159265358979323846d0 /* pi */ !!$Newton-Raphson parameters: diff --git a/src/GRHydro_Bondi_new.F90 b/src/GRHydro_Bondi_new.F90 index bc059f6..9e56ef2 100644 --- a/src/GRHydro_Bondi_new.F90 +++ b/src/GRHydro_Bondi_new.F90 @@ -31,7 +31,7 @@ #include "cctk_Functions.h" #include "GRHydro_Macros.h" -# define M_PI 3.14159265358979323846 /* pi */ +# define M_PI 3.14159265358979323846d0 /* pi */ !!$Newton-Raphson parameters: -- cgit v1.2.3