AVX-experiments/debug_int.f90 at master · OP2/AVX-experiments · GitHub

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
31
32
33
34
35
36
37
38
39
40
41
42
43


module DebugInterface

  use ISO_C_BINDING

  interface

     ! debug C functions (to obtain similar output file that can be diff-ed
     integer(KIND=C_INT) function openfile ( filename ) BIND(C)

       use, intrinsic :: ISO_C_BINDING
       character(kind=c_char), dimension(1) :: filename

     end function openfile

     integer(KIND=C_INT) function closefile ( ) BIND(C)

       use, intrinsic :: ISO_C_BINDING

     end function closefile


     integer(KIND=C_INT) function writerealtofile ( dataw ) BIND(C)

       use, intrinsic :: ISO_C_BINDING

       real(c_double) :: dataw


     end function writerealtofile

     integer(KIND=C_INT) function writeinttofile ( dataw ) BIND(C)

       use, intrinsic :: ISO_C_BINDING

       integer(c_int) :: dataw

     end function writeinttofile

  end interface

end module DebugInterface