C/C++:
Fortran:
C/C++ :
int user_square(int count) {
TAU_REGISTER_EVENT(ue1, "UserSquare Event");
TAU_EVENT(ue1, count * count);
return 0;
}
Fortran :
integer eventid(2)
save eventid
call TAU_REGISTER_EVENT(eventid, 'Error in Iteration')
call TAU_EVENT(eventid, count)
TAU_EVENT(3), TAU_REGISTER_CONTEXT_EVENT(3), TAU_REPORT_STATISTICS(3), TAU_REPORT_THREAD_STATISTICS(3), TAU_GET_EVENT_NAMES(3), TAU_GET_EVENT_VALS(3)