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

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 xdznrm2 (n, x, incx, retval)
      double precision dznrm2, retval
      double complex x(*)
      integer n, incx
      retval = dznrm2 (n, x, incx)
      return
      end