diff options
author | eschnett <eschnett@ac85fae7-cede-4708-beff-ae01c7fa1c26> | 2012-08-09 20:02:21 +0000 |
---|---|---|
committer | eschnett <eschnett@ac85fae7-cede-4708-beff-ae01c7fa1c26> | 2012-08-09 20:02:21 +0000 |
commit | 93f66a10cfa3174f693043fe091c08688924427f (patch) | |
tree | 2ef0f2a7c62e1c459d0a9e3c7ffe6ef14dad3348 /src | |
parent | c2dd440ec996e9493f4067ae328f379d35ce618f (diff) |
Define Pi with double precision
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/GRHydro_InitData/trunk@151 ac85fae7-cede-4708-beff-ae01c7fa1c26
Diffstat (limited to 'src')
-rw-r--r-- | src/GRHydro_BondiM_new.F90 | 2 | ||||
-rw-r--r-- | 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: |