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/dpftrs.f | |
parent | 86579dddaf0142000a291a7fdac0850278b56317 (diff) |
Formating code, use of * for comment, and follow other LAPACK style
Diffstat (limited to 'SRC/dpftrs.f')
-rw-r--r-- | SRC/dpftrs.f | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/SRC/dpftrs.f b/SRC/dpftrs.f index 25c89e0f..dd60d905 100644 --- a/SRC/dpftrs.f +++ b/SRC/dpftrs.f @@ -186,20 +186,20 @@ * Quick return if possible * IF( N.EQ.0 .OR. NRHS.EQ.0 ) - + RETURN + $ RETURN * * start execution: there are two triangular solves * IF( LOWER ) THEN CALL DTFSM( TRANSR, 'L', UPLO, 'N', 'N', N, NRHS, ONE, A, B, - + LDB ) + $ LDB ) CALL DTFSM( TRANSR, 'L', UPLO, 'T', 'N', N, NRHS, ONE, A, B, - + LDB ) + $ LDB ) ELSE CALL DTFSM( TRANSR, 'L', UPLO, 'T', 'N', N, NRHS, ONE, A, B, - + LDB ) + $ LDB ) CALL DTFSM( TRANSR, 'L', UPLO, 'N', 'N', N, NRHS, ONE, A, B, - + LDB ) + $ LDB ) END IF * RETURN |