summaryrefslogtreecommitdiff
path: root/SRC/stfsm.f
diff options
context:
space:
mode:
authorjulie <julielangou@users.noreply.github.com>2010-08-10 16:22:10 +0000
committerjulie <julielangou@users.noreply.github.com>2010-08-10 16:22:10 +0000
commit067bfbf1595b1f3e10ae84045791bd58ac1061ec (patch)
treeaac9de4e5a41b79dcb5d952be579b930017f78ec /SRC/stfsm.f
parentdb2a14bcf99ab733813e24f0583f6fa486a7365b (diff)
downloadlapack-067bfbf1595b1f3e10ae84045791bd58ac1061ec.tar.gz
lapack-067bfbf1595b1f3e10ae84045791bd58ac1061ec.tar.bz2
lapack-067bfbf1595b1f3e10ae84045791bd58ac1061ec.zip
Various comment fixes
Diffstat (limited to 'SRC/stfsm.f')
-rw-r--r--SRC/stfsm.f10
1 files changed, 5 insertions, 5 deletions
diff --git a/SRC/stfsm.f b/SRC/stfsm.f
index d79d549c..09f7e436 100644
--- a/SRC/stfsm.f
+++ b/SRC/stfsm.f
@@ -40,11 +40,11 @@
* Arguments
* ==========
*
-* TRANSR (input) CHARACTER
+* TRANSR (input) CHARACTER*1
* = 'N': The Normal Form of RFP A is stored;
* = 'T': The Transpose Form of RFP A is stored.
*
-* SIDE (input) CHARACTER
+* SIDE (input) CHARACTER*1
* On entry, SIDE specifies whether op( A ) appears on the left
* or right of X as follows:
*
@@ -54,7 +54,7 @@
*
* Unchanged on exit.
*
-* UPLO (input) CHARACTER
+* UPLO (input) CHARACTER*1
* On entry, UPLO specifies whether the RFP matrix A came from
* an upper or lower triangular matrix as follows:
* UPLO = 'U' or 'u' RFP A came from an upper triangular matrix
@@ -62,7 +62,7 @@
*
* Unchanged on exit.
*
-* TRANS (input) CHARACTER
+* TRANS (input) CHARACTER*1
* On entry, TRANS specifies the form of op( A ) to be used
* in the matrix multiplication as follows:
*
@@ -72,7 +72,7 @@
*
* Unchanged on exit.
*
-* DIAG (input) CHARACTER
+* DIAG (input) CHARACTER*1
* On entry, DIAG specifies whether or not RFP A is unit
* triangular as follows:
*