Lines Matching refs:ITAUP2
285 $ IORGLQ, IORGQR, IPHI, ITAUP1, ITAUP2, ITAUQ1,
382 ITAUP2 = ITAUP1 + MAX( 1, P )
383 ITAUQ1 = ITAUP2 + MAX( 1, M-P )
534 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2),
546 CALL ZUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2),
589 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2),
606 CALL ZUNGQR( M-P, M-P, Q, U2, LDU2, WORK(ITAUP2),
643 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2),
662 $ WORK(ITAUP2), WORK(IORGQR), LORGQR, CHILDINFO )
703 $ RWORK(IPHI), WORK(ITAUP1), WORK(ITAUP2),
726 CALL ZUNGQR( M-P, M-P, M-Q, U2, LDU2, WORK(ITAUP2),