diff options
author | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-10-01 18:10:07 +0000 |
---|---|---|
committer | rhaas <rhaas@c83d129a-5a75-4d5a-9c4d-ed3a5855bf45> | 2012-10-01 18:10:07 +0000 |
commit | a781bcbd175a90db6205c49bb7d2ba8529edbcd0 (patch) | |
tree | bbc29a3b35610a74de5d2ba7c404216b92ceca89 | |
parent | fc8ec7ec6866f37e1cabb31af06575b6f72f8176 (diff) |
GRHydro: fix uninitialized pointer
Found by Frank Loeffler.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEvolve/GRHydro/trunk@422 c83d129a-5a75-4d5a-9c4d-ed3a5855bf45
-rw-r--r-- | src/GRHydro_UpdateMaskM.F90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/GRHydro_UpdateMaskM.F90 b/src/GRHydro_UpdateMaskM.F90 index f7e1fda..b5066e2 100644 --- a/src/GRHydro_UpdateMaskM.F90 +++ b/src/GRHydro_UpdateMaskM.F90 @@ -252,7 +252,7 @@ subroutine GRHydro_InitialAtmosphereResetM(CCTK_ARGUMENTS) g23_p => gbc_p g33_p => gcc_p vup_p => lvel_p - Bprim => Bvec_p + Bprim_p => Bvec_p else g11_p => gxx_p g12_p => gxy_p @@ -261,7 +261,7 @@ subroutine GRHydro_InitialAtmosphereResetM(CCTK_ARGUMENTS) g23_p => gyz_p g33_p => gzz_p vup_p => vel_p - Bprim => Bvec_p + Bprim_p => Bvec_p end if end if if (timelevels .gt. 2) then @@ -273,7 +273,7 @@ subroutine GRHydro_InitialAtmosphereResetM(CCTK_ARGUMENTS) g23_p_p => gbc_p_p g33_p_p => gcc_p_p vup_p_p => lvel_p_p - Bprim => lBvec_p_p + Bprim_p_p => lBvec_p_p else g11_p_p => gxx_p_p g12_p_p => gxy_p_p @@ -282,7 +282,7 @@ subroutine GRHydro_InitialAtmosphereResetM(CCTK_ARGUMENTS) g23_p_p => gyz_p_p g33_p_p => gzz_p_p vup_p_p => vel_p_p - Bprim => Bvec_p_p + Bprim_p_p => Bvec_p_p end if end if #define gxx faulty_gxx |