From 215eb8563f22349626f6d024869fa688af0ddeab Mon Sep 17 00:00:00 2001
From: JGonzalez <jorge.gonzalez@upm.es>
Date: Wed, 11 Mar 2026 21:30:38 +0100
Subject: [PATCH] Now the Collections in vut format can be read during
 execution!

---
 src/modules/mesh/inout/vtu/moduleMeshOutputVTU.f90 | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/modules/mesh/inout/vtu/moduleMeshOutputVTU.f90 b/src/modules/mesh/inout/vtu/moduleMeshOutputVTU.f90
index 4f986c5..3462940 100644
--- a/src/modules/mesh/inout/vtu/moduleMeshOutputVTU.f90
+++ b/src/modules/mesh/inout/vtu/moduleMeshOutputVTU.f90
@@ -230,17 +230,16 @@ MODULE moduleMeshOutputVTU
         OPEN (fileID + 1, file = generateFilePath(fileNameCollection))
         WRITE (fileID + 1, "(A)") '<VTKFile type="Collection">'
         WRITE (fileID + 1, "(2X, A)") '<Collection>'
-        CLOSE(fileID + 1)
 
       else
+        OPEN (fileID + 1, file = generateFilePath(fileNameCollection), ACCESS='APPEND')
         ! Append removing the last two lines that close the <tags>
-        rewind(fileID)
-        rewind(fileID)
+        backspace(fileID + 1)
+        backspace(fileID + 1)
 
       END IF
 
       !Write iteration file in collection
-      OPEN (fileID + 1, file = generateFilePath(fileNameCollection), ACCESS='APPEND')
       WRITE(fileID + 1, "(4X, A, "//fmtReal//", A, A, A)") &
             '<DataSet timestep="', DBLE(timeStep)*tauMin*ti_ref,'" file="', fileNameStep,'"/>'