Old call:
call wr_vtk_tet_cell(trim(file_name)//'.vtk',& & (/msh%verts(iv1),msh%verts(iv2),msh%verts(iv3),msh%verts(iv4)/)) interface subroutine wr_vtk_tet_cell(file_name,verts) use class_vertex character(len=*), intent(in) :: file_name type(vertex), intent(in) :: verts(4) end subroutine wr_vtk_tet_cell end interface
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(mesh), | intent(in) | :: | msh | |||
integer, | intent(in) | :: | ic | |||
integer, | intent(in), | optional | :: | fmt |