Lines Matching refs:LDWRKR
245 $ ITAU, ITAUP, ITAUQ, IU, IWORK, LDWRKR, LDWRKU,
738 LDWRKR = LDA
744 LDWRKR = N
750 LDWRKR = N
752 ITAU = IR + LDWRKR*N
764 CALL ZLACPY( 'U', N, N, A, LDA, WORK( IR ), LDWRKR )
766 $ WORK( IR+1 ), LDWRKR )
783 CALL ZGEBRD( N, N, WORK( IR ), LDWRKR, S, RWORK( IE ),
791 CALL ZUNGBR( 'Q', N, N, N, WORK( IR ), LDWRKR,
802 $ WORK( IR ), LDWRKR, CDUM, 1,
814 $ LDA, WORK( IR ), LDWRKR, CZERO,
871 LDWRKR = LDA
877 LDWRKR = N
883 LDWRKR = N
885 ITAU = IR + LDWRKR*N
920 CALL ZLACPY( 'L', N, N, VT, LDVT, WORK( IR ), LDWRKR )
926 CALL ZUNGBR( 'Q', N, N, N, WORK( IR ), LDWRKR,
945 $ LDVT, WORK( IR ), LDWRKR, CDUM, 1,
957 $ LDA, WORK( IR ), LDWRKR, CZERO,
1048 LDWRKR = LDA
1053 LDWRKR = N
1055 ITAU = IR + LDWRKR*N
1068 $ LDWRKR )
1070 $ WORK( IR+1 ), LDWRKR )
1087 CALL ZGEBRD( N, N, WORK( IR ), LDWRKR, S,
1096 CALL ZUNGBR( 'Q', N, N, N, WORK( IR ), LDWRKR,
1107 $ 1, WORK( IR ), LDWRKR, CDUM, 1,
1116 $ WORK( IR ), LDWRKR, CZERO, U, LDU )
1194 LDWRKR = LDA
1201 LDWRKR = N
1208 LDWRKR = N
1210 ITAU = IR + LDWRKR*N
1249 $ WORK( IR ), LDWRKR )
1264 CALL ZUNGBR( 'P', N, N, N, WORK( IR ), LDWRKR,
1276 $ WORK( IR ), LDWRKR, WORK( IU ),
1292 CALL ZLACPY( 'F', N, N, WORK( IR ), LDWRKR, A,
1548 LDWRKR = LDA
1553 LDWRKR = N
1555 ITAU = IR + LDWRKR*N
1569 $ LDWRKR )
1571 $ WORK( IR+1 ), LDWRKR )
1588 CALL ZGEBRD( N, N, WORK( IR ), LDWRKR, S,
1597 CALL ZUNGBR( 'Q', N, N, N, WORK( IR ), LDWRKR,
1608 $ 1, WORK( IR ), LDWRKR, CDUM, 1,
1617 $ WORK( IR ), LDWRKR, CZERO, A, LDA )
1700 LDWRKR = LDA
1707 LDWRKR = N
1714 LDWRKR = N
1716 ITAU = IR + LDWRKR*N
1756 $ WORK( IR ), LDWRKR )
1771 CALL ZUNGBR( 'P', N, N, N, WORK( IR ), LDWRKR,
1783 $ WORK( IR ), LDWRKR, WORK( IU ),
1801 CALL ZLACPY( 'F', N, N, WORK( IR ), LDWRKR, A,
2242 LDWRKR = LDA
2249 LDWRKR = M
2256 LDWRKR = M
2258 ITAU = IR + LDWRKR*M
2270 CALL ZLACPY( 'L', M, M, A, LDA, WORK( IR ), LDWRKR )
2272 $ WORK( IR+LDWRKR ), LDWRKR )
2289 CALL ZGEBRD( M, M, WORK( IR ), LDWRKR, S, RWORK( IE ),
2297 CALL ZUNGBR( 'P', M, M, M, WORK( IR ), LDWRKR,
2308 $ WORK( IR ), LDWRKR, CDUM, 1, CDUM, 1,
2320 $ LDWRKR, A( 1, I ), LDA, CZERO,
2378 LDWRKR = LDA
2385 LDWRKR = M
2392 LDWRKR = M
2394 ITAU = IR + LDWRKR*M
2428 CALL ZLACPY( 'U', M, M, U, LDU, WORK( IR ), LDWRKR )
2434 CALL ZUNGBR( 'P', M, M, M, WORK( IR ), LDWRKR,
2453 $ WORK( IR ), LDWRKR, U, LDU, CDUM, 1,
2465 $ LDWRKR, A( 1, I ), LDA, CZERO,
2554 LDWRKR = LDA
2559 LDWRKR = M
2561 ITAU = IR + LDWRKR*M
2574 $ LDWRKR )
2576 $ WORK( IR+LDWRKR ), LDWRKR )
2593 CALL ZGEBRD( M, M, WORK( IR ), LDWRKR, S,
2603 CALL ZUNGBR( 'P', M, M, M, WORK( IR ), LDWRKR,
2614 $ WORK( IR ), LDWRKR, CDUM, 1, CDUM, 1,
2623 $ LDWRKR, A, LDA, CZERO, VT, LDVT )
2704 LDWRKR = LDA
2711 LDWRKR = M
2718 LDWRKR = M
2720 ITAU = IR + LDWRKR*M
2759 $ WORK( IR ), LDWRKR )
2774 CALL ZUNGBR( 'Q', M, M, M, WORK( IR ), LDWRKR,
2787 $ LDWRKR, CDUM, 1, RWORK( IRWORK ),
2802 CALL ZLACPY( 'F', M, M, WORK( IR ), LDWRKR, A,
3057 LDWRKR = LDA
3062 LDWRKR = M
3064 ITAU = IR + LDWRKR*M
3078 $ LDWRKR )
3080 $ WORK( IR+LDWRKR ), LDWRKR )
3097 CALL ZGEBRD( M, M, WORK( IR ), LDWRKR, S,
3107 CALL ZUNGBR( 'P', M, M, M, WORK( IR ), LDWRKR,
3118 $ WORK( IR ), LDWRKR, CDUM, 1, CDUM, 1,
3127 $ LDWRKR, VT, LDVT, CZERO, A, LDA )
3210 LDWRKR = LDA
3217 LDWRKR = M
3224 LDWRKR = M
3226 ITAU = IR + LDWRKR*M
3266 $ WORK( IR ), LDWRKR )
3281 CALL ZUNGBR( 'Q', M, M, M, WORK( IR ), LDWRKR,
3294 $ LDWRKR, CDUM, 1, RWORK( IRWORK ),
3311 CALL ZLACPY( 'F', M, M, WORK( IR ), LDWRKR, A,