From 28a3fe1276084e4333e049c153b383c96106eec8 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@b716e942-a2de-43ad-8f52-f3dfe468e4e7>
Date: Wed, 31 Mar 2004 14:29:18 +0000
Subject: Remove unnecessary configuration scripts.

Add trace routine for 4-tensors.


git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinUtils/TGRtensor/trunk@12 b716e942-a2de-43ad-8f52-f3dfe468e4e7
---
 src/make.code.defn          |  1 +
 src/make.code.deps          | 11 -----------
 src/make.configuration.deps |  6 ------
 src/tensor4.F90             | 26 ++++++++++++++++++++++++++
 4 files changed, 27 insertions(+), 17 deletions(-)
 delete mode 100644 src/make.code.deps
 delete mode 100644 src/make.configuration.deps
 create mode 100644 src/tensor4.F90

diff --git a/src/make.code.defn b/src/make.code.defn
index ff49506..b589337 100644
--- a/src/make.code.defn
+++ b/src/make.code.defn
@@ -15,6 +15,7 @@ SRCS =	cactus.F90				\
 	rotation.F90				\
 	tensor.F90				\
 	tensor2.F90				\
+	tensor4.F90				\
 	pointwise.F90				\
 	pointwise2.F90
 
diff --git a/src/make.code.deps b/src/make.code.deps
deleted file mode 100644
index e8ea1b9..0000000
--- a/src/make.code.deps
+++ /dev/null
@@ -1,11 +0,0 @@
-# Main make.code.deps file for thorn TGRtensor   -*-Makefile-*-
-# $Header$
-
-USESTHORNS = 
-
-# Automatically create dependencies for Fortran modules and Fortran includes
-define F90_DEPENDENCIES
-$(F_DEPEND) $(INC_DIRS:%=-I%) $(EXTRA_DEFINES:%=-D%) -DFCODE $< $(F_DEPEND_OUT)
-$(DEPENDENCY_FIXER)
-dir=`pwd`; $(CPP) $(INC_DIRS:%=-I%) $(EXTRA_DEFINES:%=-D%) -DFCODE $< | $(PERL) $(SRCDIR)/depend.pl - $< $(basename $(notdir $<)).F90.o $(SRCDIR)/ ./ .F90 .F90.o $(USESTHORNS:%=$$dir/../%/) >> $@ || { rm $@; exit 1; }
-endef
diff --git a/src/make.configuration.deps b/src/make.configuration.deps
deleted file mode 100644
index 6a85f9c..0000000
--- a/src/make.configuration.deps
+++ /dev/null
@@ -1,6 +0,0 @@
-# Main make.configuration.deps file for thorn TGRtensor   -*-Makefile-*-
-# $Header$
-
-USESTHORNS = 
-
-$(CCTK_LIBDIR)$(DIRSEP)libTGRtensor.a: $(USESTHORNS:%=$(CCTK_LIBDIR)$(DIRSEP)lib%.a)
diff --git a/src/tensor4.F90 b/src/tensor4.F90
new file mode 100644
index 0000000..ad03df7
--- /dev/null
+++ b/src/tensor4.F90
@@ -0,0 +1,26 @@
+! $Header$
+
+#include "cctk.h"
+
+module tensor4
+  implicit none
+  private
+  
+  public calc_4trace
+  
+contains
+  
+  subroutine calc_4trace (kk, gu, trk)
+    CCTK_REAL, intent(in)  :: kk(4,4)
+    CCTK_REAL, intent(in)  :: gu(4,4)
+    CCTK_REAL, intent(out) :: trk
+    integer :: i,j
+    trk = 0
+    do i=1,4
+       do j=1,4
+          trk = trk + gu(i,j) * kk(i,j)
+       end do
+    end do
+  end subroutine calc_4trace
+  
+end module tensor4
-- 
cgit v1.2.3