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

9 Aug 2012

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:

    