Lines Matching refs:IPV
230 $ IPT, IPV, IPW, IPW1, IRIGHT, IROFFC, IROFFV,
312 IPV = 1
313 IPW = IPV + MPC * K
326 CALL DLAMOV( 'All', MPC, K, V( IOFFV ), LDV, WORK( IPV ),
330 $ WORK( IPV ), LV, MYROW, IVCOL )
350 $ ONE, WORK( IPV+IIBEG-IIV+ITOP*LV ), LV )
379 $ WORK( IPV+II-IIV+(JJ-JJV)*LV ), LV )
381 $ WORK( IPV+II-IIV+ITOP*LV ), LV )
398 $ ONE, C( IOFFC ), LDC, WORK( IPV ), LV, ZERO,
425 $ WORK( IPV ), LV, WORK( IPW ), LW, ONE,
452 IPV = 1
453 IPW = IPV + K * NQC0
531 $ MBV, WORK( IPW ), LW, ZERO, WORK( IPV ), LV,
537 $ IPV = IPV + ICOFFC * LV
546 $ ONE, C( IOFFC ), LDC, WORK( IPV ), LV, ZERO,
583 $ -ONE, WORK( IPW ), LW, WORK( IPV ), LV, ONE,
615 IPV = 1
616 IPW = IPV + MPC0 * K
697 $ NBV, WORK( IPW ), LW, ZERO, WORK( IPV ), LV,
703 $ IPV = IPV + IROFFC
712 $ ONE, C( IOFFC ), LDC, WORK( IPV ), LV, ZERO,
749 $ WORK( IPV ), LV, WORK( IPW ), LW, ONE,
760 IPV = 1
761 IPW = IPV + K * NQC
774 CALL DLAMOV( 'All', K, NQC, V( IOFFV ), LDV, WORK( IPV ),
778 $ WORK( IPV ), LV, IVROW, MYCOL )
798 $ ONE, WORK( IPV+ILEFT+(JJBEG-JJV)*LV ),
828 $ WORK( IPV+II-IIV+(JJ-JJV)*LV ), LV )
830 $ WORK( IPV+ILEFT+(JJ-JJV)*LV ), LV )
848 $ ONE, C( IOFFC ), LDC, WORK( IPV ), LV, ZERO,
874 $ -ONE, WORK( IPW ), LW, WORK( IPV ), LV, ONE,