HorizontalStaggerLoc Derived Type

type, public :: HorizontalStaggerLoc


Inherited by

type~~horizontalstaggerloc~~InheritedByGraph type~horizontalstaggerloc HorizontalStaggerLoc type~dimsspec~2 DimsSpec type~dimsspec~2->type~horizontalstaggerloc horz_stagger_loc type~fieldspec FieldSpec type~fieldspec->type~dimsspec~2 dims_spec type~mapl_varspectype MAPL_VarSpecType type~mapl_varspectype->type~fieldspec field_spec type~mapl_varspec MAPL_VarSpec type~mapl_varspec->type~mapl_varspectype SpecPtr type~varspecdescription VarspecDescription type~varspecdescription->type~mapl_varspectype

Type-Bound Procedures

procedure, public :: equal_to

  • private pure function equal_to(this, other)

    Arguments

    Type IntentOptional Attributes Name
    class(HorizontalStaggerLoc), intent(in) :: this
    type(HorizontalStaggerLoc), intent(in) :: other

    Return Value logical

procedure, public :: not_equal_to

  • private pure function not_equal_to(this, other)

    Arguments

    Type IntentOptional Attributes Name
    class(HorizontalStaggerLoc), intent(in) :: this
    type(HorizontalStaggerLoc), intent(in) :: other

    Return Value logical

generic, public :: operator(/=) => not_equal_to

  • private pure function not_equal_to(this, other)

    Arguments

    Type IntentOptional Attributes Name
    class(HorizontalStaggerLoc), intent(in) :: this
    type(HorizontalStaggerLoc), intent(in) :: other

    Return Value logical

generic, public :: operator(==) => equal_to

  • private pure function equal_to(this, other)

    Arguments

    Type IntentOptional Attributes Name
    class(HorizontalStaggerLoc), intent(in) :: this
    type(HorizontalStaggerLoc), intent(in) :: other

    Return Value logical

Source Code

   type :: HorizontalStaggerLoc
      private
      integer :: i = INVALID
   contains
      procedure :: equal_to
      procedure :: not_equal_to
      generic :: operator(==) => equal_to
      generic :: operator(/=) => not_equal_to
   end type HorizontalStaggerLoc