Lines Matching refs:ITAUP2
284 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1,
377 ITAUP2 = ITAUP1 + MAX( 1, P )
378 ITAUQ1 = ITAUP2 + MAX( 1, M-P )
510 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2),
522 CALL ZUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2),
565 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2),
582 CALL ZUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2),
619 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2),
638 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO )
679 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2),
702 CALL ZUNGQR( M-P, M-P, M-Q, U2, LDU2, WORK(ITAUP2),