[Commits] [svn:einsteintoolkit] Exact/trunk/src/metrics/ (Rev. 279)

[schnetter at cct.lsu.edu]

User: eschnett
Date: 2012/10/12 09:29 PM

Modified:
 /trunk/src/metrics/
  Bertotti.F77

Log:
 Remove save attribute from Bertotti metric

File Changes:

Directory: /trunk/src/metrics/
==============================

File [modified]: Bertotti.F77
Delta lines: +1 -10
===================================================================
--- trunk/src/metrics/Bertotti.F77	2012-10-13 01:25:24 UTC (rev 278)
+++ trunk/src/metrics/Bertotti.F77	2012-10-13 02:29:46 UTC (rev 279)
@@ -31,12 +31,6 @@
       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 ==> 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)