Lines Matching refs:LDWRKR
235 $ ITAU, ITAUP, ITAUQ, IU, IWORK, LDWRKR, LDWRKU,
747 LDWRKR = LDA
753 LDWRKR = N
759 LDWRKR = N
761 ITAU = IR + LDWRKR*N
772 CALL DLACPY( 'U', N, N, A, LDA, WORK( IR ), LDWRKR )
774 $ LDWRKR )
789 CALL DGEBRD( N, N, WORK( IR ), LDWRKR, S, WORK( IE ),
796 CALL DORGBR( 'Q', N, N, N, WORK( IR ), LDWRKR,
806 $ WORK( IR ), LDWRKR, DUM, 1,
817 $ LDA, WORK( IR ), LDWRKR, ZERO,
871 LDWRKR = LDA
877 LDWRKR = N
883 LDWRKR = N
885 ITAU = IR + LDWRKR*N
917 CALL DLACPY( 'L', N, N, VT, LDVT, WORK( IR ), LDWRKR )
922 CALL DORGBR( 'Q', N, N, N, WORK( IR ), LDWRKR,
939 $ WORK( IR ), LDWRKR, DUM, 1,
950 $ LDA, WORK( IR ), LDWRKR, ZERO,
1034 LDWRKR = LDA
1039 LDWRKR = N
1041 ITAU = IR + LDWRKR*N
1053 $ LDWRKR )
1055 $ WORK( IR+1 ), LDWRKR )
1070 CALL DGEBRD( N, N, WORK( IR ), LDWRKR, S,
1078 CALL DORGBR( 'Q', N, N, N, WORK( IR ), LDWRKR,
1088 $ 1, WORK( IR ), LDWRKR, DUM, 1,
1096 $ WORK( IR ), LDWRKR, ZERO, U, LDU )
1171 LDWRKR = LDA
1178 LDWRKR = N
1185 LDWRKR = N
1187 ITAU = IR + LDWRKR*N
1223 $ WORK( IR ), LDWRKR )
1236 CALL DORGBR( 'P', N, N, N, WORK( IR ), LDWRKR,
1247 $ WORK( IR ), LDWRKR, WORK( IU ),
1260 CALL DLACPY( 'F', N, N, WORK( IR ), LDWRKR, A,
1499 LDWRKR = LDA
1504 LDWRKR = N
1506 ITAU = IR + LDWRKR*N
1519 $ LDWRKR )
1521 $ WORK( IR+1 ), LDWRKR )
1536 CALL DGEBRD( N, N, WORK( IR ), LDWRKR, S,
1544 CALL DORGBR( 'Q', N, N, N, WORK( IR ), LDWRKR,
1554 $ 1, WORK( IR ), LDWRKR, DUM, 1,
1562 $ WORK( IR ), LDWRKR, ZERO, A, LDA )
1642 LDWRKR = LDA
1649 LDWRKR = N
1656 LDWRKR = N
1658 ITAU = IR + LDWRKR*N
1695 $ WORK( IR ), LDWRKR )
1708 CALL DORGBR( 'P', N, N, N, WORK( IR ), LDWRKR,
1719 $ WORK( IR ), LDWRKR, WORK( IU ),
1735 CALL DLACPY( 'F', N, N, WORK( IR ), LDWRKR, A,
2143 LDWRKR = LDA
2150 LDWRKR = M
2157 LDWRKR = M
2159 ITAU = IR + LDWRKR*M
2170 CALL DLACPY( 'L', M, M, A, LDA, WORK( IR ), LDWRKR )
2172 $ WORK( IR+LDWRKR ), LDWRKR )
2187 CALL DGEBRD( M, M, WORK( IR ), LDWRKR, S, WORK( IE ),
2194 CALL DORGBR( 'P', M, M, M, WORK( IR ), LDWRKR,
2204 $ WORK( IR ), LDWRKR, DUM, 1, DUM, 1,
2215 $ LDWRKR, A( 1, I ), LDA, ZERO,
2270 LDWRKR = LDA
2277 LDWRKR = M
2284 LDWRKR = M
2286 ITAU = IR + LDWRKR*M
2317 CALL DLACPY( 'U', M, M, U, LDU, WORK( IR ), LDWRKR )
2322 CALL DORGBR( 'P', M, M, M, WORK( IR ), LDWRKR,
2339 $ WORK( IR ), LDWRKR, U, LDU, DUM, 1,
2350 $ LDWRKR, A( 1, I ), LDA, ZERO,
2433 LDWRKR = LDA
2438 LDWRKR = M
2440 ITAU = IR + LDWRKR*M
2452 $ LDWRKR )
2454 $ WORK( IR+LDWRKR ), LDWRKR )
2469 CALL DGEBRD( M, M, WORK( IR ), LDWRKR, S,
2478 CALL DORGBR( 'P', M, M, M, WORK( IR ), LDWRKR,
2488 $ WORK( IR ), LDWRKR, DUM, 1, DUM, 1,
2496 $ LDWRKR, A, LDA, ZERO, VT, LDVT )
2572 LDWRKR = LDA
2579 LDWRKR = M
2586 LDWRKR = M
2588 ITAU = IR + LDWRKR*M
2624 $ WORK( IR ), LDWRKR )
2637 CALL DORGBR( 'Q', M, M, M, WORK( IR ), LDWRKR,
2649 $ LDWRKR, DUM, 1, WORK( IWORK ), INFO )
2661 CALL DLACPY( 'F', M, M, WORK( IR ), LDWRKR, A,
2897 LDWRKR = LDA
2902 LDWRKR = M
2904 ITAU = IR + LDWRKR*M
2917 $ LDWRKR )
2919 $ WORK( IR+LDWRKR ), LDWRKR )
2934 CALL DGEBRD( M, M, WORK( IR ), LDWRKR, S,
2943 CALL DORGBR( 'P', M, M, M, WORK( IR ), LDWRKR,
2953 $ WORK( IR ), LDWRKR, DUM, 1, DUM, 1,
2961 $ LDWRKR, VT, LDVT, ZERO, A, LDA )
3039 LDWRKR = LDA
3046 LDWRKR = M
3053 LDWRKR = M
3055 ITAU = IR + LDWRKR*M
3092 $ WORK( IR ), LDWRKR )
3105 CALL DORGBR( 'Q', M, M, M, WORK( IR ), LDWRKR,
3117 $ LDWRKR, DUM, 1, WORK( IWORK ), INFO )
3132 CALL DLACPY( 'F', M, M, WORK( IR ), LDWRKR, A,