REAL FUNCTION ETIME(CPSEC)
      DIMENSION CPSEC(2)

C     dummy routine, to be replaced with
C     local availability.
C     etime is elapsed time in milliseconds

      ETIME= 0.0

      RETURN
      END