lapack/double/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),
704                CALL DGEBRD( N, N, A, LDA, S, WORK( IE ), WORK( ITAUQ ),
789                   CALL DGEBRD( N, N, WORK( IR ), LDWRKR, S, WORK( IE ),
835                   CALL DGEBRD( M, N, A, LDA, S, WORK( IE ),
914                   CALL DGEBRD( N, N, VT, LDVT, S, WORK( IE ),
989                   CALL DGEBRD( N, N, VT, LDVT, S, WORK( IE ),
1070                      CALL DGEBRD( N, N, WORK( IR ), LDWRKR, S,
1130                      CALL DGEBRD( N, N, A, LDA, S, WORK( IE ),
1216                      CALL DGEBRD( N, N, WORK( IU ), LDWRKU, S,
1293                      CALL DGEBRD( N, N, A, LDA, S, WORK( IE ),
1374                      CALL DGEBRD( N, N, WORK( IU ), LDWRKU, S,
1446                      CALL DGEBRD( N, N, VT, LDVT, S, WORK( IE ),
1532                      CALL DGEBRD( N, N, WORK( IR ), LDWRKR, S,
1596                      CALL DGEBRD( N, N, A, LDA, S, WORK( IE ),
1684                      CALL DGEBRD( N, N, WORK( IU ), LDWRKU, S,
1764                      CALL DGEBRD( N, N, A, LDA, S, WORK( IE ),
1847                      CALL DGEBRD( N, N, WORK( IU ), LDWRKU, S,
1923                      CALL DGEBRD( N, N, VT, LDVT, S, WORK( IE ),
1972             CALL DGEBRD( M, N, A, LDA, S, WORK( IE ), WORK( ITAUQ ),
2090                CALL DGEBRD( M, M, A, LDA, S, WORK( IE ), WORK( ITAUQ ),
2179                   CALL DGEBRD( M, M, WORK( IR ), LDWRKR, S, WORK( IE ),
2225                   CALL DGEBRD( M, N, A, LDA, S, WORK( IE ),
2306                   CALL DGEBRD( M, M, U, LDU, S, WORK( IE ),
2380                   CALL DGEBRD( M, M, U, LDU, S, WORK( IE ),
2461                      CALL DGEBRD( M, M, WORK( IR ), LDWRKR, S,
2525                      CALL DGEBRD( M, M, A, LDA, S, WORK( IE ),
2611                      CALL DGEBRD( M, M, WORK( IU ), LDWRKU, S,
2688                      CALL DGEBRD( M, M, A, LDA, S, WORK( IE ),
2769                      CALL DGEBRD( M, M, WORK( IU ), LDWRKU, S,
2840                      CALL DGEBRD( M, M, U, LDU, S, WORK( IE ),
2926                      CALL DGEBRD( M, M, WORK( IR ), LDWRKR, S,
2991                      CALL DGEBRD( M, M, A, LDA, S, WORK( IE ),
3079                      CALL DGEBRD( M, M, WORK( IU ), LDWRKU, S,
3159                      CALL DGEBRD( M, M, A, LDA, S, WORK( IE ),
3242                      CALL DGEBRD( M, M, WORK( IU ), LDWRKU, S,
3316                      CALL DGEBRD( M, M, U, LDU, S, WORK( IE ),
3365             CALL DGEBRD( M, N, A, LDA, S, WORK( IE ), WORK( ITAUQ ),