diff options
| author | julie <julielangou@users.noreply.github.com> | 2010-08-10 16:22:10 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2010-08-10 16:22:10 +0000 |
| commit | 067bfbf1595b1f3e10ae84045791bd58ac1061ec (patch) | |
| tree | aac9de4e5a41b79dcb5d952be579b930017f78ec /SRC/stfsm.f | |
| parent | db2a14bcf99ab733813e24f0583f6fa486a7365b (diff) | |
| download | lapack-067bfbf1595b1f3e10ae84045791bd58ac1061ec.tar.gz lapack-067bfbf1595b1f3e10ae84045791bd58ac1061ec.tar.bz2 lapack-067bfbf1595b1f3e10ae84045791bd58ac1061ec.zip | |
Various comment fixes
Diffstat (limited to 'SRC/stfsm.f')
| -rw-r--r-- | SRC/stfsm.f | 10 |
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: * |