diff options
author | cott <cott@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-12-21 10:26:24 +0000 |
---|---|---|
committer | cott <cott@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2010-12-21 10:26:24 +0000 |
commit | 0b7357e2bbfc8d9213ac74874ddd2c1e4ba751c5 (patch) | |
tree | 253047a42712a8525d51c4fcb4421b7dbe890bf1 /src/GRHydro_EigenproblemM.F90 | |
parent | 3de77c6be6becdfa51041772ced62458586aaea0 (diff) |
* make EOS Omni calls thread safe
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@194 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
Diffstat (limited to 'src/GRHydro_EigenproblemM.F90')
-rw-r--r-- | src/GRHydro_EigenproblemM.F90 | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/src/GRHydro_EigenproblemM.F90 b/src/GRHydro_EigenproblemM.F90 index 64eeca7..31a6c51 100644 --- a/src/GRHydro_EigenproblemM.F90 +++ b/src/GRHydro_EigenproblemM.F90 @@ -63,15 +63,11 @@ subroutine eigenvaluesM(handle,rho,velx,vely,velz,eps,w_lorentz,& CCTK_REAL Bdotv,b2 ! begin EOS Omni vars - integer :: n = 1 - integer :: keytemp = 0 - integer :: anyerr = 0 - integer :: keyerr(1) = 0 - real*8 :: xpress = 0.0d0 - real*8 :: xeps = 0.0d0 - real*8 :: xtemp = 0.0d0 - real*8 :: xye = 0.0d0 -! end EOS Omni vars + integer :: n,keytemp,anyerr,keyerr(1) + real*8 :: xpress,xeps,xtemp,xye + n=1;keytemp=0;anyerr=0;keyerr(1)=0 + xpress=0.0d0;xeps=0.0d0;xtemp=0.0d0;xye=0.0d0 +! end EOS Omni vars one = 1.0d0 two = 2.0d0 |