ps_LocalPotential_Get Subroutine

subroutine ps_LocalPotential_Get(ps,type,annotation,func,&
                                 has_local_charge,func_local_charge)
type(ps_t), intent(in) :: ps

character(len=*), intent(out), optional      :: type
type(ps_annotation_t), intent(out), optional :: annotation
type(ps_radfunc_t), intent(out), optional    :: func
logical, intent(out), optional               :: has_local_charge
type(ps_radfunc_t), intent(out), optional    :: func_local_charge

if (present(type)) then
   type = ps%local%vlocal_type
endif
if (present(annotation)) then
   annotation = ps%local%annotation
endif
if (present(func)) then
   func = ps%local%vlocal
endif
if (present(has_local_charge)) then
   has_local_charge = (initialized(ps%local%chlocal%grid))
endif
if (present(func_local_charge)) then
   ! No checks
   func_local_charge = ps%local%chlocal
endif
end subroutine ps_LocalPotential_Get