mp_win_type Derived Type

type, public :: mp_win_type


Components

Type Visibility Attributes Name Initial
integer, private :: handle = mp_win_null_handle

Type-Bound Procedures

procedure, public, pass(win), non_overridable :: get_handle => mp_get_win_handle

  • private elemental function mp_get_win_handle(win)

    Arguments

    Type IntentOptional Attributes Name
    class(mp_win_type), intent(in) :: win

    Return Value integer

procedure, public, pass(win), non_overridable :: set_handle => mp_set_win_handle

  • private elemental subroutine mp_set_win_handle(win, handle)

    Arguments

    Type IntentOptional Attributes Name
    class(mp_win_type), intent(inout) :: win
    integer, intent(in) :: handle

procedure, private, pass(win1), non_overridable :: mp_win_op_eq

  • private impure elemental function mp_win_op_eq(win1, win2)

    Arguments

    Type IntentOptional Attributes Name
    class(mp_win_type), intent(in) :: win1
    class(mp_win_type), intent(in) :: win2

    Return Value logical

generic, public :: OPERATOR(.EQ.) => mp_win_op_eq

  • private impure elemental function mp_win_op_eq(win1, win2)

    Arguments

    Type IntentOptional Attributes Name
    class(mp_win_type), intent(in) :: win1
    class(mp_win_type), intent(in) :: win2

    Return Value logical

procedure, private, pass(win1), non_overridable :: mp_win_op_ne

  • private impure elemental function mp_win_op_ne(win1, win2)

    Arguments

    Type IntentOptional Attributes Name
    class(mp_win_type), intent(in) :: win1
    class(mp_win_type), intent(in) :: win2

    Return Value logical

generic, public :: OPERATOR(.NE.) => mp_win_op_ne

  • private impure elemental function mp_win_op_ne(win1, win2)

    Arguments

    Type IntentOptional Attributes Name
    class(mp_win_type), intent(in) :: win1
    class(mp_win_type), intent(in) :: win2

    Return Value logical

Source Code

   TYPE mp_win_type
      PRIVATE
      MPI_WIN_TYPE :: handle = mp_win_null_handle
   CONTAINS
      PROCEDURE, PUBLIC, PASS(win), NON_OVERRIDABLE :: get_handle => mp_get_win_handle
      PROCEDURE, PUBLIC, PASS(win), NON_OVERRIDABLE :: set_handle => mp_set_win_handle
      PROCEDURE, PRIVATE, PASS(win1), NON_OVERRIDABLE :: mp_win_op_eq
      GENERIC, PUBLIC :: OPERATOR(.EQ.) => mp_win_op_eq
      PROCEDURE, PRIVATE, PASS(win1), NON_OVERRIDABLE :: mp_win_op_ne
      GENERIC, PUBLIC :: OPERATOR(.NE.) => mp_win_op_ne
   END TYPE mp_win_type