StageDataMessage Derived Type

type, public, extends(AbstractDataMessage) :: StageDataMessage


Inherits

type~~stagedatamessage~~InheritsGraph type~stagedatamessage StageDataMessage type~abstractdatamessage AbstractDataMessage type~stagedatamessage->type~abstractdatamessage type~abstractmessage AbstractMessage type~abstractdatamessage->type~abstractmessage

Components

Type Visibility Attributes Name Initial
character(len=:), public, allocatable :: file_name
character(len=:), public, allocatable :: var_name
integer, public :: collection_id
integer, public, allocatable :: count(:)
integer, public :: request_id
integer, public, allocatable :: start(:)
integer, public :: type_kind

Constructor

public interface StageDataMessage

  • private function new_StageDataMessage(request_id, file_md_id, file_name, var_name, data_reference, unusable, start) result(message)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: request_id
    integer, intent(in) :: file_md_id
    character(len=*), intent(in) :: file_name
    character(len=*), intent(in) :: var_name
    class(AbstractDataReference), intent(in) :: data_reference
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(in), optional :: start(:)

    Return Value type(StageDataMessage)


Type-Bound Procedures

procedure, public :: deserialize

  • private subroutine deserialize(this, buffer, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractDataMessage), intent(inout) :: this
    integer, intent(in) :: buffer(:)
    integer, intent(out), optional :: rc

procedure, public :: dispatch

  • private recursive subroutine dispatch(this, visitor, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractMessage), intent(in) :: this
    class(SurrogateMessageVisitor), intent(inout), target :: visitor
    integer, intent(out), optional :: rc

procedure, public :: get_length

  • private function get_length(this) result(length)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractDataMessage), intent(in) :: this

    Return Value integer

procedure, public, nopass :: get_type_id

  • private function get_type_id() result(type_id)

    Arguments

    None

    Return Value integer

procedure, public :: init

  • private subroutine init(message, request_id, collection_id, file_name, var_name, data_reference, unusable, start, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractDataMessage) :: message
    integer, intent(in) :: request_id
    integer, intent(in) :: collection_id
    character(len=*), intent(in) :: file_name
    character(len=*), intent(in) :: var_name
    class(AbstractDataReference), intent(in) :: data_reference
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(in), optional :: start(:)
    integer, intent(out), optional :: rc

procedure, public :: serialize

  • private subroutine serialize(this, buffer, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(AbstractDataMessage), intent(in) :: this
    integer, intent(inout) :: buffer(:)
    integer, intent(out), optional :: rc

Source Code

   type, extends(AbstractDataMessage) :: StageDataMessage
   contains
      procedure, nopass :: get_type_id
   end type StageDataMessage