write_data Subroutine

  1. vtk_fortran_write_vts.f90
  2. vtk_fortran_write_vts
  3. write_data

subroutine write_data()

Arguments

None

Called by

proc~~write_data~3~~CalledByGraph proc~write_data~3 write_data program~vtk_fortran_write_vts vtk_fortran_write_vts program~vtk_fortran_write_vts->proc~write_data~3

Contents

Source Code

write_data

Source Code

  subroutine write_data
  !< Write data.

  error = a_vtk_file%xml_writer%write_piece(nx1=nx1, nx2=nx2, ny1=ny1, ny2=ny2, nz1=nz1, nz2=nz2)
  error = a_vtk_file%xml_writer%write_geo(n=nn, x=x, y=y, z=z)
  error = a_vtk_file%xml_writer%write_dataarray(location='node', action='open')
  error = a_vtk_file%xml_writer%write_dataarray(data_name='float64_scalar', x=v, one_component=.true.)
  error = a_vtk_file%xml_writer%write_dataarray(location='node', action='close')
  error = a_vtk_file%xml_writer%write_piece()
  endsubroutine write_data