File |
Line number |
Procedure |
Code |
./eesupp/src/timers.F |
155 |
TIMER_CONTROL |
INTEGER iTimer |
./eesupp/src/timers.F |
244 |
TIMER_CONTROL |
iTimer=TIMER_INDEX(tmpName,timerNames(1,myThreadId), |
./eesupp/src/timers.F |
248 |
TIMER_CONTROL |
IF ( iTimer .EQ. 0 ) THEN |
./eesupp/src/timers.F |
251 |
TIMER_CONTROL |
iTimer = nTimers(myThreadId) |
./eesupp/src/timers.F |
252 |
TIMER_CONTROL |
timerNames(iTimer,myThreadId) = tmpName |
./eesupp/src/timers.F |
253 |
TIMER_CONTROL |
timerNameLen(iTimer,myThreadId) = |
./eesupp/src/timers.F |
255 |
TIMER_CONTROL |
timerUser(iTimer,myThreadId) = 0. |
./eesupp/src/timers.F |
256 |
TIMER_CONTROL |
timerSys (iTimer,myThreadId) = 0. |
./eesupp/src/timers.F |
257 |
TIMER_CONTROL |
timerWall(iTimer,myThreadId) = 0. |
./eesupp/src/timers.F |
258 |
TIMER_CONTROL |
timerStarts(iTimer,myThreadId) = 0 |
./eesupp/src/timers.F |
259 |
TIMER_CONTROL |
timerStops (iTimer,myThreadId) = 0 |
./eesupp/src/timers.F |
260 |
TIMER_CONTROL |
timerStatus(iTimer,myThreadId) = STOPPED |
./eesupp/src/timers.F |
262 |
TIMER_CONTROL |
IF ( timerStatus(iTimer,myThreadId) .NE. RUNNING ) THEN |
./eesupp/src/timers.F |
264 |
TIMER_CONTROL |
timerT0User(iTimer,myThreadId) = userTime |
./eesupp/src/timers.F |
265 |
TIMER_CONTROL |
timerT0Sys(iTimer,myThreadId) = systemTime |
./eesupp/src/timers.F |
266 |
TIMER_CONTROL |
timerT0Wall(iTimer,myThreadId) = wallClockTime |
./eesupp/src/timers.F |
267 |
TIMER_CONTROL |
timerStatus(iTimer,myThreadId) = RUNNING |
./eesupp/src/timers.F |
268 |
TIMER_CONTROL |
timerStarts(iTimer,myThreadId) = |
./eesupp/src/timers.F |
269 |
TIMER_CONTROL |
& timerStarts(iTimer,myThreadId)+1 |
./eesupp/src/timers.F |
272 |
TIMER_CONTROL |
call PAPIF_READ(EventSet, values1(1,iTimer,myThreadId), Check) |
./eesupp/src/timers.F |
276 |
TIMER_CONTROL |
res = PCLread(descr, i_result1(1,iTimer,myThreadId), |
./eesupp/src/timers.F |
277 |
TIMER_CONTROL |
$ fp_result(1,iTimer,myThreadId), nevents) |
./eesupp/src/timers.F |
283 |
TIMER_CONTROL |
CALL F_HPMSTART((myThreadId-1)*100+iTimer,tmpName) |
./eesupp/src/timers.F |
285 |
TIMER_CONTROL |
CALL F_HPMTSTART((myThreadId-1)*100+iTimer,tmpName) |
./eesupp/src/timers.F |
289 |
TIMER_CONTROL |
IF ( iTimer .EQ. 0 ) GOTO 905 |
./eesupp/src/timers.F |
292 |
TIMER_CONTROL |
CALL F_HPMSTOP((myThreadId-1)*100+iTimer) |
./eesupp/src/timers.F |
294 |
TIMER_CONTROL |
CALL F_HPMTSTOP((myThreadId-1)*100+iTimer) |
./eesupp/src/timers.F |
297 |
TIMER_CONTROL |
IF ( timerStatus(iTimer,myThreadId) .EQ. RUNNING ) THEN |
./eesupp/src/timers.F |
300 |
TIMER_CONTROL |
call PAPIF_READ(EventSet, values2(1,iTimer,myThreadId), Check) |
./eesupp/src/timers.F |
304 |
TIMER_CONTROL |
res = PCLread(descr, i_result2(1,iTimer,myThreadId), |
./eesupp/src/timers.F |
305 |
TIMER_CONTROL |
$ fp_result(1,iTimer,myThreadId), nevents) |
./eesupp/src/timers.F |
309 |
TIMER_CONTROL |
timerUser(iTimer,myThreadId) = |
./eesupp/src/timers.F |
310 |
TIMER_CONTROL |
& timerUser(iTimer,myThreadId) + |
./eesupp/src/timers.F |
312 |
TIMER_CONTROL |
& timerT0User(iTimer,myThreadId) |
./eesupp/src/timers.F |
313 |
TIMER_CONTROL |
timerSys (iTimer,myThreadId) = |
./eesupp/src/timers.F |
314 |
TIMER_CONTROL |
& timerSys(iTimer,myThreadId) + |
./eesupp/src/timers.F |
316 |
TIMER_CONTROL |
& timerT0Sys(iTimer,myThreadId) |
./eesupp/src/timers.F |
317 |
TIMER_CONTROL |
timerWall(iTimer,myThreadId) = |
./eesupp/src/timers.F |
318 |
TIMER_CONTROL |
& timerWall(iTimer,myThreadId) + |
./eesupp/src/timers.F |
320 |
TIMER_CONTROL |
& timerT0Wall(iTimer,myThreadId) |
./eesupp/src/timers.F |
323 |
TIMER_CONTROL |
values(i,iTimer,myThreadId) = values(i,iTimer,myThreadId) + |
./eesupp/src/timers.F |
324 |
TIMER_CONTROL |
$ values2(i,iTimer,myThreadId) - values1(i,iTimer,myThreadId) |
./eesupp/src/timers.F |
329 |
TIMER_CONTROL |
i_result(i,iTimer,myThreadId) = i_result(i,iTimer |
./eesupp/src/timers.F |
330 |
TIMER_CONTROL |
$ ,myThreadId) + i_result2(i,iTimer,myThreadId) - |
./eesupp/src/timers.F |
331 |
TIMER_CONTROL |
$ i_result1(i,iTimer,myThreadId) |
./eesupp/src/timers.F |
335 |
TIMER_CONTROL |
timerStatus(iTimer,myThreadId) = STOPPED |
./eesupp/src/timers.F |
336 |
TIMER_CONTROL |
timerStops (iTimer,myThreadId) = |
./eesupp/src/timers.F |
337 |
TIMER_CONTROL |
& timerStops (iTimer,myThreadId)+1 |
./eesupp/src/timers.F |
489 |
TIMER_CONTROL |
IF ( iTimer .EQ. 0 ) GOTO 905 |
./eesupp/src/timers.F |
492 |
TIMER_CONTROL |
& timerNames(iTimer,myThreadId)(1:timerNameLen(iTimer,myThreadId)) |
./eesupp/src/timers.F |
497 |
TIMER_CONTROL |
& timerUser(iTimer,myThreadId) |
./eesupp/src/timers.F |
501 |
TIMER_CONTROL |
& timerSys(iTimer,myThreadId) |
./eesupp/src/timers.F |
505 |
TIMER_CONTROL |
& timerWall(iTimer,myThreadId) |
./eesupp/src/timers.F |
509 |
TIMER_CONTROL |
& timerStarts(iTimer,myThreadId) |
./eesupp/src/timers.F |
513 |
TIMER_CONTROL |
& timerStops(iTimer,myThreadId) |
./eesupp/src/timers.F |
520 |
TIMER_CONTROL |
$ values(i,iTimer,myThreadId)/timerUser(iTimer,myThreadId) |
./eesupp/src/timers.F |
521 |
TIMER_CONTROL |
$ ,values(i,iTimer,myThreadId)/timerWall(iTimer,myThreadId |
./eesupp/src/timers.F |
522 |
TIMER_CONTROL |
$ ),1.D0*values(i,iTimer,myThreadId) |
./eesupp/src/timers.F |
530 |
TIMER_CONTROL |
$ i_result(i,iTimer,myThreadId)/timerUser(iTimer |
./eesupp/src/timers.F |
531 |
TIMER_CONTROL |
$ ,myThreadId),i_result(i,iTimer,myThreadId) |
./eesupp/src/timers.F |
532 |
TIMER_CONTROL |
$ /timerWall(iTimer,myThreadId),1.D0*i_result(i,iTimer |