Martin Kroeker
GitHub
3 years ago
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions
Unified View
Diff Options
+ 3
- 3
lapack-netlib/SRC/dorcsd2by1.f
View File
| @@ -580,7 +580,7 @@ | |||||
| * Simultaneously diagonalize X11 and X21. | * Simultaneously diagonalize X11 and X21. | ||||
| * | * | ||||
| CALL DBBCSD( JOBV1T, 'N', JOBU1, JOBU2, 'T', M, Q, P, THETA, | CALL DBBCSD( JOBV1T, 'N', JOBU1, JOBU2, 'T', M, Q, P, THETA, | ||||
| $ WORK(IPHI), V1T, LDV1T, DUM2, 1, U1, LDU1, U2, | |||||
| $ WORK(IPHI), V1T, LDV1T, DUM1, 1, U1, LDU1, U2, | |||||
| $ LDU2, WORK(IB11D), WORK(IB11E), WORK(IB12D), | $ LDU2, WORK(IB11D), WORK(IB11E), WORK(IB12D), | ||||
| $ WORK(IB12E), WORK(IB21D), WORK(IB21E), | $ WORK(IB12E), WORK(IB21D), WORK(IB21E), | ||||
| $ WORK(IB22D), WORK(IB22E), WORK(IBBCSD), LBBCSD, | $ WORK(IB22D), WORK(IB22E), WORK(IBBCSD), LBBCSD, | ||||
| @@ -635,7 +635,7 @@ | |||||
| * Simultaneously diagonalize X11 and X21. | * Simultaneously diagonalize X11 and X21. | ||||
| * | * | ||||
| CALL DBBCSD( 'N', JOBV1T, JOBU2, JOBU1, 'T', M, M-Q, M-P, | CALL DBBCSD( 'N', JOBV1T, JOBU2, JOBU1, 'T', M, M-Q, M-P, | ||||
| $ THETA, WORK(IPHI), DUM2, 1, V1T, LDV1T, U2, | |||||
| $ THETA, WORK(IPHI), DUM1, 1, V1T, LDV1T, U2, | |||||
| $ LDU2, U1, LDU1, WORK(IB11D), WORK(IB11E), | $ LDU2, U1, LDU1, WORK(IB11D), WORK(IB11E), | ||||
| $ WORK(IB12D), WORK(IB12E), WORK(IB21D), | $ WORK(IB12D), WORK(IB12E), WORK(IB21D), | ||||
| $ WORK(IB21E), WORK(IB22D), WORK(IB22E), | $ WORK(IB21E), WORK(IB22D), WORK(IB22E), | ||||
| @@ -706,7 +706,7 @@ | |||||
| * Simultaneously diagonalize X11 and X21. | * Simultaneously diagonalize X11 and X21. | ||||
| * | * | ||||
| CALL DBBCSD( JOBU2, JOBU1, 'N', JOBV1T, 'N', M, M-P, M-Q, | CALL DBBCSD( JOBU2, JOBU1, 'N', JOBV1T, 'N', M, M-P, M-Q, | ||||
| $ THETA, WORK(IPHI), U2, LDU2, U1, LDU1, DUM2, | |||||
| $ THETA, WORK(IPHI), U2, LDU2, U1, LDU1, DUM1, | |||||
| $ 1, V1T, LDV1T, WORK(IB11D), WORK(IB11E), | $ 1, V1T, LDV1T, WORK(IB11D), WORK(IB11E), | ||||
| $ WORK(IB12D), WORK(IB12E), WORK(IB21D), | $ WORK(IB12D), WORK(IB12E), WORK(IB21D), | ||||
| $ WORK(IB21E), WORK(IB22D), WORK(IB22E), | $ WORK(IB21E), WORK(IB22D), WORK(IB22E), | ||||