TESTING/LIN/dlarhs.f(3)

NAME
TESTING/LIN/dlarhs.f

SYNOPSIS

  Functions/Subroutines
subroutine dlarhs (path, xtype, uplo, trans, m, n, kl, ku, nrhs, a, lda, x, ldx, b, ldb, iseed, info)
DLARHS

Function/Subroutine Documentation

  subroutine dlarhs (character*3 path, character xtype, character uplo, character trans, integer m, integer n, integer kl, integer ku, integer nrhs, double precision, dimension( lda, * ) a, integer lda, double precision, dimension( ldx, * ) x, integer ldx, double precision, dimension( ldb, * ) b, integer ldb, integer, dimension( 4 ) iseed, integer info)

DLARHS

Purpose:

    !>
    !> DLARHS chooses a set of NRHS random solution vectors and sets
    !> up the right hand sides for the linear system
    !>    op(A) * X = B,
    !> where op(A) = A or A**T, depending on TRANS.
    !>

Parameters
    PATH

    !>          PATH is CHARACTER*3
    !>          The type of the real matrix A.  PATH may be given in any
    !>          combination of upper and lower case.  Valid types include
    !>             xGE:  General m x n matrix
    !>             xGB:  General banded matrix
    !>             xPO:  Symmetric positive definite, 2-D storage
    !>             xPP:  Symmetric positive definite packed
    !>             xPB:  Symmetric positive definite banded
    !>             xSY:  Symmetric indefinite, 2-D storage
    !>             xSP:  Symmetric indefinite packed
    !>             xSB:  Symmetric indefinite banded
    !>             xTR:  Triangular
    !>             xTP:  Triangular packed
    !>             xTB:  Triangular banded
    !>             xQR:  General m x n matrix
    !>             xLQ:  General m x n matrix
    !>             xQL:  General m x n matrix
    !>             xRQ:  General m x n matrix
    !>          where the leading character indicates the precision.
    !>

    XTYPE

    !>          XTYPE is CHARACTER*1
    !>          Specifies how the exact solution X will be determined:
    !>          = 'N':  New solution; generate a random X.
    !>          = 'C':  Computed; use value of X on entry.
    !>

    UPLO

    !>          UPLO is CHARACTER*1
    !>          Specifies whether the upper or lower triangular part of the
    !>          matrix A is stored, if A is symmetric.
    !>          = 'U':  Upper triangular
    !>          = 'L':  Lower triangular
    !>

    TRANS

    !>          TRANS is CHARACTER*1
    !>          Used only if A is nonsymmetric; specifies the operation
    !>          applied to the matrix A.
    !>          = 'N':  B := A    * X  (No transpose)
    !>          = 'T':  B := A**T * X  (Transpose)
    !>          = 'C':  B := A**H * X  (Conjugate transpose = Transpose)
    !>

    M

    !>          M is INTEGER
    !>          The number or rows of the matrix A.  M >= 0.
    !>

    N

    !>          N is INTEGER
    !>          The number of columns of the matrix A.  N >= 0.
    !>

    KL

    !>          KL is INTEGER
    !>          Used only if A is a band matrix; specifies the number of
    !>          subdiagonals of A if A is a general band matrix or if A is
    !>          symmetric or triangular and UPLO = 'L'; specifies the number
    !>          of superdiagonals of A if A is symmetric or triangular and
    !>          UPLO = 'U'.  0 <= KL <= M-1.
    !>

    KU

    !>          KU is INTEGER
    !>          Used only if A is a general band matrix or if A is
    !>          triangular.
    !>
    !>          If PATH = xGB, specifies the number of superdiagonals of A,
    !>          and 0 <= KU <= N-1.
    !>
    !>          If PATH = xTR, xTP, or xTB, specifies whether or not the
    !>          matrix has unit diagonal:
    !>          = 1:  matrix has non-unit diagonal (default)
    !>          = 2:  matrix has unit diagonal
    !>

    NRHS

    !>          NRHS is INTEGER
    !>          The number of right hand side vectors in the system A*X = B.
    !>

    A

    !>          A is DOUBLE PRECISION array, dimension (LDA,N)
    !>          The test matrix whose type is given by PATH.
    !>

    LDA

    !>          LDA is INTEGER
    !>          The leading dimension of the array A.
    !>          If PATH = xGB, LDA >= KL+KU+1.
    !>          If PATH = xPB, xSB, xHB, or xTB, LDA >= KL+1.
    !>          Otherwise, LDA >= max(1,M).
    !>

    X

    !>          X is or output) DOUBLE PRECISION array, dimension(LDX,NRHS)
    !>          On entry, if XTYPE = 'C' (for 'Computed'), then X contains
    !>          the exact solution to the system of linear equations.
    !>          On exit, if XTYPE = 'N' (for 'New'), then X is initialized
    !>          with random values.
    !>

    LDX

    !>          LDX is INTEGER
    !>          The leading dimension of the array X.  If TRANS = 'N',
    !>          LDX >= max(1,N); if TRANS = 'T', LDX >= max(1,M).
    !>

    B

    !>          B is DOUBLE PRECISION array, dimension (LDB,NRHS)
    !>          The right hand side vector(s) for the system of equations,
    !>          computed from B = op(A) * X, where op(A) is determined by
    !>          TRANS.
    !>

    LDB

    !>          LDB is INTEGER
    !>          The leading dimension of the array B.  If TRANS = 'N',
    !>          LDB >= max(1,M); if TRANS = 'T', LDB >= max(1,N).
    !>

    ISEED

    !>          ISEED is INTEGER array, dimension (4)
    !>          The seed vector for the random number generator (used in
    !>          DLATMS).  Modified on exit.
    !>

    INFO

    !>          INFO is INTEGER
    !>          = 0: successful exit
    !>          < 0: if INFO = -i, the i-th argument had an illegal value
    !>

Author
    Univ. of Tennessee

    Univ. of California Berkeley

    Univ. of Colorado Denver

    NAG Ltd.

Definition at line 203 of file dlarhs.f.

Author

Generated automatically by Doxygen for LAPACK from the source code.