home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / os / vms / 21641 < prev    next >
Encoding:
Text File  |  1993-01-21  |  2.7 KB  |  88 lines
  1. Newsgroups: comp.os.vms
  2. Path: sparky!uunet!ulowell!woods.ulowell.edu!welchb
  3. From: welchb@woods.ulowell.edu
  4. Subject: Re: cpu time measurement on VMS
  5. Message-ID: <1993Jan21.142131.1@woods.ulowell.edu>
  6. Lines: 76
  7. Sender: usenet@ulowell.ulowell.edu (News manager - ulowell)
  8. Organization: University of Lowell
  9. References: <1993Jan20.164619.8700@eecs.nwu.edu>
  10. Date: Thu, 21 Jan 1993 19:21:31 GMT
  11.  
  12. In article <1993Jan20.164619.8700@eecs.nwu.edu>, shil@eecs.nwu.edu (Lei Shi) writes:
  13. > Hi: 
  14. > 
  15. >    I am a new user of OpenVMS running on Alpha. I have a problem and I am asking
  16. > for your help.  I have a FORTRAN program. I compile and link it and use run 
  17. > command to run it.  My question is how I can measure the total CPU used by the 
  18. > execution of the program.  In UNIX, I can easily use time to do it.  
  19. > But how do I do it in VMS?  Can some one help me?  Thanks a lot. 
  20. > 
  21. >                     Your Sincerely,
  22. > 
  23. >                     Lei Shi
  24. > 
  25. > -------------------------------------------------------------------
  26. > Lei Shi            |  Department of Electrical Engineering and 
  27. > shil@eecs.nwu.edu    |                Computer Science 
  28. > i            |  Northwestern University
  29. > Work: (708)467-2299     |  Evanston, IL 60208-3118
  30. c---- timer2.for
  31.       PROGRAM TIMER
  32. C    
  33. C          Program to illustrate the use of commands that
  34. C          allow CPU time for execution to be determined.
  35. C
  36. C          This version writes timer statistics to output file.
  37. C
  38.       INTEGER*4 TIMER_ADDR,TIMER_ROUTINE
  39.       EXTERNAL TIMER_ROUTINE
  40. C          declare library routines
  41.       INTEGER*4 LIB$INIT_TIMER,LIB$SHOW_TIMER
  42. C          declare as external
  43.       EXTERNAL LIB$INIT_TIMER,LIB$SHOW_TIMER
  44. C          set up work variables
  45.       INTEGER*4 STATUS
  46. C
  47. C          create output file
  48.       CALL ASSIGN(2,'TIMER.OUT')
  49. C
  50.       TIMER_ADDR=0
  51. C
  52. C          set timer
  53.       STATUS=LIB$INIT_TIMER(TIMER_ADDR)
  54.  
  55. c---------------------------------------------------------------------
  56. C    sample do loop to use some CPU time
  57. c-----------------  your thing to be timed goes here  ----------------
  58.       DO 100 I=1,50         ! remove these 4 lines
  59.       WRITE(2,80) I
  60.    80 FORMAT(1X,'     I =',I4)
  61.   100 CONTINUE
  62. c---------------------------------------------------------------------
  63. C
  64. C         get CPU time statistics
  65.       STATUS=LIB$SHOW_TIMER(TIMER_ADDR,,TIMER_ROUTINE,)
  66. C
  67. C
  68.       TYPE120
  69.   120 FORMAT(//,1X,'OUTPUT IN "TIMER.OUT"',/)
  70. C
  71.       STOP
  72.       END
  73.       INTEGER FUNCTION TIMER_ROUTINE(STATS)
  74. C    
  75. C          subroutine to output timer statistics
  76. C
  77.       CHARACTER*(*) STATS
  78. C
  79. C          must return success value of 1
  80.       TIMER_ROUTINE = 1
  81. C
  82. C          output timer stat line
  83.       WRITE(2,100) STATS
  84.   100 FORMAT(//,1X,'TIMER STATISTICS:',/,1X,A)
  85.       END
  86. -- 
  87. Brendan Welch, UMass/Lowell, W1LPG,  welchb@woods.ulowell.edu
  88.