File |
Line number |
Procedure |
Code |
./optim/utils.F |
18 |
DATE |
SUBROUTINE DATE ( string , myThreadId ) |
./optim/utils.F |
28 |
DATE |
INTEGER myThreadId |
./optim/utils.F |
47 |
DATE |
&SQUEEZE_RIGHT,myThreadId) |
./optim/utils.F |
51 |
DATE |
&SQUEEZE_RIGHT,myThreadId) |
./optim/utils.F |
55 |
DATE |
&SQUEEZE_RIGHT,myThreadId) |
./optim/utils.F |
59 |
DATE |
&SQUEEZE_RIGHT,myThreadId) |
./optim/utils.F |
63 |
DATE |
&SQUEEZE_RIGHT,myThreadId) |
./optim/utils.F |
67 |
DATE |
&SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
109 |
TIMER_CONTROL |
INTEGER myThreadId |
./eesupp/src/timers.F |
244 |
TIMER_CONTROL |
iTimer=TIMER_INDEX(tmpName,timerNames(1,myThreadId), |
./eesupp/src/timers.F |
245 |
TIMER_CONTROL |
& maxTimers,nTimers(myThreadId)) |
./eesupp/src/timers.F |
249 |
TIMER_CONTROL |
IF ( nTimers(myThreadId) .EQ. maxTimers ) GOTO 904 |
./eesupp/src/timers.F |
250 |
TIMER_CONTROL |
nTimers(myThreadId) = nTimers(myThreadId) + 1 |
./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 |
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 |
350 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
358 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
361 |
TIMER_CONTROL |
_BEGIN_MASTER(myThreadId) |
./eesupp/src/timers.F |
362 |
TIMER_CONTROL |
CALL MDSFINDUNIT (papiunit, myThreadId) |
./eesupp/src/timers.F |
371 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
380 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
398 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
411 |
TIMER_CONTROL |
_BEGIN_MASTER(myThreadId) |
./eesupp/src/timers.F |
412 |
TIMER_CONTROL |
CALL MDSFINDUNIT (pclunit, myThreadId) |
./eesupp/src/timers.F |
421 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
438 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
452 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
472 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
482 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
492 |
TIMER_CONTROL |
& timerNames(iTimer,myThreadId)(1:timerNameLen(iTimer,myThreadId)) |
./eesupp/src/timers.F |
495 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
497 |
TIMER_CONTROL |
& timerUser(iTimer,myThreadId) |
./eesupp/src/timers.F |
499 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
501 |
TIMER_CONTROL |
& timerSys(iTimer,myThreadId) |
./eesupp/src/timers.F |
503 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
505 |
TIMER_CONTROL |
& timerWall(iTimer,myThreadId) |
./eesupp/src/timers.F |
507 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
509 |
TIMER_CONTROL |
& timerStarts(iTimer,myThreadId) |
./eesupp/src/timers.F |
511 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
513 |
TIMER_CONTROL |
& timerStops(iTimer,myThreadId) |
./eesupp/src/timers.F |
515 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,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 |
524 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,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 |
./eesupp/src/timers.F |
533 |
TIMER_CONTROL |
$ ,myThreadId) |
./eesupp/src/timers.F |
535 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
540 |
TIMER_CONTROL |
DO 10 I = 1, nTimers(myThreadId) |
./eesupp/src/timers.F |
542 |
TIMER_CONTROL |
& timerNames(I,myThreadId)(1:timerNameLen(I,myThreadId)) |
./eesupp/src/timers.F |
545 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
547 |
TIMER_CONTROL |
& timerUser(I,myThreadId) |
./eesupp/src/timers.F |
549 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
551 |
TIMER_CONTROL |
& timerSys(I,myThreadId) |
./eesupp/src/timers.F |
553 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
555 |
TIMER_CONTROL |
& timerWall(I,myThreadId) |
./eesupp/src/timers.F |
557 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
559 |
TIMER_CONTROL |
& timerStarts(I,myThreadId) |
./eesupp/src/timers.F |
561 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
563 |
TIMER_CONTROL |
& timerStops(I,myThreadId) |
./eesupp/src/timers.F |
565 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
570 |
TIMER_CONTROL |
$ values(j,I,myThreadId)/timerUser(I,myThreadId), |
./eesupp/src/timers.F |
571 |
TIMER_CONTROL |
$ values(j,I,myThreadId)/timerWall(I,myThreadId), |
./eesupp/src/timers.F |
572 |
TIMER_CONTROL |
$ 1.D0*values(j,I,myThreadId) |
./eesupp/src/timers.F |
574 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
580 |
TIMER_CONTROL |
$ i_result(j,I,myThreadId)/timerUser(I,myThreadId) |
./eesupp/src/timers.F |
581 |
TIMER_CONTROL |
$ ,i_result(j,I,myThreadId)/timerWall(I,myThreadId),1.D0 |
./eesupp/src/timers.F |
582 |
TIMER_CONTROL |
$ *i_result(j,I,myThreadId) |
./eesupp/src/timers.F |
584 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
600 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
604 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
608 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
612 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
616 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
620 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
626 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
630 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
634 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
638 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
642 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
646 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
650 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
656 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
660 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
664 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
668 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
672 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
676 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
680 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
686 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
690 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
694 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
698 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
702 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
706 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
712 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
716 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
720 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
724 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
728 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
732 |
TIMER_CONTROL |
& SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/timers.F |
77 |
TIMER_CONTROL |
SUBROUTINE TIMER_CONTROL ( name , action , callProc , myThreadId ) |
./eesupp/src/timers.F |
860 |
TIMER_PRINTALL |
SUBROUTINE TIMER_PRINTALL( myThreadId ) |
./eesupp/src/timers.F |
873 |
TIMER_PRINTALL |
INTEGER myThreadId |
./eesupp/src/timers.F |
877 |
TIMER_PRINTALL |
& myThreadId ) |
./eesupp/src/timers.F |
887 |
TIMER_START |
SUBROUTINE TIMER_START ( string , myThreadId ) |
./eesupp/src/timers.F |
897 |
TIMER_START |
INTEGER myThreadId |
./eesupp/src/timers.F |
900 |
TIMER_START |
CALL TIMER_CONTROL( string, 'START', 'TIMER_START' , myThreadId) |
./eesupp/src/timers.F |
910 |
TIMER_STOP |
SUBROUTINE TIMER_STOP ( string , myThreadId ) |
./eesupp/src/timers.F |
920 |
TIMER_STOP |
INTEGER myThreadId |
./eesupp/src/timers.F |
923 |
TIMER_STOP |
CALL TIMER_CONTROL( string, 'STOP', 'TIMER_STOP' , myThreadId ) |
./eesupp/src/utils.F |
23 |
DATE |
SUBROUTINE DATE ( string , myThreadId ) |
./eesupp/src/utils.F |
40 |
DATE |
INTEGER myThreadId |
./eesupp/src/utils.F |
62 |
DATE |
&SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/utils.F |
66 |
DATE |
&SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/utils.F |
70 |
DATE |
&SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/utils.F |
74 |
DATE |
&SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/utils.F |
78 |
DATE |
&SQUEEZE_RIGHT,myThreadId) |
./eesupp/src/utils.F |
82 |
DATE |
&SQUEEZE_RIGHT,myThreadId) |