From d72eb352c6182603bde73125f71c4313f22cea28 Mon Sep 17 00:00:00 2001 From: jthorn Date: Sun, 17 Nov 2002 14:48:21 +0000 Subject: 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 --- src/metrics/Milne.F | 61 ----------------------------------------------------- 1 file changed, 61 deletions(-) delete mode 100644 src/metrics/Milne.F (limited to 'src/metrics/Milne.F') diff --git a/src/metrics/Milne.F b/src/metrics/Milne.F deleted file mode 100644 index 0167873..0000000 --- a/src/metrics/Milne.F +++ /dev/null @@ -1,61 +0,0 @@ -C Milne spacetime metric ?!?!? -C Suggested by Matteo Rossi and E. Onofri (Univ. di Parma, Italy) -C They inted to use thsi metric for simulating an Pre-Big-Bang -C Cosmology, as proposed by Veneziano some year ago -C Author : D. Vulcanov (Timsoara, Romania) -C $Header$ - -#include "cctk.h" - - subroutine Exact__Milne( - $ 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 - -c Input. - - CCTK_REAL x, y, z, t - -c Output. - - CCTK_REAL gdtt, gdtx, gdty, gdtz, - $ gdxx, gdyy, gdzz, gdxy, gdyz, gdzx, - $ gutt, gutx, guty, gutz, - $ guxx, guyy, guzz, guxy, guyz, guzx, - $ coef, x2,y2,z2,t2 - - x2= x*x - y2= y*y - z2= z*z - t2= t*t - coef= t2/(1.d0+ x2 +y2+ z2) - - gdtt = -1.d0 - gdtx = 0.d0 - gdty = 0.d0 - gdtz = 0.d0 - gdxx = coef*(1.d0+y2+z2) - gdyy = coef*(1.d0+x2+z2) - gdzz = coef*(1.d0+x2+y2) - gdxy = -coef*x*y - gdyz = -coef*y*z - gdzx = -coef*x*z - - gutt = -1.d0 - gutx = 0.d0 - guty = 0.d0 - gutz = 0.d0 - guxx = (1.d0+x2)/(t2) - guyy = (1.d0+y2)/(t2) - guzz = (1.d0+z2)/(t2) - guxy = x*y/(t2) - guyz = y*z/(t2) - guzx = x*z/(t2) - - - return - end -- cgit v1.2.3