real function cputim(idum)
      integer buf(4),i
      integer times
      external times
c**** usually in the c-library
      real incr
      incr=100.
c**** incr is the number of time intervals per second, system dependent
c      
      i=times(buf)
      cputim=buf(1)/incr
      return
      end