From fd4c240867839d477e702c88a970764420e46712 Mon Sep 17 00:00:00 2001
From: Joern Behrens <joern.behrens@uni-hamburg.de>
Date: Thu, 27 Jan 2022 22:30:23 +0100
Subject: [PATCH] still small bug fixes

---
 flash2d/src/options-sphere/IO_vtu_stacked.F90 | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/flash2d/src/options-sphere/IO_vtu_stacked.F90 b/flash2d/src/options-sphere/IO_vtu_stacked.F90
index 2647807..cb83bae 100644
--- a/flash2d/src/options-sphere/IO_vtu_stacked.F90
+++ b/flash2d/src/options-sphere/IO_vtu_stacked.F90
@@ -127,7 +127,7 @@ SUBROUTINE plot_vtu(p_mesh, c_filename, &
   INTEGER( KIND = GRID_SI)                       :: i_numberofvtupoints
   INTEGER( KIND = GRID_SI)                       :: i_numberofvtufaces
   INTEGER( KIND = GRID_SI)                       :: i_numberofvtucells
-  REAL ( KIND = GRID_SR )                        :: r_heightfactor
+  REAL ( KIND = GRID_SR )                        :: r_heightfactor, r_aux
   TYPE(t_vtu_data), DIMENSION(6)                 :: p_stcnodedata
   REAL (KIND = GRID_SR), DIMENSION(:,:), POINTER :: r_stcval
   INTEGER( KIND = GRID_SI)                       :: i_stcbeg
@@ -394,7 +394,7 @@ SUBROUTINE plot_vtu(p_mesh, c_filename, &
 	END IF
     DO i_cnt = 1, i_nodedata
       IF (p_nodedata(i_cnt)%c_name(1:5) == 'layer') THEN
-        READ(i_hcnt,*) p_nodedata(i_cnt)%c_name(6:32)
+        READ(i_hcnt,'(I8)') p_nodedata(i_cnt)%c_name(6:32)
         i_stcbeg = p_mesh%i_nnumber*(i_hcnt-1)+1
         i_stcend = p_mesh%i_nnumber*i_hcnt
         r_stcval(1:1,i_stcbeg:i_stcend) = p_nodedata(i_cnt)%p_vdata(1:1,:)
@@ -443,7 +443,8 @@ SUBROUTINE plot_vtu(p_mesh, c_filename, &
       DO i_hcnt=1,i_numberofcells
         i_stcbeg = (i_hcnt-1)*(i_lay-1)+1
         i_stcend = i_hcnt*(i_lay-1)
-        r_stcval(1:1,i_stcbeg:i_stcend) = p_celldata(i_cnt)%p_vdata(1:1,i_hcnt)
+        r_aux    = p_celldata(i_cnt)%p_vdata(1,i_hcnt)
+        r_stcval(1,i_stcbeg:i_stcend) = r_aux
       END DO
       p_stcnodedata(1)%c_name = p_celldata(i_cnt)%c_name
       p_stcnodedata(1)%i_size = p_celldata(i_cnt)%i_size
-- 
GitLab