Mercurial > octave-nkf
view libcruft/blas-xtra/xdznrm2.f @ 6536:3c89a3f9d23e
[project @ 2007-04-18 16:26:49 by jwe]
author | jwe |
---|---|
date | Wed, 18 Apr 2007 16:26:49 +0000 |
parents | 184ab67c3bc1 |
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