dump_core_charge Subroutine

subroutine dump_core_charge(xf,core,parent_grid)

  use xmlf90_wxml

  type(xmlf_t), intent(inout) :: xf
  type(core_charge_t), intent(in) :: core
  type(Grid_t)                 :: parent_grid

  call xml_NewElement(xf,"pseudocore-charge")
  if (core%rcore >= 0.0_dp) then
     call my_add_attribute(xf,"matching-radius",str(core%rcore))
  endif
  if (core%n_cont_derivs >= 0 ) then
     call my_add_attribute(xf,"number-of-continuous-derivatives",str(core%n_cont_derivs))
  endif
  call dump_annotation(xf,core%annotation)
  call dump_radfunc(xf,core%rho_core,parent_grid)
  call xml_EndElement(xf,"pseudocore-charge")
end subroutine dump_core_charge