Mercurial > octave-nkf

view libcruft/blas-xtra/xdnrm2.f @ 12121:87237a866c71 release-3-2-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
this branch is no longer maintained and is closed for further development
author John W. Eaton <jwe@octave.org>
date Sat, 22 Jan 2011 01:00:54 -0500
parents 3c89a3f9d23e
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