Mercurial > octave-nkf

comparison libcruft/lapack/zlatbs.f @ 7034:68db500cb558

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-10-16 18:54:19 by jwe]
author jwe
date Tue, 16 Oct 2007 18:54:23 +0000
parents 57077d0ddc8e
children
comparison
equal deleted inserted replaced
7033:f0142f2afdc6 7034:68db500cb558
1 SUBROUTINE ZLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X, 1 SUBROUTINE ZLATBS( UPLO, TRANS, DIAG, NORMIN, N, KD, AB, LDAB, X,
2 $ SCALE, CNORM, INFO ) 2 $ SCALE, CNORM, INFO )
3 * 3 *
4 * -- LAPACK auxiliary routine (version 3.0) -- 4 * -- LAPACK auxiliary routine (version 3.1) --
5 * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., 5 * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
6 * Courant Institute, Argonne National Lab, and Rice University 6 * November 2006
7 * June 30, 1992
8 * 7 *
9 * .. Scalar Arguments .. 8 * .. Scalar Arguments ..
10 CHARACTER DIAG, NORMIN, TRANS, UPLO 9 CHARACTER DIAG, NORMIN, TRANS, UPLO
11 INTEGER INFO, KD, LDAB, N 10 INTEGER INFO, KD, LDAB, N
12 DOUBLE PRECISION SCALE 11 DOUBLE PRECISION SCALE