Many comment fix for allowing C Wrapper to work on MATGEN

1 files changed, 17 insertions, 17 deletions

diff --git a/TESTING/MATGEN/dlatm3.f b/TESTING/MATGEN/dlatm3.f
index 159c044d..ac3b5e89 100644
--- a/TESTING/MATGEN/dlatm3.f
+++ b/TESTING/MATGEN/dlatm3.f
@@ -65,31 +65,31 @@
 *  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 unpivoted entry to be returned. Not modified.
 *
-*  J      - INTEGER
+*  J        (input) INTEGER
 *           Column of unpivoted entry to be returned. Not modified.
 *
-*  ISUB   - INTEGER
+*  ISUB    (input/output) INTEGER
 *           Row of pivoted entry to be returned. Changed on exit.
 *
-*  JSUB   - INTEGER
+*  JSUB     (input/output) INTEGER
 *           Column of pivoted entry to be returned. Changed on exit.
 *
-*  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 => UNIFORM( 0, 1 )
@@ -97,14 +97,14 @@
 *           3 => NORMAL( 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      - DOUBLE PRECISION array of dimension ( MIN( I , J ) )
+*  D        (input) DOUBLE PRECISION 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 )
@@ -117,13 +117,13 @@
 *                         postmultiplied by diag( DL )
 *           Not modified.
 *
-*  DL     - DOUBLE PRECISION array ( I or J, as appropriate )
+*  DL       (input) DOUBLE PRECISION array ( I or J, as appropriate )
 *           Left scale factors for grading matrix.  Not modified.
 *
-*  DR     - DOUBLE PRECISION array ( I or J, as appropriate )
+*  DR       (input) DOUBLE PRECISION 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.
@@ -131,13 +131,13 @@
 *           3 => full pivoting, i.e., on both sides.
 *           Not modified.
 *
-*  IWORK  - INTEGER array ( I or J, as appropriate )
+*  IWORK    (input) INTEGER array ( I or J, as appropriate )
 *           This array specifies the permutation used. The
 *           row (or column) originally in position K is in
 *           position IWORK( K ) after pivoting.
 *           This differs from IWORK for DLATM2. 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.