ps_ExchangeCorrelation_Get Subroutine

public subroutine ps_ExchangeCorrelation_Get(ps, annotation, n_libxc_functionals)

Arguments

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

Contents

Source Code

ps_ExchangeCorrelation_Get

Source Code

subroutine ps_ExchangeCorrelation_Get(ps,annotation,n_libxc_functionals)
type(ps_t), intent(in) :: ps

type(ps_annotation_t), intent(out), optional :: annotation
integer, intent(out), optional               :: n_libxc_functionals

if (present(annotation)) then
   annotation = ps%xc_info%annotation
endif
if (present(n_libxc_functionals)) then
   n_libxc_functionals =  ps%xc_info%n_functs_libxc
endif
end subroutine ps_ExchangeCorrelation_Get