Lines Matching refs:WORK
196 $ T, LDT, C, LDC, WORK, LDWORK ) argument
209 $ WORK( LDWORK, * ) local
267 CALL ZCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
268 CALL ZLACGV( LASTC, WORK( 1, J ), 1 )
274 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
281 $ V( K+1, 1 ), LDV, ONE, WORK, LDWORK )
287 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
297 $ -ONE, V( K+1, 1 ), LDV, WORK, LDWORK,
304 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
310 C( J, I ) = C( J, I ) - DCONJG( WORK( I, J ) )
326 CALL ZCOPY( LASTC, C( 1, J ), 1, WORK( 1, J ), 1 )
332 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
340 $ ONE, WORK, LDWORK )
346 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
356 $ -ONE, WORK, LDWORK, V( K+1, 1 ), LDV,
363 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
369 C( I, J ) = C( I, J ) - WORK( I, J )
394 $ WORK( 1, J ), 1 )
395 CALL ZLACGV( LASTC, WORK( 1, J ), 1 )
402 $ WORK, LDWORK )
410 $ ONE, WORK, LDWORK )
416 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
426 $ -ONE, V, LDV, WORK, LDWORK,
434 $ WORK, LDWORK )
441 $ DCONJG( WORK( I, J ) )
458 $ WORK( 1, J ), 1 )
465 $ WORK, LDWORK )
472 $ ONE, C, LDC, V, LDV, ONE, WORK, LDWORK )
478 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
487 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
495 $ WORK, LDWORK )
502 $ - WORK( I, J )
528 CALL ZCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
529 CALL ZLACGV( LASTC, WORK( 1, J ), 1 )
535 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
543 $ ONE, WORK, LDWORK )
549 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
559 $ -ONE, V( 1, K+1 ), LDV, WORK, LDWORK,
566 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
572 C( J, I ) = C( J, I ) - DCONJG( WORK( I, J ) )
588 CALL ZCOPY( LASTC, C( 1, J ), 1, WORK( 1, J ), 1 )
594 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
601 $ V( 1, K+1 ), LDV, ONE, WORK, LDWORK )
607 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
617 $ -ONE, WORK, LDWORK, V( 1, K+1 ), LDV,
624 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
630 C( I, J ) = C( I, J ) - WORK( I, J )
655 $ WORK( 1, J ), 1 )
656 CALL ZLACGV( LASTC, WORK( 1, J ), 1 )
663 $ WORK, LDWORK )
670 $ ONE, C, LDC, V, LDV, ONE, WORK, LDWORK )
676 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
686 $ -ONE, V, LDV, WORK, LDWORK, ONE, C, LDC )
693 $ WORK, LDWORK )
700 $ DCONJG( WORK( I, J ) )
717 $ WORK( 1, J ), 1 )
724 $ WORK, LDWORK )
731 $ WORK, LDWORK )
737 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
746 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
754 $ WORK, LDWORK )
761 $ - WORK( I, J )