ps_RootAttributes_Get Subroutine

public subroutine ps_RootAttributes_Get(ps, uuid, version, namespace, annotation)

Arguments

Type IntentOptional AttributesName
type(ps_t), intent(in) :: ps
character(len=*), intent(out), optional :: uuid
character(len=*), intent(out), optional :: version
character(len=*), intent(out), optional :: namespace
type(ps_annotation_t), intent(out), optional :: annotation

Contents

Source Code


Source Code

subroutine ps_RootAttributes_Get(ps,uuid,version,namespace,annotation)
  type(ps_t), intent(in) :: ps
  
  character(len=*), intent(out), optional :: uuid
  character(len=*), intent(out), optional :: version
  character(len=*), intent(out), optional :: namespace
  type(ps_annotation_t), intent(out), optional :: annotation

  if (present(uuid)) then
     uuid = trim(ps%uuid)
  endif
  if (present(version)) then
     version = trim(ps%version)
  endif
  if (present(annotation)) then
     annotation = ps%annotation
  endif
  if (present(namespace)) then
     namespace = ps%namespace
  endif

end subroutine ps_RootAttributes_Get