Mercurial > hg > octave-nkf

annotate libcruft/lapack-xtra/xdlange.f @ 14373:d00900b3dc4b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
doc: Use two spaces at start of sentence. * ndgrid.m, uiwait.m, sprandn.m, sprandsym.m, quantile.m: Use two spaces at start of sentence.
author Rik <octave@nomad.inbox5.com>
date Thu, 16 Feb 2012 15:44:42 -0800
parents 55e59236c5e5
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
3690
55e59236c5e5 [project @ 2000-06-30 20:55:36 by jwe]
jwe
parents:
diff changeset
1 subroutine xdlange (norm, m, n, a, lda, work, retval)
55e59236c5e5 [project @ 2000-06-30 20:55:36 by jwe]
jwe
parents:
diff changeset
2 character norm
55e59236c5e5 [project @ 2000-06-30 20:55:36 by jwe]
jwe
parents:
diff changeset
3 integer lda, m, n
55e59236c5e5 [project @ 2000-06-30 20:55:36 by jwe]
jwe
parents:
diff changeset
4 double precision a (lda, *), work (*), dlange, retval
55e59236c5e5 [project @ 2000-06-30 20:55:36 by jwe]
jwe
parents:
diff changeset
5 retval = dlange (norm, m, n, a, lda, work)
55e59236c5e5 [project @ 2000-06-30 20:55:36 by jwe]
jwe
parents:
diff changeset
6 return
55e59236c5e5 [project @ 2000-06-30 20:55:36 by jwe]
jwe
parents:
diff changeset
7 end