diff options
-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: |