diff options
| author | Julien Langou <julien.langou@ucdenver.edu> | 2016-12-04 11:07:22 +0100 |
|---|---|---|
| committer | Julien Langou <julien.langou@ucdenver.edu> | 2016-12-04 11:07:22 +0100 |
| commit | 6ead7cb32fd6edb658bc5d1460d60671fa993a47 (patch) | |
| tree | 08c7d7326f06e64e7417ecd3d7cb81762a7993bf | |
| parent | 8fef1bbf7e47ec5798ededa100a71e20afb6f63a (diff) | |
minor
| -rw-r--r-- | SRC/dgetsls.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/dgetsls.f b/SRC/dgetsls.f index 39825958..eb7bc33e 100644 --- a/SRC/dgetsls.f +++ b/SRC/dgetsls.f @@ -331,8 +331,8 @@ * * compute QR factorization of A * - CALL DGEQR( M, N, A, LDA, WORK(LW2+1), LW1 - $ , WORK(1), LW2, INFO ) + CALL DGEQR( M, N, A, LDA, WORK(LW2+1), LW1, + $ WORK(1), LW2, INFO ) IF (.NOT.TRAN) THEN * * Least-Squares Problem min || A * X - B || @@ -385,8 +385,8 @@ * * Compute LQ factorization of A * - CALL DGELQ( M, N, A, LDA, WORK(LW2+1), LW1 - $ , WORK(1), LW2, INFO ) + CALL DGELQ( M, N, A, LDA, WORK(LW2+1), LW1, + $ WORK(1), LW2, INFO ) * * workspace at least M, optimally M*NB. * |