diff options
| author | schnetter <schnetter@b716e942-a2de-43ad-8f52-f3dfe468e4e7> | 2003-08-22 18:42:38 +0000 |
|---|---|---|
| committer | schnetter <schnetter@b716e942-a2de-43ad-8f52-f3dfe468e4e7> | 2003-08-22 18:42:38 +0000 |
| commit | 67af3617f82fda6b4fb7e3fa9e8e012c4fae9844 (patch) | |
| tree | 74353b479e3678276d78ca7191811f7fec85fd2b | |
| parent | e364f7ff45ad824677e262f3d6974c9a96e2ae97 (diff) | |
Use thorn Slab instead of the old hyperslabbing interface.
Do not declare the parameters.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinUtils/TGRtensor/trunk@6 b716e942-a2de-43ad-8f52-f3dfe468e4e7
| -rw-r--r-- | src/constants.F90 | 2 | ||||
| -rw-r--r-- | src/conversion.F90 | 2 | ||||
| -rw-r--r-- | src/covderivs.F90 | 2 | ||||
| -rw-r--r-- | src/covderivs2.F90 | 2 | ||||
| -rw-r--r-- | src/make.code.defn | 2 | ||||
| -rw-r--r-- | src/matexp.F90 | 2 | ||||
| -rw-r--r-- | src/matinv.F90 | 2 | ||||
| -rw-r--r-- | src/pointwise.F90 | 2 | ||||
| -rw-r--r-- | src/pointwise2.F90 | 2 | ||||
| -rw-r--r-- | src/rotation.F90 | 2 | ||||
| -rw-r--r-- | src/tensor.F90 | 2 | ||||
| -rw-r--r-- | src/tensor2.F90 | 2 |
12 files changed, 0 insertions, 24 deletions
diff --git a/src/constants.F90 b/src/constants.F90 index d9b948d..35555d3 100644 --- a/src/constants.F90 +++ b/src/constants.F90 @@ -1,11 +1,9 @@ ! $Header$ #include "cctk.h" -#include "cctk_Parameters.h" module constants implicit none - DECLARE_CCTK_PARAMETERS private public delta2, delta3, delta4 diff --git a/src/conversion.F90 b/src/conversion.F90 index d6e30e9..7dc6f60 100644 --- a/src/conversion.F90 +++ b/src/conversion.F90 @@ -1,11 +1,9 @@ ! $Header$ #include "cctk.h" -#include "cctk_Parameters.h" module conversion implicit none - DECLARE_CCTK_PARAMETERS private public make_cylindrical2cartesian diff --git a/src/covderivs.F90 b/src/covderivs.F90 index 50e3624..7f110ef 100644 --- a/src/covderivs.F90 +++ b/src/covderivs.F90 @@ -1,11 +1,9 @@ ! $Header$ #include "cctk.h" -#include "cctk_Parameters.h" module covderivs implicit none - DECLARE_CCTK_PARAMETERS private public calc_scalargrad diff --git a/src/covderivs2.F90 b/src/covderivs2.F90 index 15e0143..c5b9dc6 100644 --- a/src/covderivs2.F90 +++ b/src/covderivs2.F90 @@ -1,11 +1,9 @@ ! $Header$ #include "cctk.h" -#include "cctk_Parameters.h" module covderivs2 implicit none - DECLARE_CCTK_PARAMETERS private public calc_2scalargrad diff --git a/src/make.code.defn b/src/make.code.defn index 4b157e4..ff49506 100644 --- a/src/make.code.defn +++ b/src/make.code.defn @@ -9,8 +9,6 @@ SRCS = cactus.F90 \ covderivs2.F90 \ derivs.F90 \ derivs2.F90 \ - hyperslab.F90 \ - hyperslab.c \ lapack.F90 \ matexp.F90 \ matinv.F90 \ diff --git a/src/matexp.F90 b/src/matexp.F90 index d2ecc77..d42e918 100644 --- a/src/matexp.F90 +++ b/src/matexp.F90 @@ -1,12 +1,10 @@ ! $Header$ #include "cctk.h" -#include "cctk_Parameters.h" module matexp use constants implicit none - DECLARE_CCTK_PARAMETERS private public calc_exp3 diff --git a/src/matinv.F90 b/src/matinv.F90 index ab6c515..4b6d8ec 100644 --- a/src/matinv.F90 +++ b/src/matinv.F90 @@ -1,13 +1,11 @@ ! $Header$ #include "cctk.h" -#include "cctk_Parameters.h" module matinv use constants use lapack implicit none - DECLARE_CCTK_PARAMETERS private public calc_inv3 diff --git a/src/pointwise.F90 b/src/pointwise.F90 index 827ad6e..80c8bc6 100644 --- a/src/pointwise.F90 +++ b/src/pointwise.F90 @@ -1,12 +1,10 @@ ! $Header$ #include "cctk.h" -#include "cctk_Parameters.h" module pointwise !!$ use derivs implicit none - DECLARE_CCTK_PARAMETERS private public calc_position public calc_offsets diff --git a/src/pointwise2.F90 b/src/pointwise2.F90 index 1759b28..85e10c8 100644 --- a/src/pointwise2.F90 +++ b/src/pointwise2.F90 @@ -1,12 +1,10 @@ ! $Header$ #include "cctk.h" -#include "cctk_Parameters.h" module pointwise2 !!$ use derivs2 implicit none - DECLARE_CCTK_PARAMETERS private public calc_2position public calc_2offsets diff --git a/src/rotation.F90 b/src/rotation.F90 index d76973e..2d8d80b 100644 --- a/src/rotation.F90 +++ b/src/rotation.F90 @@ -1,12 +1,10 @@ ! $Header$ #include "cctk.h" -#include "cctk_Parameters.h" module rotation use constants implicit none - DECLARE_CCTK_PARAMETERS private public make_euler diff --git a/src/tensor.F90 b/src/tensor.F90 index 0fef831..759c781 100644 --- a/src/tensor.F90 +++ b/src/tensor.F90 @@ -1,11 +1,9 @@ ! $Header$ #include "cctk.h" -#include "cctk_Parameters.h" module tensor implicit none - DECLARE_CCTK_PARAMETERS private public calc_trace diff --git a/src/tensor2.F90 b/src/tensor2.F90 index b02cd06..277f813 100644 --- a/src/tensor2.F90 +++ b/src/tensor2.F90 @@ -1,11 +1,9 @@ ! $Header$ #include "cctk.h" -#include "cctk_Parameters.h" module tensor2 implicit none - DECLARE_CCTK_PARAMETERS private public calc_2trace |