ps_RootAttributes_Set Subroutine

  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