diff options
author | jthorn <jthorn@e296648e-0e4f-0410-bd07-d597d9acff87> | 2003-06-26 10:27:32 +0000 |
---|---|---|
committer | jthorn <jthorn@e296648e-0e4f-0410-bd07-d597d9acff87> | 2003-06-26 10:27:32 +0000 |
commit | 17cf0df94dbce6b3f63b1d5062712c7954b067bb (patch) | |
tree | 4f177cc8737fe1ae00027a4c587d314bd97f942c /src | |
parent | b1a90b48844f9f27a9512c11ca9ba94b76138b49 (diff) |
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
Diffstat (limited to 'src')
-rw-r--r-- | src/metrics/Alvi.F77 | 2 | ||||
-rw-r--r-- | src/metrics/bowl.F77 | 2 | ||||
-rw-r--r-- | src/metrics/multi_BH.F77 | 4 |
3 files changed, 4 insertions, 4 deletions
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. |