[Commits] [svn:einsteintoolkit] GRHydro/trunk/src/ (Rev. 422)

[rhaas at tapir.caltech.edu]

User: rhaas
Date: 2012/10/01 01:10 PM

Modified:
 /trunk/src/
  GRHydro_UpdateMaskM.F90

Log:
 GRHydro: fix uninitialized pointer
 
 Found by Frank Loeffler.

File Changes:

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

File [modified]: GRHydro_UpdateMaskM.F90
Delta lines: +4 -4
===================================================================
--- trunk/src/GRHydro_UpdateMaskM.F90	2012-09-12 18:00:56 UTC (rev 421)
+++ trunk/src/GRHydro_UpdateMaskM.F90	2012-10-01 18:10:07 UTC (rev 422)
@@ -252,7 +252,7 @@
       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 @@
       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 @@
       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 @@
       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