Erik's function aliasing patches.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@194 e296648e-0e4f-0410-bd07-d597d9acff87

17 files changed, 20 insertions, 5 deletions

diff --git a/src/blended_boundary.F77 b/src/blended_boundary.F77
index 2f08718..dfc3185 100644
--- a/src/blended_boundary.F77
+++ b/src/blended_boundary.F77
@@ -3,6 +3,7 @@ C $Header$
 #include "cctk.h"
 #include "cctk_Parameters.h"
 #include "cctk_Arguments.h"
+#include "cctk_Functions.h"
 
       subroutine Exact__blended_boundary(CCTK_ARGUMENTS)
 
diff --git a/src/boost.F77 b/src/boost.F77
index 1016305..4991d2a 100644
--- a/src/boost.F77
+++ b/src/boost.F77
@@ -17,6 +17,7 @@ c
 #include "cctk.h"
 #include "cctk_Parameters.h"
 #include "cctk_Arguments.h"
+#include "cctk_Functions.h"
 
 #include "param_defs.inc"
 
diff --git a/src/boundary.F77 b/src/boundary.F77
index 3e65f53..323de80 100644
--- a/src/boundary.F77
+++ b/src/boundary.F77
@@ -3,6 +3,7 @@ C $Header$
 #include "cctk.h"
 #include "cctk_Parameters.h"
 #include "cctk_Arguments.h"
+#include "cctk_Functions.h"
 
       subroutine Exact__boundary(CCTK_ARGUMENTS)
 
diff --git a/src/decode_pars.F77 b/src/decode_pars.F77
index 1fca945..4aa7370 100644
--- a/src/decode_pars.F77
+++ b/src/decode_pars.F77
@@ -21,6 +21,7 @@ c@@*/
 #include "cctk.h"
 #include "cctk_Parameters.h"
 #include "cctk_Arguments.h"
+#include "cctk_Functions.h"
 
 #include "param_defs.inc"
 
diff --git a/src/gauge.F77 b/src/gauge.F77
index 0434a94..8382760 100644
--- a/src/gauge.F77
+++ b/src/gauge.F77
@@ -6,6 +6,7 @@ C $Header$
 #include "cctk.h"
 #include "cctk_Parameters.h"
 #include "cctk_Arguments.h"
+#include "cctk_Functions.h"
 
       subroutine Exact__gauge(CCTK_ARGUMENTS)
 
@@ -54,7 +55,7 @@ C     Grid parameters.
 
 C     This code used to set  t = time + dt/2  to get 2nd order accuracy,
 C     but this leads to the initial data being set at the wrong time. :(
-C     In the context of MoL, we want to set variables at the standrd Cactus
+C     In the context of MoL, we want to set variables at the standard Cactus
 C     time (cctk_time), because MoL takes care of calling us at each MoL
 C     iteration, and updating the field variables appropriately.
 C
diff --git a/src/initialize.F77 b/src/initialize.F77
index 4ac7555..f5e5ad3 100644
--- a/src/initialize.F77
+++ b/src/initialize.F77
@@ -6,6 +6,7 @@ C $Header$
 #include "cctk.h"
 #include "cctk_Parameters.h"
 #include "cctk_Arguments.h"
+#include "cctk_Functions.h"
 
       subroutine Exact__initialize(CCTK_ARGUMENTS)
 
@@ -125,9 +126,9 @@ C     Save the conformal factor if wanted
       
 C     Tell the code there is no need to treat the conformal factor
 C     as a separate field. That is, we have set the physical metric here.
-c     Commented out in einstein revamp, now Exact doesnot inherit anything
+c     Commented out in einstein revamp, now Exact does not inherit anything
 c     about the conformal factor
-c     Now ot does again (see above, knarf)
+c     Now it does again (see above, knarf)
 
       return
       end
diff --git a/src/metric.F77 b/src/metric.F77
index 5486696..6f75d7a 100644
--- a/src/metric.F77
+++ b/src/metric.F77
@@ -6,6 +6,7 @@ C $Header$
 #include "cctk.h"
 #include "cctk_Parameters.h"
 #include "cctk_Arguments.h"
+#include "cctk_Functions.h"
 
 #include "param_defs.inc"
 
diff --git a/src/metrics/Kerr_KerrSchild.F77 b/src/metrics/Kerr_KerrSchild.F77
index a5b3297..e31b380 100644
--- a/src/metrics/Kerr_KerrSchild.F77
+++ b/src/metrics/Kerr_KerrSchild.F77
@@ -10,6 +10,7 @@ C $Header$
 
 #include "cctk.h"
 #include "cctk_Parameters.h"
+#include "cctk_Functions.h"
 
       subroutine Exact__Kerr_KerrSchild(
      $     x, y, z, t,
diff --git a/src/metrics/Lemaitre.F77 b/src/metrics/Lemaitre.F77
index 07fe8ce..742677f 100644
--- a/src/metrics/Lemaitre.F77
+++ b/src/metrics/Lemaitre.F77
@@ -9,6 +9,7 @@ C $Header$
 
 #include "cctk.h"
 #include "cctk_Parameters.h"
+#include "cctk_Functions.h"
 
 
       subroutine Exact__Lemaitre(
diff --git a/src/metrics/Minkowski_conf_wave.F77 b/src/metrics/Minkowski_conf_wave.F77
index e4bdad3..983c6ce 100644
--- a/src/metrics/Minkowski_conf_wave.F77
+++ b/src/metrics/Minkowski_conf_wave.F77
@@ -8,8 +8,8 @@ C and thus does *NOT* work with the "arbitrary slice evolver" option
 C of this thorn.
 
 #include "cctk.h"
-#include "cctk_Arguments.h"
 #include "cctk_Parameters.h"
+#include "cctk_Functions.h"
 
 #define Pi (4 * atan(1.d0))
 
diff --git a/src/metrics/Minkowski_gauge_wave.F77 b/src/metrics/Minkowski_gauge_wave.F77
index 5bdf103..c5bb267 100644
--- a/src/metrics/Minkowski_gauge_wave.F77
+++ b/src/metrics/Minkowski_gauge_wave.F77
@@ -7,8 +7,8 @@ C Copyright/License: unknown
 C
 
 #include "cctk.h"
-#include "cctk_Arguments.h"
 #include "cctk_Parameters.h"
+#include "cctk_Functions.h"
 
 #define Pi (4 * atan(1.d0))
 
diff --git a/src/metrics/Thorne_fakebinary.F77 b/src/metrics/Thorne_fakebinary.F77
index 1feb9b2..c04effb 100644
--- a/src/metrics/Thorne_fakebinary.F77
+++ b/src/metrics/Thorne_fakebinary.F77
@@ -9,6 +9,7 @@ C $Header$
 
 #include "cctk.h"
 #include "cctk_Parameters.h"
+#include "cctk_Functions.h"
 
       subroutine Exact__Thorne_fakebinary(
      $     x, y, z, t,
diff --git a/src/metrics/bowl.F77 b/src/metrics/bowl.F77
index be3955f..100d5e2 100644
--- a/src/metrics/bowl.F77
+++ b/src/metrics/bowl.F77
@@ -54,6 +54,7 @@ c $Header$
 
 #include "cctk.h"
 #include "cctk_Parameters.h"
+#include "cctk_Functions.h"
 
       subroutine Exact__bowl(
      $     x, y, z, t,
diff --git a/src/slice_data.F b/src/slice_data.F
index 088f635..4000917 100644
--- a/src/slice_data.F
+++ b/src/slice_data.F
@@ -4,6 +4,7 @@ C $Header$
 
 #include "cctk.h"
 #include "cctk_Arguments.h"
+#include "cctk_Functions.h"
 #include "Exact.inc"
 
       subroutine Exact__slice_data(CCTK_ARGUMENTS)
diff --git a/src/slice_evolve.F b/src/slice_evolve.F
index c074ec5..e17ceba 100644
--- a/src/slice_evolve.F
+++ b/src/slice_evolve.F
@@ -9,6 +9,7 @@ C
 
 #include "cctk.h"
 #include "cctk_Arguments.h"
+#include "cctk_Functions.h"
 #include "Exact.inc"
 
       subroutine Exact__slice_evolve(CCTK_ARGUMENTS)
diff --git a/src/slice_initialize.F b/src/slice_initialize.F
index a410f79..0933cd7 100644
--- a/src/slice_initialize.F
+++ b/src/slice_initialize.F
@@ -3,6 +3,7 @@ C $Header$
 #include "cctk.h"
 #include "cctk_Parameters.h"
 #include "cctk_Arguments.h"
+#include "cctk_Functions.h"
 #include "Exact.inc"
 
       subroutine Exact__slice_initialize(CCTK_ARGUMENTS)
diff --git a/src/xyz_blended_boundary.F77 b/src/xyz_blended_boundary.F77
index 3d88a3e..66bc924 100644
--- a/src/xyz_blended_boundary.F77
+++ b/src/xyz_blended_boundary.F77
@@ -3,6 +3,7 @@ C $Header$
 #include "cctk.h"
 #include "cctk_Parameters.h"
 #include "cctk_Arguments.h"
+#include "cctk_Functions.h"
 
       subroutine Exact__xyz_blended_boundary(CCTK_ARGUMENTS)