dump_valence_charge Subroutine

subroutine dump_valence_charge(xf,val,parent_grid)

  use xmlf90_wxml

  type(xmlf_t), intent(inout) :: xf
  type(valence_charge_t), intent(in) :: val
  type(Grid_t)           :: parent_grid

  call xml_NewElement(xf,"valence-charge")
  call my_add_attribute(xf,"total-charge",str(val%total_charge))
  call dump_annotation(xf,val%annotation)
  call dump_radfunc(xf,val%rho_val,parent_grid)
  call xml_EndElement(xf,"valence-charge")
end subroutine dump_valence_charge