Skip to content
Snippets Groups Projects
Commit 1b1d7198 authored by Behrens, Prof. Dr. Jörn's avatar Behrens, Prof. Dr. Jörn
Browse files

write error fixed in stacked VTU output

parent 9683e8dc
No related branches found
No related tags found
No related merge requests found
......@@ -355,14 +355,26 @@ SUBROUTINE plot_vtu(p_mesh, c_filename, &
! write the cell type. Tetrahedra are represented by 10 and triangles by 5
WRITE(i_fhandle, *) '<DataArray type="UInt8" Name="types" format="ascii">'
#if defined VTU_OUTPUT2D || defined VTU_OUTPUTSPH || defined VTU_OUTPUT2D
DO i_cnt = 1, i_numberofcells
WRITE(i_fhandle, *) i_vtucelltype
END DO
#elif defined VTU_OUTPUTSTC
DO i_cnt = 1, i_numberofvtucells
WRITE(i_fhandle, *) i_vtucelltype
END DO
#endif
WRITE(i_fhandle, *) '</DataArray>'
WRITE(i_fhandle, *) '<DataArray type="Int32" Name="offsets" format="ascii">'
#if defined VTU_OUTPUT2D || defined VTU_OUTPUTSPH || defined VTU_OUTPUT2D
DO i_cnt = 1, i_numberofcells
WRITE(i_fhandle, *) i_cnt * i_nodespercell
END DO
#elif defined VTU_OUTPUTSTC
DO i_cnt = 1, i_numberofvtucells
WRITE(i_fhandle, *) i_cnt * i_nodespervtucell
END DO
#endif
WRITE(i_fhandle, *) '</DataArray>'
WRITE(i_fhandle, *) '</Cells>'
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment