ps_ValenceKineticDensity_Get Subroutine

public subroutine ps_ValenceKineticDensity_Get(ps, annotation, func)

Arguments

Type IntentOptional Attributes Name
type(ps_t), intent(in) :: ps
type(assoc_list_t), intent(out), optional :: annotation
type(ps_radfunc_t), intent(out), optional :: func

Contents

Source Code

ps_ValenceKineticDensity_Get

Source Code

subroutine ps_ValenceKineticDensity_Get(ps,annotation,func)

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

type(ps_annotation_t), intent(out), optional :: annotation
type(ps_radfunc_t), intent(out), optional    :: func

if (present(annotation)) then
   annotation = ps%valence_kinetic_energy_density%annotation
endif

if (present(func)) then
   func = ps%valence_kinetic_energy_density%kin_edens_val
endif

end subroutine ps_ValenceKineticDensity_Get