Lines Matching refs:WORK
196 $ T, LDT, C, LDC, WORK, LDWORK ) argument
209 $ WORK( LDWORK, * ) local
264 CALL DCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
270 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
278 $ ONE, WORK, LDWORK )
284 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
294 $ -ONE, V( K+1, 1 ), LDV, WORK, LDWORK, ONE,
301 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
307 C( J, I ) = C( J, I ) - WORK( I, J )
323 CALL DCOPY( LASTC, C( 1, J ), 1, WORK( 1, J ), 1 )
329 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
337 $ ONE, WORK, LDWORK )
343 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
353 $ -ONE, WORK, LDWORK, V( K+1, 1 ), LDV, ONE,
360 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
366 C( I, J ) = C( I, J ) - WORK( I, J )
391 $ WORK( 1, J ), 1 )
398 $ WORK, LDWORK )
405 $ ONE, WORK, LDWORK )
411 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
420 $ LASTV-K, LASTC, K, -ONE, V, LDV, WORK, LDWORK,
428 $ WORK, LDWORK )
434 C( LASTV-K+J, I ) = C( LASTV-K+J, I ) - WORK(I, J)
450 CALL DCOPY( LASTC, C( 1, N-K+J ), 1, WORK( 1, J ), 1 )
457 $ WORK, LDWORK )
464 $ ONE, WORK, LDWORK )
470 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
479 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
487 $ WORK, LDWORK )
493 C( I, LASTV-K+J ) = C( I, LASTV-K+J ) - WORK(I, J)
519 CALL DCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
525 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
533 $ ONE, WORK, LDWORK )
539 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
549 $ -ONE, V( 1, K+1 ), LDV, WORK, LDWORK,
556 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
562 C( J, I ) = C( J, I ) - WORK( I, J )
578 CALL DCOPY( LASTC, C( 1, J ), 1, WORK( 1, J ), 1 )
584 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
592 $ ONE, WORK, LDWORK )
598 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
608 $ -ONE, WORK, LDWORK, V( 1, K+1 ), LDV,
615 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
621 C( I, J ) = C( I, J ) - WORK( I, J )
646 $ WORK( 1, J ), 1 )
653 $ WORK, LDWORK )
660 $ ONE, WORK, LDWORK )
666 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
675 $ LASTV-K, LASTC, K, -ONE, V, LDV, WORK, LDWORK,
683 $ WORK, LDWORK )
689 C( LASTV-K+J, I ) = C( LASTV-K+J, I ) - WORK(I, J)
706 $ WORK( 1, J ), 1 )
713 $ WORK, LDWORK )
720 $ ONE, WORK, LDWORK )
726 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
735 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
743 $ WORK, LDWORK )
749 C( I, LASTV-K+J ) = C( I, LASTV-K+J ) - WORK(I, J)