/[MITgcm]/MITgcm/eesupp/src/timers.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/timers.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by cnh, Tue Sep 29 18:50:56 1998 UTC revision 1.4 by cnh, Wed Oct 28 03:11:35 1998 UTC
# Line 143  C Line 143  C
143        tmpAction = action(ISTART:IEND)        tmpAction = action(ISTART:IEND)
144        CALL UCASE( tmpAction )        CALL UCASE( tmpAction )
145  C  C
146        iTimer=TIMER_INDEX(tmpName,timerNames(1,myThreadId),maxTimers,nTimers(myThreadId))        iTimer=TIMER_INDEX(tmpName,timerNames(1,myThreadId),
147         &       maxTimers,nTimers(myThreadId))
148  C  C
149        IF     ( tmpAction .EQ. START ) THEN        IF     ( tmpAction .EQ. START ) THEN
150          IF ( iTimer .EQ. 0 ) THEN          IF ( iTimer .EQ. 0 ) THEN
# Line 151  C Line 152  C
152              nTimers(myThreadId) = nTimers(myThreadId) + 1              nTimers(myThreadId) = nTimers(myThreadId) + 1
153              iTimer  = nTimers(myThreadId)              iTimer  = nTimers(myThreadId)
154              timerNames(iTimer,myThreadId)    = tmpName              timerNames(iTimer,myThreadId)    = tmpName
155              timerNameLen(iTimer,myThreadId)  = ILNBLNK(tmpName)-IFNBLNK(tmpName)+1              timerNameLen(iTimer,myThreadId)  =
156         &       ILNBLNK(tmpName)-IFNBLNK(tmpName)+1
157              timerUser(iTimer,myThreadId)     = 0.              timerUser(iTimer,myThreadId)     = 0.
158              timerSys (iTimer,myThreadId)     = 0.              timerSys (iTimer,myThreadId)     = 0.
159              timerWall(iTimer,myThreadId)     = 0.              timerWall(iTimer,myThreadId)     = 0.
# Line 165  C Line 167  C
167            timerT0Sys(iTimer,myThreadId)  = systemTime            timerT0Sys(iTimer,myThreadId)  = systemTime
168            timerT0Wall(iTimer,myThreadId) = wallClockTime            timerT0Wall(iTimer,myThreadId) = wallClockTime
169            timerStatus(iTimer,myThreadId) = RUNNING            timerStatus(iTimer,myThreadId) = RUNNING
170            timerStarts(iTimer,myThreadId) = timerStarts(iTimer,myThreadId)+1            timerStarts(iTimer,myThreadId) =
171         &       timerStarts(iTimer,myThreadId)+1
172          ENDIF          ENDIF
173        ELSEIF ( tmpAction .EQ. STOP ) THEN        ELSEIF ( tmpAction .EQ. STOP ) THEN
174          IF ( iTimer .EQ. 0 ) GOTO 905          IF ( iTimer .EQ. 0 ) GOTO 905
175          IF ( timerStatus(iTimer,myThreadId) .EQ. RUNNING ) THEN          IF ( timerStatus(iTimer,myThreadId) .EQ. RUNNING ) THEN
176            CALL TIMER_GET_TIME( userTime, systemTime, wallClockTime )            CALL TIMER_GET_TIME( userTime, systemTime, wallClockTime )
177            timerUser(iTimer,myThreadId)    = timerUser(iTimer,myThreadId) +            timerUser(iTimer,myThreadId)    =
178         &       timerUser(iTimer,myThreadId) +
179       &                           userTime          -       &                           userTime          -
180       &                           timerT0User(iTimer,myThreadId)       &                           timerT0User(iTimer,myThreadId)
181            timerSys (iTimer,myThreadId)    = timerSys(iTimer,myThreadId) +            timerSys (iTimer,myThreadId)    =
182         &       timerSys(iTimer,myThreadId) +
183       &                           systemTime -       &                           systemTime -
184       &                           timerT0Sys(iTimer,myThreadId)       &                           timerT0Sys(iTimer,myThreadId)
185            timerWall(iTimer,myThreadId)    = timerWall(iTimer,myThreadId) +            timerWall(iTimer,myThreadId)    =
186         &       timerWall(iTimer,myThreadId) +
187       &                           wallClockTime -       &                           wallClockTime -
188       &                           timerT0Wall(iTimer,myThreadId)       &                           timerT0Wall(iTimer,myThreadId)
189            timerStatus(iTimer,myThreadId)  = STOPPED            timerStatus(iTimer,myThreadId)  = STOPPED
190            timerStops (iTimer,myThreadId)  = timerStops (iTimer,myThreadId)+1            timerStops (iTimer,myThreadId)  =
191         &    timerStops (iTimer,myThreadId)+1
192          ENDIF          ENDIF
193        ELSEIF ( tmpAction .EQ. PRINT ) THEN        ELSEIF ( tmpAction .EQ. PRINT ) THEN
194          IF ( iTimer .EQ. 0 ) GOTO 905          IF ( iTimer .EQ. 0 ) GOTO 905
195          WRITE(msgBuffer,*)          WRITE(msgBuffer,*)
196       &  ' Seconds in section "',       &  ' Seconds in section "',
197       &  timerNames(iTimer,myThreadId)(1:timerNameLen(iTimer,myThreadId)),'":'       &  timerNames(iTimer,myThreadId)(1:timerNameLen(iTimer,myThreadId))
198          CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)       &  ,'":'
199          WRITE(msgBuffer,*) '         User time:',timerUser(iTimer,myThreadId)          CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
200          CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)       &  SQUEEZE_RIGHT,myThreadId)
201          WRITE(msgBuffer,*) '       System time:',timerSys(iTimer,myThreadId)          WRITE(msgBuffer,*) '         User time:',
202          CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)       &  timerUser(iTimer,myThreadId)
203          WRITE(msgBuffer,*) '   Wall clock time:',timerWall(iTimer,myThreadId)          CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
204          CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)       &  SQUEEZE_RIGHT,myThreadId)
205          WRITE(msgBuffer,*) '        No. starts:',timerStarts(iTimer,myThreadId)          WRITE(msgBuffer,*) '       System time:',
206          CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)       &  timerSys(iTimer,myThreadId)
207          WRITE(msgBuffer,*) '         No. stops:',timerStops(iTimer,myThreadId)          CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
208          CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)       &  SQUEEZE_RIGHT,myThreadId)
209            WRITE(msgBuffer,*) '   Wall clock time:',
210         &  timerWall(iTimer,myThreadId)
211            CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
212         &  SQUEEZE_RIGHT,myThreadId)
213            WRITE(msgBuffer,*) '        No. starts:',
214         &  timerStarts(iTimer,myThreadId)
215            CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
216         &  SQUEEZE_RIGHT,myThreadId)
217            WRITE(msgBuffer,*) '         No. stops:',
218         &  timerStops(iTimer,myThreadId)
219            CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
220         &  SQUEEZE_RIGHT,myThreadId)
221        ELSEIF ( tmpAction .EQ. PRINTALL ) THEN        ELSEIF ( tmpAction .EQ. PRINTALL ) THEN
222          DO 10 I = 1, nTimers(myThreadId)          DO 10 I = 1, nTimers(myThreadId)
223           WRITE(msgBuffer,*) ' Seconds in section "',           WRITE(msgBuffer,*) ' Seconds in section "',
224       &            timerNames(I,myThreadId)(1:timerNameLen(I,myThreadId)),'":'       &            timerNames(I,myThreadId)(1:timerNameLen(I,myThreadId))
225           CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)       &  ,'":'
226           WRITE(msgBuffer,*) '         User time:',timerUser(I,myThreadId)           CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
227           CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)       &  SQUEEZE_RIGHT,myThreadId)
228           WRITE(msgBuffer,*) '       System time:',timerSys(I,myThreadId)           WRITE(msgBuffer,*) '         User time:',
229           CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)       &  timerUser(I,myThreadId)
230           WRITE(msgBuffer,*) '   Wall clock time:',timerWall(I,myThreadId)           CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
231           CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)       &  SQUEEZE_RIGHT,myThreadId)
232           WRITE(msgBuffer,*) '        No. starts:',timerStarts(I,myThreadId)           WRITE(msgBuffer,*) '       System time:',
233           CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)       &  timerSys(I,myThreadId)
234           WRITE(msgBuffer,*) '         No. stops:',timerStops(I,myThreadId)           CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
235           CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)       &  SQUEEZE_RIGHT,myThreadId)
236             WRITE(msgBuffer,*) '   Wall clock time:',
237         &  timerWall(I,myThreadId)
238             CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
239         &  SQUEEZE_RIGHT,myThreadId)
240             WRITE(msgBuffer,*) '        No. starts:',
241         &  timerStarts(I,myThreadId)
242             CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
243         &  SQUEEZE_RIGHT,myThreadId)
244             WRITE(msgBuffer,*) '         No. stops:',
245         &  timerStops(I,myThreadId)
246             CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
247         &  SQUEEZE_RIGHT,myThreadId)
248     10   CONTINUE     10   CONTINUE
249        ELSE        ELSE
250          GOTO 903          GOTO 903
# Line 225  C Line 256  C
256    901 CONTINUE    901 CONTINUE
257        WRITE(msgBuffer,'(A)')        WRITE(msgBuffer,'(A)')
258       &'                                                       '       &'                                                       '
259        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
260         &  SQUEEZE_RIGHT,myThreadId)
261        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
262       &'*** WARNING WARNING WARNING WARNING WARNING WARNING ***'       &'*** WARNING WARNING WARNING WARNING WARNING WARNING ***'
263        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
264         &  SQUEEZE_RIGHT,myThreadId)
265        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
266       &'procedure: "',callProc,'".'       &'procedure: "',callProc,'".'
267        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
268         &  SQUEEZE_RIGHT,myThreadId)
269        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
270       &'Timer name "',name(ISTART:IEND),'" is invalid.'       &'Timer name "',name(ISTART:IEND),'" is invalid.'
271        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
272         &  SQUEEZE_RIGHT,myThreadId)
273        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
274       &' Names must have fewer than',maxString+1,' characters.'       &' Names must have fewer than',maxString+1,' characters.'
275        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
276         &  SQUEEZE_RIGHT,myThreadId)
277        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
278       &'*******************************************************'       &'*******************************************************'
279        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
280         &  SQUEEZE_RIGHT,myThreadId)
281        GOTO 1000        GOTO 1000
282    902 CONTINUE    902 CONTINUE
283        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
284       &'                                                       '       &'                                                       '
285        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
286         &  SQUEEZE_RIGHT,myThreadId)
287        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
288       &'*** WARNING WARNING WARNING WARNING WARNING WARNING ***'       &'*** WARNING WARNING WARNING WARNING WARNING WARNING ***'
289        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
290         &  SQUEEZE_RIGHT,myThreadId)
291        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
292       &'procedure: "',callProc,'".'       &'procedure: "',callProc,'".'
293        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
294         &  SQUEEZE_RIGHT,myThreadId)
295        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
296       &' No timer action specified.'       &' No timer action specified.'
297        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
298         &  SQUEEZE_RIGHT,myThreadId)
299        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
300       &' Valid actions are:'       &' Valid actions are:'
301        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
302         &  SQUEEZE_RIGHT,myThreadId)
303        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
304       &' "START", "STOP", "PRINT" and "PRINTALL".'       &' "START", "STOP", "PRINT" and "PRINTALL".'
305        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
306         &  SQUEEZE_RIGHT,myThreadId)
307        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
308       &'*******************************************************'       &'*******************************************************'
309        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
310         &  SQUEEZE_RIGHT,myThreadId)
311        GOTO 1000        GOTO 1000
312    903 CONTINUE    903 CONTINUE
313        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
314       &'                                                       '       &'                                                       '
315        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
316         &  SQUEEZE_RIGHT,myThreadId)
317        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
318       &'*** WARNING WARNING WARNING WARNING WARNING WARNING ***'       &'*** WARNING WARNING WARNING WARNING WARNING WARNING ***'
319        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
320         &  SQUEEZE_RIGHT,myThreadId)
321        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
322       &'procedure: "',callProc,'".'       &'procedure: "',callProc,'".'
323        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
324         &  SQUEEZE_RIGHT,myThreadId)
325        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
326       &'Timer action"',name(ISTART:IEND),'" is invalid.'       &'Timer action"',name(ISTART:IEND),'" is invalid.'
327        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
328         &  SQUEEZE_RIGHT,myThreadId)
329        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
330       &' Valid actions are:'       &' Valid actions are:'
331        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
332         &  SQUEEZE_RIGHT,myThreadId)
333        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
334       &' "START", "STOP", "PRINT" and "PRINTALL".'       &' "START", "STOP", "PRINT" and "PRINTALL".'
335        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
336         &  SQUEEZE_RIGHT,myThreadId)
337        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
338       &'*******************************************************'       &'*******************************************************'
339        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
340         &  SQUEEZE_RIGHT,myThreadId)
341        GOTO 1000        GOTO 1000
342    904 CONTINUE    904 CONTINUE
343        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
344       &'                                                       '       &'                                                       '
345        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
346         &  SQUEEZE_RIGHT,myThreadId)
347        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
348       &'*** WARNING WARNING WARNING WARNING WARNING WARNING ***'       &'*** WARNING WARNING WARNING WARNING WARNING WARNING ***'
349        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
350         &  SQUEEZE_RIGHT,myThreadId)
351        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
352       &'procedure: "',callProc,'".'       &'procedure: "',callProc,'".'
353        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
354         &  SQUEEZE_RIGHT,myThreadId)
355        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
356       &'Timer "',name(ISTART:IEND),'" cannot be created.'       &'Timer "',name(ISTART:IEND),'" cannot be created.'
357        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
358         &  SQUEEZE_RIGHT,myThreadId)
359        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
360       &' Only ',maxTimers,' timers are allowed.'       &' Only ',maxTimers,' timers are allowed.'
361        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
362         &  SQUEEZE_RIGHT,myThreadId)
363        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
364       &'*******************************************************'       &'*******************************************************'
365        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
366         &  SQUEEZE_RIGHT,myThreadId)
367        GOTO 1000        GOTO 1000
368    905 CONTINUE    905 CONTINUE
369        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
370       &'                                                       '       &'                                                       '
371        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
372         &  SQUEEZE_RIGHT,myThreadId)
373        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
374       &'*** WARNING WARNING WARNING WARNING WARNING WARNING ***'       &'*** WARNING WARNING WARNING WARNING WARNING WARNING ***'
375        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
376         &  SQUEEZE_RIGHT,myThreadId)
377        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
378       &'procedure: "',callProc,'".'       &'procedure: "',callProc,'".'
379        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
380         &  SQUEEZE_RIGHT,myThreadId)
381        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
382       &'Timer name is blank.'       &'Timer name is blank.'
383        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
384         &  SQUEEZE_RIGHT,myThreadId)
385        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
386       &' A name must be used with "START", "STOP" or  "PRINT".'       &' A name must be used with "START", "STOP" or  "PRINT".'
387        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
388         &  SQUEEZE_RIGHT,myThreadId)
389        WRITE(msgBuffer,*)        WRITE(msgBuffer,*)
390       &'*******************************************************'       &'*******************************************************'
391        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,SQUEEZE_RIGHT,myThreadId)        CALL PRINT_MESSAGE(msgBuffer,standardMessageUnit,
392         &  SQUEEZE_RIGHT,myThreadId)
393        GOTO 1000        GOTO 1000
394        END        END
395    
# Line 351  CEndOfInterface Line 414  CEndOfInterface
414        Real*4 ETIME, ACTUAL, TARRAY(2)        Real*4 ETIME, ACTUAL, TARRAY(2)
415        EXTERNAL ETIME        EXTERNAL ETIME
416        Real*8 wtime        Real*8 wtime
417        Real*8 MPI_Wtime  C     Real*8 MPI_Wtime
418        EXTERNAL MPI_Wtime  C     EXTERNAL MPI_Wtime
419    
420        ACTUAL = ETIME(TARRAY)        ACTUAL = ETIME(TARRAY)
421            
# Line 384  C     \================================= Line 447  C     \=================================
447  CEndOfInterface  CEndOfInterface
448  C     Print out value for every timer.  C     Print out value for every timer.
449  C  C
450        CALL TIMER_CONTROL( ' ', 'PRINTALL', 'TIMER_PRINTALL' , myThreadId )        CALL TIMER_CONTROL( ' ', 'PRINTALL', 'TIMER_PRINTALL' ,
451         &                   myThreadId )
452  C  C
453        RETURN        RETURN
454        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22