From b76eaee65aee5a6309a84f91d3a8a3424f8fbbf4 Mon Sep 17 00:00:00 2001 From: schnetter Date: Mon, 1 Nov 2004 21:49:40 +0000 Subject: 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 --- src/metrics/Schwarzschild_EF.F77 | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) (limited to 'src') 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) -- cgit v1.2.3