SimpleConnection Derived Type

type, public, extends(Connection) :: SimpleConnection


Inherits

type~~simpleconnection~~InheritsGraph type~simpleconnection SimpleConnection type~connection Connection type~simpleconnection->type~connection type~connectionpt ConnectionPt type~simpleconnection->type~connectionpt source, destination type~virtualconnectionpt VirtualConnectionPt type~connectionpt->type~virtualconnectionpt v_pt ESMF_StateIntent_Flag ESMF_StateIntent_Flag type~virtualconnectionpt->ESMF_StateIntent_Flag state_intent

Constructor

public interface SimpleConnection

  • private function new_SimpleConnection(source, destination) result(this)

    Arguments

    Type IntentOptional Attributes Name
    type(ConnectionPt), intent(in) :: source
    type(ConnectionPt), intent(in) :: destination

    Return Value type(SimpleConnection)


Type-Bound Procedures

procedure, public :: activate

  • private recursive subroutine activate(this, registry, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(SimpleConnection), intent(in) :: this
    type(StateRegistry), intent(inout), target :: registry
    integer, intent(out), optional :: rc

procedure, public :: connect

  • private recursive subroutine connect(this, registry, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(SimpleConnection), intent(in) :: this
    type(StateRegistry), intent(inout), target :: registry
    integer, intent(out), optional :: rc

procedure, public :: connect_sibling

  • private recursive subroutine connect_sibling(this, dst_registry, src_registry, unusable, rc)

    Arguments

    Type IntentOptional Attributes Name
    class(SimpleConnection), intent(in) :: this
    type(StateRegistry), intent(inout), target :: dst_registry
    type(StateRegistry), intent(inout), target :: src_registry
    class(KeywordEnforcer), intent(in), optional :: unusable
    integer, intent(out), optional :: rc

procedure, public :: get_destination

  • private function get_destination(this) result(destination)

    Arguments

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

    Return Value type(ConnectionPt)

procedure, public :: get_source

  • private function get_source(this) result(source)

    Arguments

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

    Return Value type(ConnectionPt)

Source Code

   type, extends(Connection) :: SimpleConnection
      private
      type(ConnectionPt) :: source
      type(ConnectionPt) :: destination
   contains
      procedure :: get_source
      procedure :: get_destination
      procedure :: activate
      procedure :: connect
      procedure :: connect_sibling
   end type SimpleConnection