diff options
author | julie <julielangou@users.noreply.github.com> | 2011-03-10 19:09:21 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2011-03-10 19:09:21 +0000 |
commit | 1923c69f7e9857d19b67f9e9befd1b1f37c644ef (patch) | |
tree | a0729e3779db5c74c0dcda417a0d6eff5c8b3f95 /SRC/strttf.f | |
parent | 86579dddaf0142000a291a7fdac0850278b56317 (diff) | |
download | lapack-1923c69f7e9857d19b67f9e9befd1b1f37c644ef.tar.gz lapack-1923c69f7e9857d19b67f9e9befd1b1f37c644ef.tar.bz2 lapack-1923c69f7e9857d19b67f9e9befd1b1f37c644ef.zip |
Formating code, use of * for comment, and follow other LAPACK style
Diffstat (limited to 'SRC/strttf.f')
-rw-r--r-- | SRC/strttf.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/strttf.f b/SRC/strttf.f index 2e1aab77..6c405f56 100644 --- a/SRC/strttf.f +++ b/SRC/strttf.f @@ -211,11 +211,11 @@ K = N / 2 NISODD = .FALSE. IF( .NOT.LOWER ) - + NP1X2 = N + N + 2 + $ NP1X2 = N + N + 2 ELSE NISODD = .TRUE. IF( .NOT.LOWER ) - + NX2 = N + N + $ NX2 = N + N END IF * IF( NISODD ) THEN |