Iterator.f90

Go to the documentation of this file.

module iteratormodule
  use kindmodule, only: lgp
  implicit none
  private
 
  public :: iteratortype
 
  type, abstract :: iteratortype
  contains
    procedure(has_next_if), deferred :: has_next
    procedure(next_if), deferred :: next
    procedure(value_if), deferred :: value
 
  end type iteratortype
 
  abstract interface
 
    function has_next_if(this) result(res)
      import iteratortype
      import lgp
      class(iteratortype) :: this
      logical(LGP) :: res
    end function
 
    subroutine next_if(this)
      import iteratortype
      class(iteratortype) :: this
    end subroutine
 
    function value_if(this) result(res)
      import iteratortype
      class(iteratortype) :: this
      class(*), pointer :: res
    end function
 
  end interface
 
end module iteratormodule