FDS Source: fix for vtkhdf bndf output with property pointers

johodges · johodges · commit bde52d86bcbd · 2025-06-04T21:46:34.000-04:00
diff --git a/Source/dump.f90 b/Source/dump.f90
@@ -11935,6 +11935,7 @@ SUBROUTINE DUMP_BNDF_VTKHDF(T,DT,NM,FAKEWRITE)
       NPOINTS_ACCUM = NPOINTS_START
       NCELLS_ACCUM = NCELLS_START
       BF => BOUNDARY_FILE(NF)
+      PY => PROPERTY(BF%PROP_INDEX)
 
       IND  = ABS(BF%INDEX)
       ! Write OBST boundary data
