[Commits] [svn:einsteintoolkit] GRHydro_InitData/trunk/src/ (Rev. 151)

[schnetter at cct.lsu.edu]

User: eschnett
Date: 2012/08/09 03:02 PM

Modified:
 /trunk/src/
  GRHydro_BondiM_new.F90, GRHydro_Bondi_new.F90

Log:
 Define Pi with double precision

File Changes:

Directory: /trunk/src/
======================

File [modified]: GRHydro_BondiM_new.F90
Delta lines: +1 -1
===================================================================
--- trunk/src/GRHydro_BondiM_new.F90	2012-08-09 06:27:00 UTC (rev 150)
+++ trunk/src/GRHydro_BondiM_new.F90	2012-08-09 20:02:21 UTC (rev 151)
@@ -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:
 

File [modified]: GRHydro_Bondi_new.F90
Delta lines: +1 -1
===================================================================
--- trunk/src/GRHydro_Bondi_new.F90	2012-08-09 06:27:00 UTC (rev 150)
+++ trunk/src/GRHydro_Bondi_new.F90	2012-08-09 20:02:21 UTC (rev 151)
@@ -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: