diff options
| author | schnetter <schnetter@b716e942-a2de-43ad-8f52-f3dfe468e4e7> | 2004-03-31 14:29:18 +0000 |
|---|---|---|
| committer | schnetter <schnetter@b716e942-a2de-43ad-8f52-f3dfe468e4e7> | 2004-03-31 14:29:18 +0000 |
| commit | 28a3fe1276084e4333e049c153b383c96106eec8 (patch) | |
| tree | 420cc2286266128c7f93589b9ee054cae6224720 | |
| parent | 7d3143443044e4af82dfb6029c9ae61d5f7d6635 (diff) | |
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
| -rw-r--r-- | src/make.code.defn | 1 | ||||
| -rw-r--r-- | src/make.code.deps | 11 | ||||
| -rw-r--r-- | src/make.configuration.deps | 6 | ||||
| -rw-r--r-- | src/tensor4.F90 | 26 |
4 files changed, 27 insertions, 17 deletions
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 |