MockAspect Derived Type

type, public, extends(StateItemAspect) :: MockAspect


Inherits

type~~mockaspect~~InheritsGraph type~mockaspect MockAspect type~stateitemaspect StateItemAspect type~mockaspect->type~stateitemaspect

Components

Type Visibility Attributes Name Initial
integer, public :: value
logical, public :: supports_conversion_

Constructor

public interface MockAspect

  • private function new_MockAspect(mirror, time_dependent, value, supports_conversion) result(aspect)

    Arguments

    Type IntentOptional Attributes Name
    logical, intent(in) :: mirror
    logical, intent(in) :: time_dependent
    integer, intent(in) :: value
    logical, intent(in) :: supports_conversion

    Return Value type(MockAspect)


Type-Bound Procedures

procedure, public, non_overridable :: can_connect_to

  • private function can_connect_to(src, dst)

    Arguments

    Type IntentOptional Attributes Name
    class(StateItemAspect), intent(in) :: src
    class(StateItemAspect), intent(in) :: dst

    Return Value logical

procedure, public, non_overridable :: is_mirror

  • private function is_mirror(this)

    Arguments

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

    Return Value logical

procedure, public, non_overridable :: is_time_dependent

  • private function is_time_dependent(this)

    Arguments

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

    Return Value logical

procedure, public :: make_action

  • private function make_action(src, dst, rc) result(action)

    Arguments

    Type IntentOptional Attributes Name
    class(MockAspect), intent(in) :: src
    class(StateItemAspect), intent(in) :: dst
    integer, intent(out), optional :: rc

    Return Value class(ExtensionAction), allocatable

procedure, public :: matches

  • private function matches(src, dst)

    Arguments

    Type IntentOptional Attributes Name
    class(MockAspect), intent(in) :: src
    class(StateItemAspect), intent(in) :: dst

    Return Value logical

procedure, public, non_overridable :: needs_extension_for

  • private function needs_extension_for(src, dst)

    Arguments

    Type IntentOptional Attributes Name
    class(StateItemAspect), intent(in) :: src
    class(StateItemAspect), intent(in) :: dst

    Return Value logical

procedure, public, non_overridable :: set_mirror

  • private subroutine set_mirror(this, mirror)

    Arguments

    Type IntentOptional Attributes Name
    class(StateItemAspect), intent(inout) :: this
    logical, intent(in), optional :: mirror

procedure, public, non_overridable :: set_time_dependent

  • private subroutine set_time_dependent(this, time_dependent)

    Arguments

    Type IntentOptional Attributes Name
    class(StateItemAspect), intent(inout) :: this
    logical, intent(in), optional :: time_dependent

generic, public :: supports_conversion => supports_conversion_general, supports_conversion_specific

  • private function supports_conversion_general(src)

    Arguments

    Type IntentOptional Attributes Name
    class(GeomAspect), intent(in) :: src

    Return Value logical

  • private function supports_conversion_specific(src, dst)

    Arguments

    Type IntentOptional Attributes Name
    class(GeomAspect), intent(in) :: src
    class(StateItemAspect), intent(in) :: dst

    Return Value logical

procedure, public :: supports_conversion_general

  • private function supports_conversion_general(src)

    Arguments

    Type IntentOptional Attributes Name
    class(MockAspect), intent(in) :: src

    Return Value logical

procedure, public :: supports_conversion_specific

  • private function supports_conversion_specific(src, dst)

    Arguments

    Type IntentOptional Attributes Name
    class(MockAspect), intent(in) :: src
    class(StateItemAspect), intent(in) :: dst

    Return Value logical

Source Code

   type, extends(StateItemAspect) :: MockAspect
      integer :: value
      logical :: supports_conversion_
   contains
      procedure :: matches
      procedure :: make_action
      procedure :: supports_conversion_general
      procedure :: supports_conversion_specific
   end type MockAspect