diff options
| author | Julien Langou <julien.langou@ucdenver.edu> | 2016-12-04 11:32:35 +0100 |
|---|---|---|
| committer | Julien Langou <julien.langou@ucdenver.edu> | 2016-12-04 11:32:35 +0100 |
| commit | 5c749d8db87b7fb1ad669ee4c017a5b41d1d6edb (patch) | |
| tree | b3db2804f41307ed72e719fbb761a97277ad898c | |
| parent | a9fcb8e2b98ff5aedbf17aa7be51ad15c617b14e (diff) | |
correct WORKSPACE size for dgemqr
| -rw-r--r-- | SRC/dgetsls.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SRC/dgetsls.f b/SRC/dgetsls.f index bf3aa1bf..f2a7b3a7 100644 --- a/SRC/dgetsls.f +++ b/SRC/dgetsls.f @@ -227,7 +227,7 @@ $ INFO2) LW = INT(WORK(6)) CALL DGEMQR( 'L', TRANS, M, NRHS, N, A, LDA, WORK(1), - $ -1, B, LDB, WORK(6), -1 , INFO2 ) + $ INT(WORK(2)), B, LDB, WORK(6), -1 , INFO2 ) WSIZEO = INT(WORK(2))+MAX(LW,INT(WORK(6))) WSIZEM = INT(WORK(3))+MAX(LW,INT(WORK(6))) ELSE @@ -235,7 +235,7 @@ $ INFO2) LW = INT(WORK(6)) CALL DGEMLQ( 'L', TRANS, N, NRHS, M, A, LDA, WORK(1), - $ -1, B, LDB, WORK(6), -1 , INFO2 ) + $ INT(WORK(2)), B, LDB, WORK(6), -1 , INFO2 ) WSIZEO = INT(WORK(2))+MAX(LW,INT(WORK(6))) WSIZEM = INT(WORK(3))+MAX(LW,INT(WORK(6))) END IF |