Kernel.F90 Source File


Files dependent on this one

sourcefile~~kernel.f90~~AfferentGraph sourcefile~kernel.f90 Kernel.F90 sourcefile~bw_benchmark.f90 BW_Benchmark.F90 sourcefile~bw_benchmark.f90->sourcefile~kernel.f90 sourcefile~driver.f90~4 driver.F90 sourcefile~driver.f90~4->sourcefile~kernel.f90 sourcefile~driver.f90~4->sourcefile~bw_benchmark.f90 sourcefile~gathervkernel.f90 GathervKernel.F90 sourcefile~driver.f90~4->sourcefile~gathervkernel.f90 sourcefile~combospec.f90 ComboSpec.F90 sourcefile~driver.f90~4->sourcefile~combospec.f90 sourcefile~gathervkernel.f90->sourcefile~kernel.f90 sourcefile~bw_benchmarkspec.f90 BW_BenchmarkSpec.F90 sourcefile~bw_benchmarkspec.f90->sourcefile~bw_benchmark.f90 sourcefile~combospec.f90->sourcefile~bw_benchmark.f90 sourcefile~combospec.f90->sourcefile~gathervkernel.f90 sourcefile~driver.f90~2 driver.F90 sourcefile~driver.f90~2->sourcefile~bw_benchmark.f90 sourcefile~driver.f90~2->sourcefile~bw_benchmarkspec.f90 sourcefile~driver.f90~3 driver.F90 sourcefile~driver.f90~3->sourcefile~gathervkernel.f90 sourcefile~gathervspec.f90 GathervSpec.F90 sourcefile~driver.f90~3->sourcefile~gathervspec.f90 sourcefile~gathervspec.f90->sourcefile~gathervkernel.f90

Source Code

module Kernel_mod
   implicit none
   public :: Kernel_T

   type, abstract :: Kernel_T
   contains
      procedure(I_Run), deferred :: run
   end type Kernel_T

   abstract interface
      subroutine I_Run(this, rc)
         use mapl_ErrorHandlingMod
         import Kernel_T
         class(Kernel_T), intent(in) :: this
         integer, optional, intent(out) :: rc
      end subroutine I_Run
   end interface

end module Kernel_mod