function second ()
        double precision second
        real*4 t(2)
        second = @ETIME@(t)
        return
      end