code snippet....
 
       real*4 etime,tarr(2)

        second1 = etime(tarr)
     big_do_loop: do i=1,1000000
          |
          |
     end big_do_loop
     second2 = etime(tarr)
    
     print *,"time was: ",second2-second1

/*
  From David Klein (klein@sunrise.huji.ac.za)
*/

#include <sys/times.h>
#include <unistd.h>
#include <signal.h>

void nofpe_()
{
   int mask;

   mask = siggetmask();
/*   printf("old mask: %x\n",(long) mask); */
   mask = mask | (1 << (SIGFPE-1));
   sigsetmask(mask);
/*   printf("new mask: %x\n",(long) mask); */
}

double etime_(tarray)
float *tarray;
{
  struct tms buf;
  clock_t ticks;

    /* System generated locals */
    float ret_val;

    /* Parameter adjustments */
    --tarray;

    /* Function Body */
  ticks=times(&buf);
  tarray[1]=buf.tms_utime/100.0;
  ret_val=tarray[1];
  return ret_val;
}