ps_CoreKineticDensity_Get Subroutine

subroutine ps_CoreKineticDensity_Get(ps,rc,nderivs,annotation,func)

type(ps_t), intent(in) :: ps

real(dp), intent(out), optional              :: rc
integer, intent(out), optional               :: nderivs
type(ps_annotation_t), intent(out), optional :: annotation
type(ps_radfunc_t), intent(out), optional    :: func

if (present(rc)) then
   rc = ps%core_kinetic_energy_density%rcore
endif
if (present(nderivs)) then
   nderivs = ps%core_kinetic_energy_density%n_cont_derivs
endif
if (present(annotation)) then
   annotation = ps%core_kinetic_energy_density%annotation
endif
if (present(func)) then
   func = ps%core_kinetic_energy_density%kin_edens_core
endif

end subroutine ps_CoreKineticDensity_Get