ps_RootAttributes_Set Subroutine

  1. m_psml_ps_edit.F90
  2. m_psml_ps_edit
  3. ps_RootAttributes_Set

public subroutine ps_RootAttributes_Set(ps, version, uuid, namespace)

Arguments

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

Contents

Source Code

ps_RootAttributes_Set

Source Code

  subroutine ps_RootAttributes_Set(ps,version,uuid,namespace) 
    type(ps_t), intent(inout) :: ps
    character(len=*), intent(in), optional :: version
    character(len=*), intent(in), optional :: uuid
    character(len=*), intent(in), optional :: namespace

    if (present(version)) then
       ps%version = version
    endif

    if (present(uuid)) then
       ps%uuid = uuid
    endif
    
    if (present(namespace)) then
       ps%namespace = namespace
    endif
    
  end  subroutine ps_RootAttributes_Set