home *** CD-ROM | disk | FTP | other *** search
- Newsgroups: comp.unix.aix
- Path: sparky!uunet!usc!sdd.hp.com!ux1.cso.uiuc.edu!news.cso.uiuc.edu!uimrl7.mrl.uiuc.edu!ercolessi
- From: ercolessi@uimrl7.mrl.uiuc.edu (furio ercolessi)
- Subject: Re: FOrtran utilities
- References: <1992Jul29.192101.27729@ucunix.san.uc.edu>
- Message-ID: <Bs67Ev.Cp4@news.cso.uiuc.edu>
- Sender: usenet@news.cso.uiuc.edu (Net Noise owner)
- Reply-To: ercolessi@uimrl7.mrl.uiuc.edu (furio ercolessi)
- Organization: MRL - UIUC
- Date: Wed, 29 Jul 1992 21:52:05 GMT
- Lines: 58
-
- In article <1992Jul29.192101.27729@ucunix.san.uc.edu>, pollack@ucunix.san.uc.edu (Steven Pollack)
- writes:
- |>I am looking for two simple fortran or fortran/c subroutines which will
- |>
- |>1) return the cpu time used by a process in seconds.
- |>
- |>2) return the ascii date as a character variable.
- |>
- |>Someone has just got!!!! to have these laying around. Please?
-
- For 1), use MCLOCK. For 2), here we go (if you don't like the
- format it's easy to change; there is also a way to get a
- string similar to 'date' output).
-
- CHARACTER*8 FUNCTION NDATE()
-
- ******** RETURNS THE CURRENT DATE IN THE FORMAT YY/MM/DD
-
- * AIX VERSION (MAY WORK WITH OTHER SYSTEM V OR BSD)
- INTEGER SINCE_EPOCH,TM(9)
- POINTER (TMADDR,TM)
- CHARACTER*8 CHABUF
- I1 = TIME(SINCE_EPOCH)
- * TMADDR IS THE ADDRESS OF A 9-ELEMENTS INTEGER ARRAY
- TMADDR = LOCALTIME(SINCE_EPOCH)
- * NOW TM=(SECS 0-59,MIN 0-59,HOURS 0-23,DAY 1-31,MONTH 0-11,
- * YEAR-1900, WEEK SUN=0, DAYOFYEAR 0-365, NONZERO
- * IF DAYLIGHT SAVINGS TIME)
- WRITE(CHABUF,'(I2.2,A1,I2.2,A1,I2.2)')
- $ TM(6),'/',TM(5)+1,'/',TM(4)
- NDATE = CHABUF
- RETURN
- END
-
- CHARACTER*8 FUNCTION NCLOCK()
-
- ******** RETURNS THE CURRENT TIME IN THE FORMAT 'HH.MM.SS'
-
- * AIX VERSION (MAY WORK WITH OTHER SYSTEM V OR BSD)
- INTEGER SINCE_EPOCH,TM(9)
- POINTER (TMADDR,TM)
- CHARACTER*8 CHABUF
- I1 = TIME(SINCE_EPOCH)
- * TMADDR IS THE ADDRESS OF A 9-ELEMENTS INTEGER ARRAY
- TMADDR = LOCALTIME(SINCE_EPOCH)
- * NOW TM=(SECS 0-59,MIN 0-59,HOURS 0-23,DAY 1-31,MONTH 0-11,
- * YEAR-1900, WEEK SUN=0, DAYOFYEAR 0-365, NONZERO
- * IF DAYLIGHT SAVINGS TIME)
- WRITE(CHABUF,'(I2.2,A1,I2.2,A1,I2.2)')
- $ TM(3),'.',TM(2),'.',TM(1)
- NCLOCK = CHABUF
- RETURN
- END
- --
- Furio Ercolessi
- Materials Research Laboratory | Intl School for Advanced Studies
- Univ. of Illinois at Urbana-Champaign | Trieste, Italy
- furio@uiuc.edu | furio@sissa.it
-