diff options
author | julie <julielangou@users.noreply.github.com> | 2010-04-13 19:09:55 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2010-04-13 19:09:55 +0000 |
commit | 594291cfc064379adfa2861a32af8c1b836c08a7 (patch) | |
tree | 7969dd6b3c3e2b3fad11be1d1b451fe75d3b703c /TESTING/MATGEN/clatmr.f | |
parent | 07c14f97cc8d95688117d7f561edd3a214e56df6 (diff) | |
download | lapack-594291cfc064379adfa2861a32af8c1b836c08a7.tar.gz lapack-594291cfc064379adfa2861a32af8c1b836c08a7.tar.bz2 lapack-594291cfc064379adfa2861a32af8c1b836c08a7.zip |
Many comment fix for allowing C Wrapper to work on MATGEN
Diffstat (limited to 'TESTING/MATGEN/clatmr.f')
-rw-r--r-- | TESTING/MATGEN/clatmr.f | 56 |
1 files changed, 28 insertions, 28 deletions
diff --git a/TESTING/MATGEN/clatmr.f b/TESTING/MATGEN/clatmr.f index cb8d3caa..65581413 100644 --- a/TESTING/MATGEN/clatmr.f +++ b/TESTING/MATGEN/clatmr.f @@ -80,13 +80,13 @@ * Arguments * ========= * -* M - INTEGER +* M (input) INTEGER * Number of rows of A. Not modified. * -* N - INTEGER +* N (input) INTEGER * Number of columns of A. Not modified. * -* DIST - CHARACTER*1 +* DIST (input) CHARACTER*1 * On entry, DIST specifies the type of distribution to be used * to generate a random matrix . * 'U' => real and imaginary parts are independent @@ -98,7 +98,7 @@ * 'D' => uniform on interior of unit disk ( 'D' for disk ) * Not modified. * -* ISEED - INTEGER array, dimension (4) +* ISEED (input/output) INTEGER array, dimension (4) * On entry ISEED specifies the seed of the random number * generator. They should lie between 0 and 4095 inclusive, * and ISEED(4) should be odd. The random number generator @@ -109,20 +109,20 @@ * to continue the same random number sequence. * Changed on exit. * -* SYM - CHARACTER*1 +* SYM (input) CHARACTER*1 * If SYM='S', generated matrix is symmetric. * If SYM='H', generated matrix is Hermitian. * If SYM='N', generated matrix is nonsymmetric. * Not modified. * -* D - COMPLEX array, dimension (min(M,N)) +* D (input/output) COMPLEX array, dimension (min(M,N)) * On entry this array specifies the diagonal entries * of the diagonal of A. D may either be specified * on entry, or set according to MODE and COND as described * below. If the matrix is Hermitian, the real part of D * will be taken. May be changed on exit if MODE is nonzero. * -* MODE - INTEGER +* MODE (input) INTEGER * On entry describes how D is to be used: * MODE = 0 means use D as input * MODE = 1 sets D(1)=1 and D(2:N)=1.0/COND @@ -140,17 +140,17 @@ * 1 to 1/COND, if negative, from 1/COND to 1, * Not modified. * -* COND - REAL +* COND (input) REAL * On entry, used as described under MODE above. * If used, it must be >= 1. Not modified. * -* DMAX - COMPLEX +* DMAX (input) COMPLEX * If MODE neither -6, 0 nor 6, the diagonal is scaled by * DMAX / max(abs(D(i))), so that maximum absolute entry * of diagonal is abs(DMAX). If DMAX is complex (or zero), * diagonal will be scaled by a complex number (or zero). * -* RSIGN - CHARACTER*1 +* RSIGN (input) CHARACTER*1 * If MODE neither -6, 0 nor 6, specifies sign of diagonal * as follows: * 'T' => diagonal entries are multiplied by a random complex @@ -158,7 +158,7 @@ * 'F' => diagonal unchanged * Not modified. * -* GRADE - CHARACTER*1 +* GRADE (input) CHARACTER*1 * Specifies grading of matrix as follows: * 'N' => no grading * 'L' => matrix premultiplied by diag( DL ) @@ -181,7 +181,7 @@ * Note: if GRADE='S', then M must equal N. * Not modified. * -* DL - COMPLEX array, dimension (M) +* DL (input/output) COMPLEX array, dimension (M) * If MODEL=0, then on entry this array specifies the diagonal * entries of a diagonal matrix used as described under GRADE * above. If MODEL is not zero, then DL will be set according @@ -190,16 +190,16 @@ * If GRADE='E', then DL cannot have zero entries. * Not referenced if GRADE = 'N' or 'R'. Changed on exit. * -* MODEL - INTEGER +* MODEL (input) INTEGER * This specifies how the diagonal array DL is to be computed, * just as MODE specifies how D is to be computed. * Not modified. * -* CONDL - REAL +* CONDL (input) REAL * When MODEL is not zero, this specifies the condition number * of the computed DL. Not modified. * -* DR - COMPLEX array, dimension (N) +* DR (input/output) COMPLEX array, dimension (N) * If MODER=0, then on entry this array specifies the diagonal * entries of a diagonal matrix used as described under GRADE * above. If MODER is not zero, then DR will be set according @@ -208,16 +208,16 @@ * Not referenced if GRADE = 'N', 'L', 'H' or 'S'. * Changed on exit. * -* MODER - INTEGER +* MODER (input) INTEGER * This specifies how the diagonal array DR is to be computed, * just as MODE specifies how D is to be computed. * Not modified. * -* CONDR - REAL +* CONDR (input) REAL * When MODER is not zero, this specifies the condition number * of the computed DR. Not modified. * -* PIVTNG - CHARACTER*1 +* PIVTNG (input) CHARACTER*1 * On entry specifies pivoting permutations as follows: * 'N' or ' ' => none. * 'L' => left or row pivoting (matrix must be nonsymmetric). @@ -233,7 +233,7 @@ * contain the same data. This consistency cannot be * maintained with less than full bandwidth. * -* IPIVOT - INTEGER array, dimension (N or M) +* IPIVOT (input) INTEGER array, dimension (N or M) * This array specifies the permutation used. After the * basic matrix is generated, the rows, columns, or both * are permuted. If, say, row pivoting is selected, CLATMR @@ -249,7 +249,7 @@ * result in a pivot vector identical to IPIVOT. * Not referenced if PIVTNG = 'N'. Not modified. * -* SPARSE - REAL +* SPARSE (input) REAL * On entry specifies the sparsity of the matrix if a sparse * matrix is to be generated. SPARSE should lie between * 0 and 1. To generate a sparse matrix, for each matrix entry @@ -260,28 +260,28 @@ * entries will be set to zero. * Not modified. * -* KL - INTEGER +* KL (input) INTEGER * On entry specifies the lower bandwidth of the matrix. For * example, KL=0 implies upper triangular, KL=1 implies upper * Hessenberg, and KL at least M-1 implies the matrix is not * banded. Must equal KU if matrix is symmetric or Hermitian. * Not modified. * -* KU - INTEGER +* KU (input) INTEGER * On entry specifies the upper bandwidth of the matrix. For * example, KU=0 implies lower triangular, KU=1 implies lower * Hessenberg, and KU at least N-1 implies the matrix is not * banded. Must equal KL if matrix is symmetric or Hermitian. * Not modified. * -* ANORM - REAL +* ANORM (input) REAL * On entry specifies maximum entry of output matrix * (output matrix will by multiplied by a constant so that * its largest absolute entry equal ANORM) * if ANORM is nonnegative. If ANORM is negative no scaling * is done. Not modified. * -* PACK - CHARACTER*1 +* PACK (input) CHARACTER*1 * On entry specifies packing of matrix as follows: * 'N' => no packing * 'U' => zero out all subdiagonal entries @@ -315,14 +315,14 @@ * they will generate mathematically equivalent matrices. * Not modified. * -* A - COMPLEX array, dimension (LDA,N) +* A (input/output) COMPLEX array, dimension (LDA,N) * On exit A is the desired test matrix. Only those * entries of A which are significant on output * will be referenced (even if A is in packed or band * storage format). The 'unoccupied corners' of A in * band format will be zeroed out. * -* LDA - INTEGER +* LDA (input) INTEGER * on entry LDA specifies the first dimension of A as * declared in the calling program. * If PACK='N', 'U' or 'L', LDA must be at least max ( 1, M ). @@ -332,10 +332,10 @@ * KUU = MIN ( KU, N-1 ) and KLL = MIN ( KL, N-1 ) * Not modified. * -* IWORK - INTEGER array, dimension (N or M) +* IWORK (workspace) INTEGER array, dimension (N or M) * Workspace. Not referenced if PIVTNG = 'N'. Changed on exit. * -* INFO - INTEGER +* INFO (output) INTEGER * Error parameter on exit: * 0 => normal return * -1 => M negative or unequal to N and SYM='S' or 'H' |