AbstractRequestHandle.F90 Source File

module pFIO_AbstractRequestHandleMod
   use pFIO_AbstractDataReferenceMod
   implicit none
   private

   public :: AbstractRequestHandle

   type, abstract :: AbstractRequestHandle
      class (AbstractDataReference),allocatable :: data_reference
   contains
      procedure(wait), deferred :: wait
   end type AbstractRequestHandle

   abstract interface
      subroutine wait(this, rc)
         import AbstractRequestHandle
         class (AbstractRequestHandle), target, intent(inout) :: this
         integer, optional, intent(out) :: rc      
      end subroutine wait
   end interface


end module pFIO_AbstractRequestHandleMod