dump_grid Subroutine

  1. m_psml_dump.F90
  2. m_psml_dump
  3. dump_grid

private subroutine dump_grid(xf, agrid)

Uses

    • xmlf90_wxml

Arguments

Type IntentOptional AttributesName
type(xmlf_t), intent(inout) :: xf
type(Grid_t), intent(in) :: agrid

Contents

Source Code

dump_grid

Source Code

subroutine dump_grid(xf,agrid)

  use xmlf90_wxml

  type(xmlf_t), intent(inout) :: xf
  type(Grid_t), intent(in) :: agrid

  if (.not. initialized(agrid)) return
  
  call xml_NewElement(xf,"grid")
  call my_add_attribute(xf,"npts",str(sizeGrid(agrid)))
  call dump_annotation(xf,annotationGrid(agrid))
  call xml_NewElement(xf,"grid-data")
  call xml_AddArray(xf,valGrid(agrid))
  call xml_EndElement(xf,"grid-data")
  call xml_EndElement(xf,"grid")
end subroutine dump_grid