Mercurial > octave-nkf

view liboctave/cruft/blas-xtra/xdnrm2.f @ 20631:69270256b879

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Qt Figure: allow displaying coordinates when hovered axes parent is a uipanel. * Canvas/cc (Canvas::canvasMouseMoveEvent): call "select_object" with the actual Canvas object which may also be a uipanel.
author Pantxo Diribarne <pantxo.diribarne@gmail.com>
date Sat, 10 Oct 2015 13:07:51 +0200
parents 648dabbb4c6b
children
line wrap: on
line source

      subroutine xdnrm2 (n, x, incx, retval)
      double precision dnrm2, x(*), retval
      integer n, incx
      retval = dnrm2 (n, x, incx)
      return
      end