1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
!
! Copyright (C) 2021, MaX CoE
! Distributed under the MIT License
! (license terms are at http://opensource.org/licenses/MIT).
!
!--
!
! Wrappers and interfaces for cudaFortran and Cuda lib
!
#include<devxlib_defs.h>
#include<devxlib_macros.h>
!
!#if !defined __DXL_CUDAF
!#include<mod_cudafor.f90>
!#endif
!
module dev_cudafor_m
!
#if defined __DXL_CUDAF
use cudafor
#else
use cudafor_m
#endif
implicit none
contains
subroutine cudafor_foo ()
end subroutine
end module dev_cudafor_m
|
