xref: /csrg-svn/usr.bin/f77/libF77/CCI/mclock_.c (revision 29957)
1*29957Smckusick /*
2*29957Smckusick  *	@(#)mclock_.c	5.1 (Berkeley) 11/03/86
3*29957Smckusick  */
4*29957Smckusick 
5*29957Smckusick long int  mclock_()
6*29957Smckusick   {
7*29957Smckusick   int  buf[6];
8*29957Smckusick   times(buf);
9*29957Smckusick   return(buf[0]+buf[2]+buf[3]);
10*29957Smckusick   }
11