diff options
author | jthorn <jthorn@e296648e-0e4f-0410-bd07-d597d9acff87> | 2002-11-17 14:48:21 +0000 |
---|---|---|
committer | jthorn <jthorn@e296648e-0e4f-0410-bd07-d597d9acff87> | 2002-11-17 14:48:21 +0000 |
commit | d72eb352c6182603bde73125f71c4313f22cea28 (patch) | |
tree | b0a8d8bbe8732a98f6e0c91d1cd00e3ab1507aaa /src/metrics/anti_de_Sitter_Lambda.F77 | |
parent | 29426901fa6e767c85eaeb0aa6e59e7d4c9f582b (diff) |
Modified Files:
make.code.defn
Added Files:
Alvi.F77 Bertotti.F77 Bianchi_I.F77 Goedel.F77
Kasner_axisymmetric.F77 Kasner_generalized.F77 Kasner_like.F77
Kerr_BoyerLindquist.F77 Kerr_KerrSchild.F77 Lemaitre.F77
Milne.F77 Minkowski.F77 Minkowski_funny.F77
Minkowski_gauge_wave.F77 Minkowski_shift.F77
Robertson_Walker.F77 Schwarzschild_EF.F77
Schwarzschild_Lemaitre.F77 Schwarzschild_Novikov.F77
Schwarzschild_PG.F77 Thorne_fakebinary.F77
anti_de_Sitter_Lambda.F77 boost_rotation_symmetric.F77
bowl.F77 constant_density_star.F77 de_Sitter.F77
de_Sitter_Lambda.F77 multi_BH.F77
Removed Files:
Alvi.F Bertotti.F Bianchi_I.F Goedel.F Kasner_axisymmetric.F
Kasner_generalized.F Kasner_like.F Kerr_BoyerLindquist.F
Kerr_KerrSchild.F Lemaitre.F Milne.F Minkowski.F
Minkowski_funny.F Minkowski_gauge_wave.F Minkowski_shift.F
Robertson_Walker.F Schwarzschild_EF.F Schwarzschild_Lemaitre.F
Schwarzschild_Novikov.F Schwarzschild_PG.F Thorne_fakebinary.F
anti_de_Sitter_Lambda.F boost_rotation_symmetric.F bowl.F
constant_density_star.F de_Sitter.F de_Sitter_Lambda.F
multi_BH.F
Rename files which really are Fortran 77
from foo.F (= Cactus Fortran 90 fixed form)
to foo.F77 (= Fortran 77)
This means they're now compiled with a Fortran 77 compiler.
This should make no difference to the semantics (they were already
Fortran 77 code), but makes it easier to compile this thorn on
platforms which have a Fortran 77 compiler but no Fortran 90 compiler.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@134 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src/metrics/anti_de_Sitter_Lambda.F77')
-rw-r--r-- | src/metrics/anti_de_Sitter_Lambda.F77 | 65 |
1 files changed, 65 insertions, 0 deletions
diff --git a/src/metrics/anti_de_Sitter_Lambda.F77 b/src/metrics/anti_de_Sitter_Lambda.F77 new file mode 100644 index 0000000..5e2733c --- /dev/null +++ b/src/metrics/anti_de_Sitter_Lambda.F77 @@ -0,0 +1,65 @@ +C Anti DeSitter metric spacetime with csomological constant +C Author : D. Vulcanov (Timisoara, Romania) +C $Header$ + +#include "cctk.h" +#include "cctk_Parameters.h" + + subroutine Exact__anti_de_Sitter_Lambda( + $ x, y, z, t, + $ gdtt, gdtx, gdty, gdtz, + $ gdxx, gdyy, gdzz, gdxy, gdyz, gdzx, + $ gutt, gutx, guty, gutz, + $ guxx, guyy, guzz, guxy, guyz, guzx) + + implicit none + + DECLARE_CCTK_PARAMETERS + + CCTK_REAL x, y, z, t + CCTK_REAL gdtt, gdtx, gdty, gdtz, + $ gdxx, gdyy, gdzz, gdxy, gdyz, gdzx, + $ gutt, gutx, guty, gutz, + $ guxx, guyy, guzz, guxy, guyz, guzx + + logical firstcall + + CCTK_REAL arad,am + + data firstcall /.true./ + save firstcall, arad + if (firstcall) then + arad = anti_de_Sitter_Lambda__scale + firstcall = .false. + end if + + + + am=exp(2.0D0*dsqrt(-arad/3.0D0)*x) + + + gdtt = -am + gdtx = 0.0D0 + gdty = 0.0D0 + gdtz = 0.0D0 + gdxx = 1.0D0 + gdyy = am + gdzz = am + gdxy = 0.0D0 + gdyz = 0.0D0 + gdzx = 0.0D0 + + gutt = -1.0D0/am + gutx = 0.0D0 + guty = 0.0D0 + gutz = 0.0D0 + guxx = 1.0D0 + guyy = 1.0D0/am + guzz = 1.0D0/am + guxy = 0.0D0 + guyz = 0.0D0 + guzx = 0.0D0 + + + return + end |