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

1 files changed, 0 insertions, 61 deletions

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