dump_valence_kinetic_energy_density Subroutine

subroutine dump_valence_kinetic_energy_density(xf,val,parent_grid)

  use xmlf90_wxml

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

  call xml_NewElement(xf,"valence-kinetic-energy-density")
  call my_add_attribute(xf,"is-unscreening-tau",trim(val%is_unscreening_tau))
  call dump_annotation(xf,val%annotation)
  call dump_radfunc(xf,val%kin_edens_val,parent_grid)
  call xml_EndElement(xf,"valence-kinetic-energy-density")
end subroutine dump_valence_kinetic_energy_density