diff options
| author | jthorn <jthorn@e296648e-0e4f-0410-bd07-d597d9acff87> | 2002-11-17 16:11:26 +0000 |
|---|---|---|
| committer | jthorn <jthorn@e296648e-0e4f-0410-bd07-d597d9acff87> | 2002-11-17 16:11:26 +0000 |
| commit | fafb3fbc0f1fa1d631336b957bfb48a261cd70f3 (patch) | |
| tree | 4b191c7bd09f69441b444a7077e26f0c640c6d88 /src | |
| parent | 5f2de82bb99ee88df7e663ee0d5e7819b54d9ed8 (diff) | |
rename include/slice_normal.h --> include/slice_normal.inc
since it's actually Fortran code, not C/C++
Modified Files:
slice_data.F slice_evolve.F include/README
Added Files:
include/slice_normal.inc
Removed Files:
include/slice_normal.h
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@140 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src')
| -rw-r--r-- | src/include/README | 6 | ||||
| -rw-r--r-- | src/include/slice_normal.inc (renamed from src/include/slice_normal.h) | 4 | ||||
| -rw-r--r-- | src/slice_data.F | 6 | ||||
| -rw-r--r-- | src/slice_evolve.F | 4 |
4 files changed, 9 insertions, 11 deletions
diff --git a/src/include/README b/src/include/README index 0a83896..6efb713 100644 --- a/src/include/README +++ b/src/include/README @@ -24,6 +24,6 @@ param_defs.inc other decoded keyword/string parameters they should also live here. -slice_normal.h - Despite the file name, this actually contains Fortran (!) code, - to compute the normal vector to a slice. +slice_normal.inc + This contains a fragment of Fortran code to compute the + normal vector to a slice. diff --git a/src/include/slice_normal.h b/src/include/slice_normal.inc index 4b41d85..b8bb3d6 100644 --- a/src/include/slice_normal.h +++ b/src/include/slice_normal.inc @@ -1,3 +1,7 @@ +C slice_normal.inc -- common code for computing n^A and dx^A/dt, +C used in ../slice_data.F and ../slice_evolve.F +C $Header$ + C Fill in remaining components of metric. do m=1,4 do n=1,m-1 diff --git a/src/slice_data.F b/src/slice_data.F index 08b49cf..fd99882 100644 --- a/src/slice_data.F +++ b/src/slice_data.F @@ -6,9 +6,7 @@ C $Header$ #include "cctk_Arguments.h" subroutine Exact__slice_data(CCTK_ARGUMENTS) - implicit none - DECLARE_CCTK_ARGUMENTS integer i, j, k, l, m, n, p, q, s @@ -69,7 +67,7 @@ C Now we need the exact solution metric in the preferred coordinates x^A. C Calculate n^A and dx^A/dt -#include "include/slice_normal.h" +#include "include/slice_normal.inc" C Calculate g_ij = X^A,i X^B,j g_AB, at first in a temp. @@ -341,5 +339,3 @@ C Bound and synchronize the 3-metric and extrinsic curvature. return end - - diff --git a/src/slice_evolve.F b/src/slice_evolve.F index 9c95134..bff4f97 100644 --- a/src/slice_evolve.F +++ b/src/slice_evolve.F @@ -5,9 +5,7 @@ C $Header$ #include "cctk_Arguments.h" subroutine Exact__slice_evolve(CCTK_ARGUMENTS) - implicit none - DECLARE_CCTK_ARGUMENTS integer i,j,k,m,n @@ -86,7 +84,7 @@ C x^A. $ gu(1,2), gu(2,3), gu(1,3)) C Calculate n^A and dx^A/dt -#include "include/slice_normal.h" +#include "include/slice_normal.inc" end do end do |