small bug fixes

flash2d/src/options-sphere/IO_vtu_stacked.F90

@@ -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,('I8')) p_nodedata(i_cnt)%c_name(6:32)
+        READ(i_hcnt,*) 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,7 @@ 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(i_stcbeg:i_stcend) = p_celldata(i_cnt)%p_vdata(i_hcnt)
+        r_stcval(1:1,i_stcbeg:i_stcend) = p_celldata(i_cnt)%p_vdata(1:1,i_hcnt)
       END DO
       p_stcnodedata(1)%c_name = p_celldata(i_cnt)%c_name
       p_stcnodedata(1)%i_size = p_celldata(i_cnt)%i_size
@@ -632,7 +632,8 @@ SUBROUTINE plot_vtu_elements(p_mesh, c_filename, i_nodedata, &
   CLOSE(i_fhandle)
   DEALLOCATE(r_nodecoor, i_enodes)
 END SUBROUTINE plot_vtu_elements
-#endif !----3D output only
+#endif 
+!----3D output only
 
 !---------------------------------------------------------------------
 !> write_vtu_data writes a single variable (node or cell) to the