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

small bug fixes

parent 9766e7c6
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment