home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / fortran / 4739 < prev    next >
Encoding:
Internet Message Format  |  1992-12-15  |  1.7 KB
  1. Path: sparky!uunet!elroy.jpl.nasa.gov!nntp-server.caltech.edu!almach.caltech.edu!shoppa
  2. From: shoppa@almach.caltech.edu (TIM SHOPPA)
  3. Newsgroups: comp.lang.fortran
  4. Subject: Re: getting system time (runtime) in fortran
  5. Date: 15 Dec 1992 15:32 PST
  6. Organization: California Institute of Technology
  7. Lines: 47
  8. Distribution: world
  9. Message-ID: <15DEC199215323047@almach.caltech.edu>
  10. References: <swood.724386338@vela>
  11. NNTP-Posting-Host: almach.caltech.edu
  12. News-Software: VAX/VMS VNEWS 1.41    
  13.  
  14. In article <swood.724386338@vela>, swood@vela.acs.oakland.edu (Scott Wood - EVENSONG) writes...
  15. >I have an assignment that I would like to do in fortran (don't ask me why)
  16. >but I need to be able to get run time to monitor the efficiency of the program.
  17. > 
  18. >I am compiling on a VAX system running a VMS OS (don't ask me why).
  19. > 
  20. >If you can help me out, please send me mail asap.
  21. > 
  22. >Thanks
  23. > 
  24. >swood
  25. > 
  26. Hi,
  27.     Here is a function that does what you want in VMS Fortran.  I'm
  28. posting it as well as sending it to you because it might come in handy
  29. for others too.  I think it is quite self-explanatory.
  30.  
  31.                     Tim (shoppa@erin.caltech.edu)
  32.  
  33.       INTEGER*4 FUNCTION ITCPU( )
  34. C****
  35. C****
  36. C**** SYSTEM SERVICES ROUTINE IS USED TO OBTAIN CPU TIME USED
  37. C**** TIME IS MEASURED IN UNITS OF 10msec TICKS
  38. C****
  39. C****
  40.       EXTERNAL JPI$_CPUTIM
  41.       INTEGER*4 SYS$GETGPI
  42.       INTEGER*4 ICPU
  43.       INTEGER*4 ITEMLIST(4)
  44.       INTEGER*2 ITEMLST(8)
  45.       EQUIVALENCE( ITEMLIST(1), ITEMLST(1) )
  46. C****
  47. C****
  48.       ITEMLST(1)  = 4
  49.       ITEMLST(2)  = %LOC(JPI$_CPUTIM)
  50.       ITEMLST(7)  = 4
  51.       ITEMLST(8)  = 0
  52.       ITEMLIST(2) = %LOC(ICPU)
  53.       ITEMLIST(3) = 0
  54. C****
  55. C****
  56.       CALL SYS$GETJPI( , , , ITEMLIST, , , )
  57.       ITCPU = ICPU
  58.       RETURN
  59.       END
  60.  
  61.