lib/linalg/dgesvd.f

250       EXTERNAL           DBDSQR, DGEBRD, DGELQF, DGEMM, DGEQRF, DLACPY,
324             CALL DGEBRD( N, N, A, LDA, S, DUM(1), DUM(1),
448                CALL DGEBRD( M, N, A, LDA, S, DUM(1), DUM(1),
485             CALL DGEBRD( M, M, A, LDA, S, DUM(1), DUM(1),
608                CALL DGEBRD( M, N, A, LDA, S, DUM(1), DUM(1),
707                CALL DGEBRD( N, N, A, LDA, S, WORK( IE ), WORK( ITAUQ ),
792                   CALL DGEBRD( N, N, WORK( IR ), LDWRKR, S, WORK( IE ),
838                   CALL DGEBRD( M, N, A, LDA, S, WORK( IE ),
917                   CALL DGEBRD( N, N, VT, LDVT, S, WORK( IE ),
992                   CALL DGEBRD( N, N, VT, LDVT, S, WORK( IE ),
1073                      CALL DGEBRD( N, N, WORK( IR ), LDWRKR, S,
1135                      CALL DGEBRD( N, N, A, LDA, S, WORK( IE ),
1221                      CALL DGEBRD( N, N, WORK( IU ), LDWRKU, S,
1300                      CALL DGEBRD( N, N, A, LDA, S, WORK( IE ),
1381                      CALL DGEBRD( N, N, WORK( IU ), LDWRKU, S,
1453                      CALL DGEBRD( N, N, VT, LDVT, S, WORK( IE ),
1539                      CALL DGEBRD( N, N, WORK( IR ), LDWRKR, S,
1605                      CALL DGEBRD( N, N, A, LDA, S, WORK( IE ),
1693                      CALL DGEBRD( N, N, WORK( IU ), LDWRKU, S,
1775                      CALL DGEBRD( N, N, A, LDA, S, WORK( IE ),
1858                      CALL DGEBRD( N, N, WORK( IU ), LDWRKU, S,
1934                      CALL DGEBRD( N, N, VT, LDVT, S, WORK( IE ),
1983             CALL DGEBRD( M, N, A, LDA, S, WORK( IE ), WORK( ITAUQ ),
2101                CALL DGEBRD( M, M, A, LDA, S, WORK( IE ), WORK( ITAUQ ),
2190                   CALL DGEBRD( M, M, WORK( IR ), LDWRKR, S, WORK( IE ),
2236                   CALL DGEBRD( M, N, A, LDA, S, WORK( IE ),
2317                   CALL DGEBRD( M, M, U, LDU, S, WORK( IE ),
2391                   CALL DGEBRD( M, M, U, LDU, S, WORK( IE ),
2472                      CALL DGEBRD( M, M, WORK( IR ), LDWRKR, S,
2536                      CALL DGEBRD( M, M, A, LDA, S, WORK( IE ),
2622                      CALL DGEBRD( M, M, WORK( IU ), LDWRKU, S,
2699                      CALL DGEBRD( M, M, A, LDA, S, WORK( IE ),
2780                      CALL DGEBRD( M, M, WORK( IU ), LDWRKU, S,
2851                      CALL DGEBRD( M, M, U, LDU, S, WORK( IE ),
2937                      CALL DGEBRD( M, M, WORK( IR ), LDWRKR, S,
3002                      CALL DGEBRD( M, M, A, LDA, S, WORK( IE ),
3090                      CALL DGEBRD( M, M, WORK( IU ), LDWRKU, S,
3170                      CALL DGEBRD( M, M, A, LDA, S, WORK( IE ),
3253                      CALL DGEBRD( M, M, WORK( IU ), LDWRKU, S,
3327                      CALL DGEBRD( M, M, U, LDU, S, WORK( IE ),
3376             CALL DGEBRD( M, N, A, LDA, S, WORK( IE ), WORK( ITAUQ ),