diff options
| author | schnetter <schnetter@e296648e-0e4f-0410-bd07-d597d9acff87> | 2005-05-09 18:29:28 +0000 |
|---|---|---|
| committer | schnetter <schnetter@e296648e-0e4f-0410-bd07-d597d9acff87> | 2005-05-09 18:29:28 +0000 |
| commit | c10694f89c4a40f3f00a17116396b837483c3059 (patch) | |
| tree | a37387e30d043e969c8e8daef634d05ad9a99066 /src | |
| parent | 46565906c391ec1c35dc91302539cb50efe21fb7 (diff) | |
Format equations nicely.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@227 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src')
| -rw-r--r-- | src/metrics/Minkowski_gauge_wave.F77 | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/metrics/Minkowski_gauge_wave.F77 b/src/metrics/Minkowski_gauge_wave.F77 index f4b6360..639b0a7 100644 --- a/src/metrics/Minkowski_gauge_wave.F77 +++ b/src/metrics/Minkowski_gauge_wave.F77 @@ -84,15 +84,15 @@ c$$$ H = exp(a*sin(x/d)*cos(t/d)) C write metric. - if (Minkowski_gauge_wave__diagonal .eq. 1) then + if (Minkowski_gauge_wave__diagonal.ne.0) then - gdxx = half * H + half - gdxy = -half* H + half - gdyy = half * H + half + gdxx = half * H + half + gdxy = -half * H + half + gdyy = half * H + half - guxx = half / H + half - guxy =-half / H + half - guyy = half / H + half + guxx = half / H + half + guxy = -half / H + half + guyy = half / H + half else @@ -106,7 +106,7 @@ C write metric. end if - gdtt = - H + gdtt = -H gdtx = zero gdty = zero gdtz = zero @@ -117,7 +117,7 @@ C write metric. C and upper metric. - gutt = - one/H + gutt = -one / H gutx = zero guty = zero gutz = zero |