From 67af3617f82fda6b4fb7e3fa9e8e012c4fae9844 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@b716e942-a2de-43ad-8f52-f3dfe468e4e7>
Date: Fri, 22 Aug 2003 18:42:38 +0000
Subject: 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
---
 src/constants.F90  | 2 --
 src/conversion.F90 | 2 --
 src/covderivs.F90  | 2 --
 src/covderivs2.F90 | 2 --
 src/make.code.defn | 2 --
 src/matexp.F90     | 2 --
 src/matinv.F90     | 2 --
 src/pointwise.F90  | 2 --
 src/pointwise2.F90 | 2 --
 src/rotation.F90   | 2 --
 src/tensor.F90     | 2 --
 src/tensor2.F90    | 2 --
 12 files changed, 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
-- 
cgit v1.2.3