home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / unix / aix / 8309 < prev    next >
Encoding:
Text File  |  1992-07-29  |  2.5 KB  |  71 lines

  1. Newsgroups: comp.unix.aix
  2. Path: sparky!uunet!usc!sdd.hp.com!ux1.cso.uiuc.edu!news.cso.uiuc.edu!uimrl7.mrl.uiuc.edu!ercolessi
  3. From: ercolessi@uimrl7.mrl.uiuc.edu (furio ercolessi)
  4. Subject: Re: FOrtran utilities
  5. References:  <1992Jul29.192101.27729@ucunix.san.uc.edu>
  6. Message-ID: <Bs67Ev.Cp4@news.cso.uiuc.edu>
  7. Sender: usenet@news.cso.uiuc.edu (Net Noise owner)
  8. Reply-To: ercolessi@uimrl7.mrl.uiuc.edu (furio ercolessi)
  9. Organization: MRL - UIUC
  10. Date: Wed, 29 Jul 1992 21:52:05 GMT
  11. Lines: 58
  12.  
  13. In article <1992Jul29.192101.27729@ucunix.san.uc.edu>, pollack@ucunix.san.uc.edu (Steven Pollack)
  14. writes:
  15. |>I am looking for two simple fortran or fortran/c subroutines which will 
  16. |>
  17. |>1) return the cpu time used by a process in seconds.
  18. |>
  19. |>2) return the ascii date as a character variable.
  20. |>
  21. |>Someone has just got!!!! to have these laying around.  Please?
  22.  
  23. For 1), use MCLOCK.  For 2), here we go (if you don't like the
  24. format it's easy to change; there is also a way to get a
  25. string similar to 'date' output). 
  26.  
  27.       CHARACTER*8 FUNCTION NDATE()
  28.  
  29. ******** RETURNS THE CURRENT DATE IN THE FORMAT YY/MM/DD
  30.  
  31. *        AIX VERSION (MAY WORK WITH OTHER SYSTEM V OR BSD)
  32.       INTEGER SINCE_EPOCH,TM(9)
  33.       POINTER (TMADDR,TM)
  34.       CHARACTER*8 CHABUF
  35.       I1 = TIME(SINCE_EPOCH)
  36. *        TMADDR IS THE ADDRESS OF A 9-ELEMENTS INTEGER ARRAY
  37.       TMADDR = LOCALTIME(SINCE_EPOCH)
  38. *        NOW TM=(SECS 0-59,MIN 0-59,HOURS 0-23,DAY 1-31,MONTH 0-11,
  39. *                YEAR-1900, WEEK SUN=0, DAYOFYEAR 0-365, NONZERO
  40. *                IF DAYLIGHT SAVINGS TIME)
  41.       WRITE(CHABUF,'(I2.2,A1,I2.2,A1,I2.2)')
  42.      $     TM(6),'/',TM(5)+1,'/',TM(4)
  43.       NDATE = CHABUF
  44.       RETURN
  45.       END
  46.  
  47.       CHARACTER*8 FUNCTION NCLOCK()
  48.  
  49. ******** RETURNS THE CURRENT TIME IN THE FORMAT 'HH.MM.SS'
  50.  
  51. *        AIX VERSION (MAY WORK WITH OTHER SYSTEM V OR BSD)
  52.       INTEGER SINCE_EPOCH,TM(9)
  53.       POINTER (TMADDR,TM)
  54.       CHARACTER*8 CHABUF
  55.       I1 = TIME(SINCE_EPOCH)
  56. *        TMADDR IS THE ADDRESS OF A 9-ELEMENTS INTEGER ARRAY
  57.       TMADDR = LOCALTIME(SINCE_EPOCH)
  58. *        NOW TM=(SECS 0-59,MIN 0-59,HOURS 0-23,DAY 1-31,MONTH 0-11,
  59. *                YEAR-1900, WEEK SUN=0, DAYOFYEAR 0-365, NONZERO
  60. *                IF DAYLIGHT SAVINGS TIME)
  61.       WRITE(CHABUF,'(I2.2,A1,I2.2,A1,I2.2)')
  62.      $     TM(3),'.',TM(2),'.',TM(1)
  63.       NCLOCK = CHABUF
  64.       RETURN
  65.       END
  66. --
  67. Furio Ercolessi
  68. Materials Research Laboratory           |   Intl School for Advanced Studies
  69. Univ. of Illinois at Urbana-Champaign   |   Trieste, Italy
  70. furio@uiuc.edu                          |   furio@sissa.it
  71.