ps_CoreCharge_Get Subroutine

subroutine ps_CoreCharge_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_charge%rcore
endif
if (present(nderivs)) then
   nderivs = ps%core_charge%n_cont_derivs
endif
if (present(annotation)) then
   annotation = ps%core_charge%annotation
endif
if (present(func)) then
   func = ps%core_charge%rho_core
endif

end subroutine ps_CoreCharge_Get