diff options
author | schnetter <schnetter@b716e942-a2de-43ad-8f52-f3dfe468e4e7> | 2005-04-09 13:54:39 +0000 |
---|---|---|
committer | schnetter <schnetter@b716e942-a2de-43ad-8f52-f3dfe468e4e7> | 2005-04-09 13:54:39 +0000 |
commit | 9f9d618e54f91e0eb54c9de197b597ff99ae4749 (patch) | |
tree | 0b7cfa4702dc8335d4660c202b3142e8dda52c80 /src/depend.pl | |
parent | 35d3fe85630895a4ae5ea02f944db946ef97a26e (diff) |
Add some functionality:
Conversion between 4 and 3+1 dimensions
Check for nans (isnan for Fortran)
Gram-Schmidt orthonormalisation
Calculate Riemann, Ricci, and Weyl tensors in 2, 3, and 4 dimensions
Calculate time derivatives
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinUtils/TGRtensor/trunk@21 b716e942-a2de-43ad-8f52-f3dfe468e4e7
Diffstat (limited to 'src/depend.pl')
-rw-r--r-- | src/depend.pl | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/src/depend.pl b/src/depend.pl deleted file mode 100644 index b41b8f6..0000000 --- a/src/depend.pl +++ /dev/null @@ -1,46 +0,0 @@ -#!/usr/bin/perl -w -# $Header$ - -# Create dependencies for Fortran 90 "use" and "include" statements - -$src = $ARGV[0]; -$srcfile = $ARGV[1]; -$dest = $ARGV[2]; -$srcdir = $ARGV[3]; -$moddir = $ARGV[4]; -$srcsuffix = $ARGV[5]; -$modsuffix = $ARGV[6]; -@otherdirs = @ARGV[7..$#ARGV]; - -print "# $src\n"; -print "$dest:"; - -open (FILE, $src); -while (<FILE>) { - if (/^\s*include\s*['"]([^'"]+)['"]/i) { - print " $srcdir$1"; - } elsif (/^\s*use\s+(\w+)/i) { - $found = 0; - if (! $found) { - if (-e "$srcdir$1$srcsuffix") { - $found = 1; - print " $moddir$1$modsuffix"; - } - } - if (! $found) { - foreach $dir (@otherdirs) { - if (-e "$dir$1$modsuffix") { - $found = 1; - print " $dir$1$modsuffix"; - last; - } - } - } - if (! $found) { - die "\nWhile tracing depencencies:\nFortran module $1 (referenced in file $srcfile) not found.\nAborting.\n\n"; - } - } -} -close (FILE); - -print "\n"; |