diff options
| author | hawke <hawke@e296648e-0e4f-0410-bd07-d597d9acff87> | 2003-10-28 08:13:13 +0000 |
|---|---|---|
| committer | hawke <hawke@e296648e-0e4f-0410-bd07-d597d9acff87> | 2003-10-28 08:13:13 +0000 |
| commit | 8b60680f115a4a2442d8118f05d75ae12ed5957a (patch) | |
| tree | a436ff12a3e654294a5c347a1357cf3bfc8df593 /src/metrics | |
| parent | a938e767c92ceb2bf1b2257eeb1d104a2c991eb2 (diff) | |
Erik's function aliasing patches.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@194 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src/metrics')
| -rw-r--r-- | src/metrics/Kerr_KerrSchild.F77 | 1 | ||||
| -rw-r--r-- | src/metrics/Lemaitre.F77 | 1 | ||||
| -rw-r--r-- | src/metrics/Minkowski_conf_wave.F77 | 2 | ||||
| -rw-r--r-- | src/metrics/Minkowski_gauge_wave.F77 | 2 | ||||
| -rw-r--r-- | src/metrics/Thorne_fakebinary.F77 | 1 | ||||
| -rw-r--r-- | src/metrics/bowl.F77 | 1 |
6 files changed, 6 insertions, 2 deletions
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, |