      REAL FUNCTION cputime()
      REAL tarray(2)
c
c Cray
c      cputime=second()
c Unix 
      cputime=etime(tarray)
c IBM R6000
c      cputime=0.01*mclock()
c
      RETURN 
      END
