From 84cf1675037e1335a4acd8b8cef2ec32a33b79a6 Mon Sep 17 00:00:00 2001
From: eschnett <eschnett@e296648e-0e4f-0410-bd07-d597d9acff87>
Date: Sat, 13 Oct 2012 02:29:46 +0000
Subject: Remove save attribute from Bertotti metric

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@279 e296648e-0e4f-0410-bd07-d597d9acff87
---
 src/metrics/Bertotti.F77 | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

diff --git a/src/metrics/Bertotti.F77 b/src/metrics/Bertotti.F77
index b1e6c8b..003a282 100644
--- a/src/metrics/Bertotti.F77
+++ b/src/metrics/Bertotti.F77
@@ -31,12 +31,6 @@ c output arguments
       CCTK_REAL psi
       LOGICAL   Tmunu_flag
 
-c static local variables
-      logical firstcall
-      data firstcall /.true./
-      save firstcall, baza
-c$omp threadprivate (firstcall, baza)
-
 c local variables
       CCTK_REAL baza
       CCTK_REAL unu, doi
@@ -45,10 +39,7 @@ C this model has a cosmological constant
 C ==> it sets the stress-energy tensor in the "CalcTmunu" code
       Tmunu_flag = .true.
 
-      if (firstcall) then
-          baza = Bertotti__Lambda
-          firstcall = .false.
-      end if
+      baza = Bertotti__Lambda
 
       unu=exp(2.0D0*sqrt(-baza)*x)
       doi=exp(2.0D0*sqrt(-baza)*z)   
-- 
cgit v1.2.3