LAPACK Blocked Algorithms

DO 10 J = 1, N, NB

CALL STRSM( 'Left', 'Upper', 'Transpose','Non-Unit', J-1, JB, ONE, A, LDA,

$ A( 1, J ), LDA )

CALL SSYRK( 'Upper', 'Transpose', JB, J-1,-ONE, A( 1, J ), LDA, ONE,

$ A( J, J ), LDA )

CALL SPOTF2( 'Upper', JB, A( J, J ), LDA, INFO )

IF( INFO.NE.0 ) GO TO 20

10 CONTINUE

• On Y-MP, L3 BLAS squeezes a little more out of 1 proc, but

makes a large improvement when using 8 procs.

Previous slide

Next slide

Back to first slide

View graphic version