Lines Matching refs:LDWRKR
150 $ ITAU, ITAUP, ITAUQ, IU, IWORK, LDWRKR, LDWRKU,
666 LDWRKR = LDA
672 LDWRKR = N
678 LDWRKR = N
680 ITAU = IR + LDWRKR*N
692 CALL ZLACPY( 'U', N, N, A, LDA, WORK( IR ), LDWRKR )
694 $ WORK( IR+1 ), LDWRKR )
711 CALL ZGEBRD( N, N, WORK( IR ), LDWRKR, S, RWORK( IE ),
719 CALL ZUNGBR( 'Q', N, N, N, WORK( IR ), LDWRKR,
730 $ WORK( IR ), LDWRKR, CDUM, 1,
742 $ LDA, WORK( IR ), LDWRKR, CZERO,
799 LDWRKR = LDA
805 LDWRKR = N
811 LDWRKR = N
813 ITAU = IR + LDWRKR*N
847 CALL ZLACPY( 'L', N, N, VT, LDVT, WORK( IR ), LDWRKR )
853 CALL ZUNGBR( 'Q', N, N, N, WORK( IR ), LDWRKR,
872 $ LDVT, WORK( IR ), LDWRKR, CDUM, 1,
884 $ LDA, WORK( IR ), LDWRKR, CZERO,
974 LDWRKR = LDA
979 LDWRKR = N
981 ITAU = IR + LDWRKR*N
994 $ LDWRKR )
996 $ WORK( IR+1 ), LDWRKR )
1013 CALL ZGEBRD( N, N, WORK( IR ), LDWRKR, S,
1022 CALL ZUNGBR( 'Q', N, N, N, WORK( IR ), LDWRKR,
1033 $ 1, WORK( IR ), LDWRKR, CDUM, 1,
1042 $ WORK( IR ), LDWRKR, CZERO, U, LDU )
1120 LDWRKR = LDA
1127 LDWRKR = N
1134 LDWRKR = N
1136 ITAU = IR + LDWRKR*N
1175 $ WORK( IR ), LDWRKR )
1190 CALL ZUNGBR( 'P', N, N, N, WORK( IR ), LDWRKR,
1202 $ WORK( IR ), LDWRKR, WORK( IU ),
1218 CALL ZLACPY( 'F', N, N, WORK( IR ), LDWRKR, A,
1473 LDWRKR = LDA
1478 LDWRKR = N
1480 ITAU = IR + LDWRKR*N
1494 $ LDWRKR )
1496 $ WORK( IR+1 ), LDWRKR )
1513 CALL ZGEBRD( N, N, WORK( IR ), LDWRKR, S,
1522 CALL ZUNGBR( 'Q', N, N, N, WORK( IR ), LDWRKR,
1533 $ 1, WORK( IR ), LDWRKR, CDUM, 1,
1542 $ WORK( IR ), LDWRKR, CZERO, A, LDA )
1625 LDWRKR = LDA
1632 LDWRKR = N
1639 LDWRKR = N
1641 ITAU = IR + LDWRKR*N
1681 $ WORK( IR ), LDWRKR )
1696 CALL ZUNGBR( 'P', N, N, N, WORK( IR ), LDWRKR,
1708 $ WORK( IR ), LDWRKR, WORK( IU ),
1726 CALL ZLACPY( 'F', N, N, WORK( IR ), LDWRKR, A,
2166 LDWRKR = LDA
2173 LDWRKR = M
2180 LDWRKR = M
2182 ITAU = IR + LDWRKR*M
2194 CALL ZLACPY( 'L', M, M, A, LDA, WORK( IR ), LDWRKR )
2196 $ WORK( IR+LDWRKR ), LDWRKR )
2213 CALL ZGEBRD( M, M, WORK( IR ), LDWRKR, S, RWORK( IE ),
2221 CALL ZUNGBR( 'P', M, M, M, WORK( IR ), LDWRKR,
2232 $ WORK( IR ), LDWRKR, CDUM, 1, CDUM, 1,
2244 $ LDWRKR, A( 1, I ), LDA, CZERO,
2302 LDWRKR = LDA
2309 LDWRKR = M
2316 LDWRKR = M
2318 ITAU = IR + LDWRKR*M
2352 CALL ZLACPY( 'U', M, M, U, LDU, WORK( IR ), LDWRKR )
2358 CALL ZUNGBR( 'P', M, M, M, WORK( IR ), LDWRKR,
2377 $ WORK( IR ), LDWRKR, U, LDU, CDUM, 1,
2389 $ LDWRKR, A( 1, I ), LDA, CZERO,
2478 LDWRKR = LDA
2483 LDWRKR = M
2485 ITAU = IR + LDWRKR*M
2498 $ LDWRKR )
2500 $ WORK( IR+LDWRKR ), LDWRKR )
2517 CALL ZGEBRD( M, M, WORK( IR ), LDWRKR, S,
2527 CALL ZUNGBR( 'P', M, M, M, WORK( IR ), LDWRKR,
2538 $ WORK( IR ), LDWRKR, CDUM, 1, CDUM, 1,
2547 $ LDWRKR, A, LDA, CZERO, VT, LDVT )
2628 LDWRKR = LDA
2635 LDWRKR = M
2642 LDWRKR = M
2644 ITAU = IR + LDWRKR*M
2683 $ WORK( IR ), LDWRKR )
2698 CALL ZUNGBR( 'Q', M, M, M, WORK( IR ), LDWRKR,
2711 $ LDWRKR, CDUM, 1, RWORK( IRWORK ),
2726 CALL ZLACPY( 'F', M, M, WORK( IR ), LDWRKR, A,
2981 LDWRKR = LDA
2986 LDWRKR = M
2988 ITAU = IR + LDWRKR*M
3002 $ LDWRKR )
3004 $ WORK( IR+LDWRKR ), LDWRKR )
3021 CALL ZGEBRD( M, M, WORK( IR ), LDWRKR, S,
3031 CALL ZUNGBR( 'P', M, M, M, WORK( IR ), LDWRKR,
3042 $ WORK( IR ), LDWRKR, CDUM, 1, CDUM, 1,
3051 $ LDWRKR, VT, LDVT, CZERO, A, LDA )
3134 LDWRKR = LDA
3141 LDWRKR = M
3148 LDWRKR = M
3150 ITAU = IR + LDWRKR*M
3190 $ WORK( IR ), LDWRKR )
3205 CALL ZUNGBR( 'Q', M, M, M, WORK( IR ), LDWRKR,
3218 $ LDWRKR, CDUM, 1, RWORK( IRWORK ),
3235 CALL ZLACPY( 'F', M, M, WORK( IR ), LDWRKR, A,