nf_mm_cl.f90 966 B

1234567891011121314151617181920212223242526
  1. ! StarPU --- Runtime system for heterogeneous multicore architectures.
  2. !
  3. ! Copyright (C) 2016 Inria
  4. !
  5. ! StarPU is free software; you can redistribute it and/or modify
  6. ! it under the terms of the GNU Lesser General Public License as published by
  7. ! the Free Software Foundation; either version 2.1 of the License, or (at
  8. ! your option) any later version.
  9. !
  10. ! StarPU is distributed in the hope that it will be useful, but
  11. ! WITHOUT ANY WARRANTY; without even the implied warranty of
  12. ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  13. !
  14. ! See the GNU Lesser General Public License in COPYING.LGPL for more details.
  15. module nf_mm_cl
  16. contains
  17. recursive subroutine cl_cpu_mult (buffers, cl_args) bind(C)
  18. use iso_c_binding ! C interfacing module
  19. use fstarpu_mod ! StarPU interfacing module
  20. implicit none
  21. type(c_ptr), value, intent(in) :: buffers, cl_args ! cl_args is unused
  22. end subroutine cl_cpu_mult
  23. end module nf_mm_cl