add definition for CmiInt16
[charm.git] / src / ck-perf / tracef_f.f90
1       module tracemod
2       implicit none
3       interface
4         subroutine ftraceBegin()
5         end subroutine
6         subroutine ftraceEnd()
7         end subroutine
8         subroutine ftraceRegisterUserevent(str, ein, eout)
9           character(*), intent(in) :: str
10           integer, intent(in) :: ein
11           integer, intent(out) :: eout
12         end subroutine
13         subroutine ftraceUserBracketEvent(ev, bt, et)
14           integer, intent(in) :: ev 
15           double precision, intent(in) :: bt, et
16         end subroutine
17         subroutine ftraceUserEvent(ev)
18           integer, intent(in) :: ev 
19         end subroutine
20         subroutine ftraceFlushLog()
21         end subroutine
22         subroutine ftraceRegisterFunc(str, outidx)
23           character(*), intent(in) :: str
24           integer, intent(in) :: outidx
25         end subroutine
26         subroutine ftraceBeginFunc(idx)
27           integer, intent(in) :: idx
28         end subroutine
29         subroutine ftraceEndFunc(idx)
30           integer, intent(in) :: idx
31         end subroutine
32         subroutine ftracePhaseEnd()
33         end subroutine
34       end interface
35       end module
36