| File |
Line number |
Procedure |
Code |
|
./eesupp/src/timers.F |
153 |
TIMER_CONTROL |
INTEGER iTimer |
|
./eesupp/src/timers.F |
240 |
TIMER_CONTROL |
iTimer=TIMER_INDEX(tmpName,timerNames(1,myThreadId), |
|
./eesupp/src/timers.F |
244 |
TIMER_CONTROL |
IF ( iTimer .EQ. 0 ) THEN |
|
./eesupp/src/timers.F |
247 |
TIMER_CONTROL |
iTimer = nTimers(myThreadId) |
|
./eesupp/src/timers.F |
248 |
TIMER_CONTROL |
timerNames(iTimer,myThreadId) = tmpName |
|
./eesupp/src/timers.F |
249 |
TIMER_CONTROL |
timerNameLen(iTimer,myThreadId) = |
|
./eesupp/src/timers.F |
251 |
TIMER_CONTROL |
timerUser(iTimer,myThreadId) = 0. |
|
./eesupp/src/timers.F |
252 |
TIMER_CONTROL |
timerSys (iTimer,myThreadId) = 0. |
|
./eesupp/src/timers.F |
253 |
TIMER_CONTROL |
timerWall(iTimer,myThreadId) = 0. |
|
./eesupp/src/timers.F |
254 |
TIMER_CONTROL |
timerStarts(iTimer,myThreadId) = 0 |
|
./eesupp/src/timers.F |
255 |
TIMER_CONTROL |
timerStops (iTimer,myThreadId) = 0 |
|
./eesupp/src/timers.F |
256 |
TIMER_CONTROL |
timerStatus(iTimer,myThreadId) = STOPPED |
|
./eesupp/src/timers.F |
258 |
TIMER_CONTROL |
IF ( timerStatus(iTimer,myThreadId) .NE. RUNNING ) THEN |
|
./eesupp/src/timers.F |
260 |
TIMER_CONTROL |
timerT0User(iTimer,myThreadId) = userTime |
|
./eesupp/src/timers.F |
261 |
TIMER_CONTROL |
timerT0Sys(iTimer,myThreadId) = systemTime |
|
./eesupp/src/timers.F |
262 |
TIMER_CONTROL |
timerT0Wall(iTimer,myThreadId) = wallClockTime |
|
./eesupp/src/timers.F |
263 |
TIMER_CONTROL |
timerStatus(iTimer,myThreadId) = RUNNING |
|
./eesupp/src/timers.F |
264 |
TIMER_CONTROL |
timerStarts(iTimer,myThreadId) = |
|
./eesupp/src/timers.F |
265 |
TIMER_CONTROL |
& timerStarts(iTimer,myThreadId)+1 |
|
./eesupp/src/timers.F |
268 |
TIMER_CONTROL |
call PAPIF_READ(EventSet, values1(1,iTimer,myThreadId), Check) |
|
./eesupp/src/timers.F |
272 |
TIMER_CONTROL |
res = PCLread(descr, i_result1(1,iTimer,myThreadId), |
|
./eesupp/src/timers.F |
273 |
TIMER_CONTROL |
$ fp_result(1,iTimer,myThreadId), nevents) |
|
./eesupp/src/timers.F |
278 |
TIMER_CONTROL |
CALL F_HPMTSTART((myThreadId-1)*100+iTimer,tmpName) |
|
./eesupp/src/timers.F |
281 |
TIMER_CONTROL |
IF ( iTimer .EQ. 0 ) GOTO 905 |
|
./eesupp/src/timers.F |
283 |
TIMER_CONTROL |
CALL F_HPMTSTOP((myThreadId-1)*100+iTimer) |
|
./eesupp/src/timers.F |
285 |
TIMER_CONTROL |
IF ( timerStatus(iTimer,myThreadId) .EQ. RUNNING ) THEN |
|
./eesupp/src/timers.F |
288 |
TIMER_CONTROL |
call PAPIF_READ(EventSet, values2(1,iTimer,myThreadId), Check) |
|
./eesupp/src/timers.F |
292 |
TIMER_CONTROL |
res = PCLread(descr, i_result2(1,iTimer,myThreadId), |
|
./eesupp/src/timers.F |
293 |
TIMER_CONTROL |
$ fp_result(1,iTimer,myThreadId), nevents) |
|
./eesupp/src/timers.F |
297 |
TIMER_CONTROL |
timerUser(iTimer,myThreadId) = |
|
./eesupp/src/timers.F |
298 |
TIMER_CONTROL |
& timerUser(iTimer,myThreadId) + |
|
./eesupp/src/timers.F |
300 |
TIMER_CONTROL |
& timerT0User(iTimer,myThreadId) |
|
./eesupp/src/timers.F |
301 |
TIMER_CONTROL |
timerSys (iTimer,myThreadId) = |
|
./eesupp/src/timers.F |
302 |
TIMER_CONTROL |
& timerSys(iTimer,myThreadId) + |
|
./eesupp/src/timers.F |
304 |
TIMER_CONTROL |
& timerT0Sys(iTimer,myThreadId) |
|
./eesupp/src/timers.F |
305 |
TIMER_CONTROL |
timerWall(iTimer,myThreadId) = |
|
./eesupp/src/timers.F |
306 |
TIMER_CONTROL |
& timerWall(iTimer,myThreadId) + |
|
./eesupp/src/timers.F |
308 |
TIMER_CONTROL |
& timerT0Wall(iTimer,myThreadId) |
|
./eesupp/src/timers.F |
311 |
TIMER_CONTROL |
values(i,iTimer,myThreadId) = values(i,iTimer,myThreadId) + |
|
./eesupp/src/timers.F |
312 |
TIMER_CONTROL |
$ values2(i,iTimer,myThreadId) - values1(i,iTimer,myThreadId) |
|
./eesupp/src/timers.F |
317 |
TIMER_CONTROL |
i_result(i,iTimer,myThreadId) = i_result(i,iTimer |
|
./eesupp/src/timers.F |
318 |
TIMER_CONTROL |
$ ,myThreadId) + i_result2(i,iTimer,myThreadId) - |
|
./eesupp/src/timers.F |
319 |
TIMER_CONTROL |
$ i_result1(i,iTimer,myThreadId) |
|
./eesupp/src/timers.F |
323 |
TIMER_CONTROL |
timerStatus(iTimer,myThreadId) = STOPPED |
|
./eesupp/src/timers.F |
324 |
TIMER_CONTROL |
timerStops (iTimer,myThreadId) = |
|
./eesupp/src/timers.F |
325 |
TIMER_CONTROL |
& timerStops (iTimer,myThreadId)+1 |
|
./eesupp/src/timers.F |
477 |
TIMER_CONTROL |
IF ( iTimer .EQ. 0 ) GOTO 905 |
|
./eesupp/src/timers.F |
480 |
TIMER_CONTROL |
& timerNames(iTimer,myThreadId)(1:timerNameLen(iTimer,myThreadId)) |
|
./eesupp/src/timers.F |
485 |
TIMER_CONTROL |
& timerUser(iTimer,myThreadId) |
|
./eesupp/src/timers.F |
489 |
TIMER_CONTROL |
& timerSys(iTimer,myThreadId) |
|
./eesupp/src/timers.F |
493 |
TIMER_CONTROL |
& timerWall(iTimer,myThreadId) |
|
./eesupp/src/timers.F |
497 |
TIMER_CONTROL |
& timerStarts(iTimer,myThreadId) |
|
./eesupp/src/timers.F |
501 |
TIMER_CONTROL |
& timerStops(iTimer,myThreadId) |
|
./eesupp/src/timers.F |
508 |
TIMER_CONTROL |
$ values(i,iTimer,myThreadId)/timerUser(iTimer,myThreadId) |
|
./eesupp/src/timers.F |
509 |
TIMER_CONTROL |
$ ,values(i,iTimer,myThreadId)/timerWall(iTimer,myThreadId |
|
./eesupp/src/timers.F |
510 |
TIMER_CONTROL |
$ ),1.D0*values(i,iTimer,myThreadId) |
|
./eesupp/src/timers.F |
518 |
TIMER_CONTROL |
$ i_result(i,iTimer,myThreadId)/timerUser(iTimer |
|
./eesupp/src/timers.F |
519 |
TIMER_CONTROL |
$ ,myThreadId),i_result(i,iTimer,myThreadId) |
|
./eesupp/src/timers.F |
520 |
TIMER_CONTROL |
$ /timerWall(iTimer,myThreadId),1.D0*i_result(i,iTimer |