REAL FUNCTION ETIME(TARRAY)
       REAL TARRAY(2)
       DOUBLE PRECISION DCLOCK
       EXTERNAL DCLOCK
       ETIME = DCLOCK(TARRAY)
       RETURN
       END