Lines Matching refs:WORK
196 $ T, LDT, C, LDC, WORK, LDWORK ) argument
209 $ WORK( LDWORK, * ) local
267 CALL CCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
268 CALL CLACGV( 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 $ WORK, LDWORK, ONE, C( K+1, 1 ), LDC )
303 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
309 C( J, I ) = C( J, I ) - CONJG( WORK( I, J ) )
325 CALL CCOPY( LASTC, C( 1, J ), 1, WORK( 1, J ), 1 )
331 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
339 $ ONE, WORK, LDWORK )
345 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
355 $ -ONE, WORK, LDWORK, V( K+1, 1 ), LDV,
362 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
368 C( I, J ) = C( I, J ) - WORK( I, J )
393 $ WORK( 1, J ), 1 )
394 CALL CLACGV( LASTC, WORK( 1, J ), 1 )
401 $ WORK, LDWORK )
408 $ ONE, WORK, LDWORK )
414 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
423 $ LASTV-K, LASTC, K, -ONE, V, LDV, WORK, LDWORK,
431 $ WORK, LDWORK )
438 $ CONJG( WORK( I, J ) )
455 $ WORK( 1, J ), 1 )
462 $ WORK, LDWORK )
469 $ ONE, C, LDC, V, LDV, ONE, WORK, LDWORK )
475 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
484 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
492 $ WORK, LDWORK )
499 $ - WORK( I, J )
525 CALL CCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
526 CALL CLACGV( LASTC, WORK( 1, J ), 1 )
532 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
540 $ ONE, WORK, LDWORK )
546 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
556 $ -ONE, V( 1, K+1 ), LDV, WORK, LDWORK,
563 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
569 C( J, I ) = C( J, I ) - CONJG( WORK( I, J ) )
585 CALL CCOPY( LASTC, C( 1, J ), 1, WORK( 1, J ), 1 )
591 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
598 $ V( 1, K+1 ), LDV, ONE, WORK, LDWORK )
604 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
614 $ -ONE, WORK, LDWORK, V( 1, K+1 ), LDV,
621 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
627 C( I, J ) = C( I, J ) - WORK( I, J )
652 $ WORK( 1, J ), 1 )
653 CALL CLACGV( LASTC, WORK( 1, J ), 1 )
660 $ WORK, LDWORK )
667 $ ONE, C, LDC, V, LDV, ONE, WORK, LDWORK )
673 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
683 $ -ONE, V, LDV, WORK, LDWORK, ONE, C, LDC )
690 $ WORK, LDWORK )
697 $ CONJG( WORK( I, J ) )
714 $ WORK( 1, J ), 1 )
721 $ WORK, LDWORK )
728 $ WORK, LDWORK )
734 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
743 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
751 $ WORK, LDWORK )
758 $ - WORK( I, J )