ps_ValenceConfiguration_Get Subroutine

public subroutine ps_ValenceConfiguration_Get(ps, nshells, charge, annotation)

Arguments

Type IntentOptional Attributes Name
type(ps_t), intent(in) :: ps
integer, intent(out), optional :: nshells
real(kind=dp), intent(out), optional :: charge
type(assoc_list_t), intent(out), optional :: annotation

Contents

Source Code

ps_ValenceConfiguration_Get

Source Code

subroutine ps_ValenceConfiguration_Get(ps,nshells,charge,annotation)
  type(ps_t), intent(in) :: ps
  integer, intent(out), optional  :: nshells
  real(dp), intent(out), optional :: charge
  type(ps_annotation_t), intent(out), optional :: annotation

  if (present(nshells)) then
     nshells = ps%config_val%nshells
  endif
  if (present(charge)) then
     charge = ps%config_val%total_charge
  endif
  if (present(annotation)) then
     annotation = ps%config_val%annotation
  endif
end subroutine ps_ValenceConfiguration_Get