From 17cf0df94dbce6b3f63b1d5062712c7954b067bb Mon Sep 17 00:00:00 2001 From: jthorn Date: Thu, 26 Jun 2003 10:27:32 +0000 Subject: fix several occurences of single quote (') in Fortran comments since these confuse the Perl preprocessor :( :( -- Thanks to Ryoji for spotting this! git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@187 e296648e-0e4f-0410-bd07-d597d9acff87 --- src/metrics/Alvi.F77 | 2 +- src/metrics/bowl.F77 | 2 +- src/metrics/multi_BH.F77 | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/metrics/Alvi.F77 b/src/metrics/Alvi.F77 index 39b2879..cda692f 100644 --- a/src/metrics/Alvi.F77 +++ b/src/metrics/Alvi.F77 @@ -39,7 +39,7 @@ c locals CCTK_REAL rin1,rin2,rout,x1,x2, r1, r2, r3, results(10) C this is a vacuum solution with no cosmological constant -C ==> it doesn't set the stress-energy tensor +C ==> it does not set the stress-energy tensor Tmunu_flag = .false. if (firstcall) then diff --git a/src/metrics/bowl.F77 b/src/metrics/bowl.F77 index ec239f6..be3955f 100644 --- a/src/metrics/bowl.F77 +++ b/src/metrics/bowl.F77 @@ -139,7 +139,7 @@ c Get parameters of the metric. c Multiply the bowl strength "a" with a time evolution factor. c The time evolution factor is taken to be a Fermi step centered -c in `t0' and with a width `st'. The size of this step is always +c in "t0" and with a width "st". The size of this step is always c 1 so that far in the past we will always have flat space, and c far in the future we will have the static bowl. diff --git a/src/metrics/multi_BH.F77 b/src/metrics/multi_BH.F77 index 145d6a0..f5b62b2 100644 --- a/src/metrics/multi_BH.F77 +++ b/src/metrics/multi_BH.F77 @@ -56,8 +56,8 @@ c constants CCTK_REAL zero,one parameter (zero=0.0d0, one=1.0d0) -C This model doesn't set the stress-energy tensor -C FIXME: should it? I.e. isn't there a nonzero Maxwell tensor here? +C This model does not set the stress-energy tensor +C FIXME: should it? I.e. isn"t there a nonzero Maxwell tensor here? Tmunu_flag = .false. c Get parameters of the exact solution. -- cgit v1.2.3