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/zlatm2.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/zlatm2.f')
| -rw-r--r-- | TESTING/MATGEN/zlatm2.f | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/TESTING/MATGEN/zlatm2.f b/TESTING/MATGEN/zlatm2.f index da10ed90..a1db3444 100644 --- a/TESTING/MATGEN/zlatm2.f +++ b/TESTING/MATGEN/zlatm2.f @@ -60,25 +60,25 @@ * Arguments * ========= * -* M - INTEGER +* M (input) INTEGER * Number of rows of matrix. Not modified. * -* N - INTEGER +* N (input) INTEGER * Number of columns of matrix. Not modified. * -* I - INTEGER +* I (input) INTEGER * Row of entry to be returned. Not modified. * -* J - INTEGER +* J (input) INTEGER * Column of entry to be returned. Not modified. * -* KL - INTEGER +* KL (input) INTEGER * Lower bandwidth. Not modified. * -* KU - INTEGER +* KU (input) INTEGER * Upper bandwidth. Not modified. * -* IDIST - INTEGER +* IDIST (input) INTEGER * On entry, IDIST specifies the type of distribution to be * used to generate a random matrix . * 1 => real and imaginary parts each UNIFORM( 0, 1 ) @@ -87,14 +87,14 @@ * 4 => complex number uniform in DISK( 0 , 1 ) * Not modified. * -* ISEED - INTEGER array of dimension ( 4 ) +* ISEED (input/output) INTEGER array of dimension ( 4 ) * Seed for random number generator. * Changed on exit. * -* D - COMPLEX*16 array of dimension ( MIN( I , J ) ) +* D (input) COMPLEX*16 array of dimension ( MIN( I , J ) ) * Diagonal entries of matrix. Not modified. * -* IGRADE - INTEGER +* IGRADE (input) INTEGER * Specifies grading of matrix as follows: * 0 => no grading * 1 => matrix premultiplied by diag( DL ) @@ -109,13 +109,13 @@ * postmultiplied by diag( DL ) * Not modified. * -* DL - COMPLEX*16 array ( I or J, as appropriate ) +* DL (input) COMPLEX*16 array ( I or J, as appropriate ) * Left scale factors for grading matrix. Not modified. * -* DR - COMPLEX*16 array ( I or J, as appropriate ) +* DR (input) COMPLEX*16 array ( I or J, as appropriate ) * Right scale factors for grading matrix. Not modified. * -* IPVTNG - INTEGER +* IPVTNG (input) INTEGER * On entry specifies pivoting permutations as follows: * 0 => none. * 1 => row pivoting. @@ -123,13 +123,13 @@ * 3 => full pivoting, i.e., on both sides. * Not modified. * -* IWORK - INTEGER array ( I or J, as appropriate ) +* IWORK (workspace) INTEGER array ( I or J, as appropriate ) * This array specifies the permutation used. The * row (or column) in position K was originally in * position IWORK( K ). * This differs from IWORK for ZLATM3. Not modified. * -* SPARSE - DOUBLE PRECISION between 0. and 1. +* SPARSE (input) DOUBLE PRECISION between 0. and 1. * On entry specifies the sparsity of the matrix * if sparse matix is to be generated. * SPARSE should lie between 0 and 1. |