diff options
author | schnetter <schnetter@e296648e-0e4f-0410-bd07-d597d9acff87> | 2004-11-01 21:49:40 +0000 |
---|---|---|
committer | schnetter <schnetter@e296648e-0e4f-0410-bd07-d597d9acff87> | 2004-11-01 21:49:40 +0000 |
commit | b76eaee65aee5a6309a84f91d3a8a3424f8fbbf4 (patch) | |
tree | 1af6fa59ac9121f3702b4918f0742d2aef4cb7eb /src | |
parent | 501afaabf8b9291ee78b345ea6e0802ae29bdf68 (diff) |
Do not keep parameter values in saved local variables.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@211 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src')
-rw-r--r-- | src/metrics/Schwarzschild_EF.F77 | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/src/metrics/Schwarzschild_EF.F77 b/src/metrics/Schwarzschild_EF.F77 index 05b001f..66a9db4 100644 --- a/src/metrics/Schwarzschild_EF.F77 +++ b/src/metrics/Schwarzschild_EF.F77 @@ -33,10 +33,7 @@ c output arguments LOGICAL Tmunu_flag c local static variables - logical firstcall CCTK_REAL eps, m - data firstcall /.true./ - save firstcall, eps, m c local variables CCTK_REAL r @@ -46,11 +43,8 @@ C This is a vacuum spacetime with no cosmological constant C Get parameters of the exact solution. - if (firstcall) then - eps = Schwarzschild_EF__epsilon - m = Schwarzschild_EF__mass - firstcall = .false. - end if + eps = Schwarzschild_EF__epsilon + m = Schwarzschild_EF__mass r = max(sqrt(x**2 + y**2 + z**2), eps) |