home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / os / vms / 21987 < prev    next >
Encoding:
Internet Message Format  |  1993-01-26  |  3.4 KB
  1. Path: sparky!uunet!spool.mu.edu!agate!ucbvax!istvax!gloesener
  2. From: gloesener@istvax
  3. Newsgroups: comp.os.vms
  4. Subject: Re: CPU time measurement on VMS
  5. Message-ID: <009672E6.8207EB40.2417@istvax.ist.lu>
  6. Date: 26 Jan 93 14:41:25 GMT
  7. Sender: daemon@ucbvax.BERKELEY.EDU
  8. Distribution: world
  9. Organization: The Internet
  10. Lines: 61
  11.  
  12. > In article <01GTTXFQMDQQ0006QT@ACAD.DRAKE.EDU>, SK0001@ACAD.DRAKE.EDU (Sal Kabalani) writes:
  13. > >LS>    I am a new user of OpenVMS running on Alpha. I have a problem and I am
  14. > >LS> asking for your help.  I have a FORTRAN program. I compile and link it and
  15. > >LS> use run command to run it.  My question is how I can measure the total CPU
  16. > >LS> used by the execution of the program.  In UNIX, I can easily use time to
  17. > >LS> do it.  But how do I do it in VMS?  Can some one help me?  Thanks a lot.
  18. > >
  19. > >The following is a fragment of code from a program I wrote a few months ago.
  20. > >The fragment reports CPU Time, Buffered I/O, Direct I/O and Page Faults used
  21. > >during program execution. The way the code works is simple: you collect this
  22. > >information at the beginning of your program using sys$getjpi, then collect it
  23. > >again at the end, then report the difference.
  24. >
  25. > Why not just:
  26. >     $ SHOW STATUS
  27. >     $ RUN program
  28. >     $ SHOW STATUS
  29. > then subtract the former CPU time from the latter?  That will, of course,
  30. > include the time required for 1 "SHOW STATUS" command plus the time to activate
  31. > the image in the "RUN program" command, and of course you'll have to subtract
  32. > the times yourself (or write, e.g., a TPU procedure to do it for you).
  33.  
  34.  Or SET CONTROL=T (if it is not the default)
  35.  
  36.  Press CTRL-T
  37.  
  38.  $ RUN program
  39.  
  40.  Press CTRL-T
  41.  and substract the times.
  42.  
  43.  
  44.  
  45. ================================================================================
  46.                        | GGGGGG     Gasty Gloesener,
  47. IIIIII  SSSSSS  TTTTTT | GG         Assistant of the Institute of Technology
  48.   II    SS        TT   | GG  GGGGGG in Luxembourg
  49.   II    SSSSSS    TT   | GG  GG
  50.   II        SS    TT   | GGGGGG     Responsible for: VMS management, security,
  51. IIIIII  SSSSSS    TT   |     GG  GG                  programming
  52.                        |     GGGGGG                  UNIX stations management
  53.                        |                             NETWORK management
  54. ================================================================================
  55. e-mail: gloesener@istvax.ist.lu       | PSI: psi%0270442110::GLOESENER
  56.         gloesener@menvax.restena.lu   |
  57. ================================================================================
  58.  
  59. ================================================================================
  60.                        | GGGGGG     Gasty Gloesener, 
  61. IIIIII  SSSSSS  TTTTTT | GG         Assistant of the Institute of Technology
  62.   II    SS        TT   | GG  GGGGGG in Luxembourg
  63.   II    SSSSSS    TT   | GG  GG     
  64.   II        SS    TT   | GGGGGG     Responsible for: VMS management, security,
  65. IIIIII  SSSSSS    TT   |     GG  GG                  programming
  66.                        |     GGGGGG                  UNIX stations management
  67.                        |                             NETWORK management
  68. ================================================================================
  69. e-mail: gloesener@istvax.ist.lu       | PSI: psi%0270442110::GLOESENER
  70.         gloesener@menvax.restena.lu   |
  71. ================================================================================
  72.  
  73.