Lines Matching refs:NNB
185 INTEGER CUT, I, ICOUNT, INVD, IP, K, NNB, J, U11 local
301 NNB = NB
302 IF( CUT.LE.NNB ) THEN
303 NNB = CUT
307 DO I = CUT+1-NNB, CUT
311 IF( MOD( ICOUNT, 2 ).EQ.1 ) NNB = NNB + 1
314 CUT = CUT - NNB
319 DO J = 1, NNB
326 DO I = 1, NNB
331 DO J = I+1, NNB
341 DO J = 1, NNB
345 DO J = 1, NNB
361 DO WHILE ( I.LE.NNB )
363 DO J = I, NNB
367 DO J = I, NNB
382 CALL CTRMM( 'L', 'U', 'T', 'U', NNB, NNB,
386 DO I = 1, NNB
387 DO J = I, NNB
394 CALL CGEMM( 'T', 'N', NNB, NNB, CUT, CONE, A( 1, CUT+1 ),
401 DO I = 1, NNB
402 DO J = I, NNB
409 CALL CTRMM( 'L', UPLO, 'T', 'U', CUT, NNB,
416 DO J = 1, NNB
482 NNB = NB
483 IF( (CUT + NNB).GT.N ) THEN
484 NNB = N - CUT
488 DO I = CUT + 1, CUT+NNB
492 IF( MOD( ICOUNT, 2 ).EQ.1 ) NNB = NNB + 1
497 DO I = 1, N-CUT-NNB
498 DO J = 1, NNB
499 WORK( I, J ) = A( CUT+NNB+I, CUT+J )
505 DO I = 1, NNB
507 DO J = I+1, NNB
517 I = N-CUT-NNB
519 IF( IPIV( CUT+NNB+I ).GT.0 ) THEN
520 DO J = 1, NNB
521 WORK( I, J ) = WORK( CUT+NNB+I, INVD) * WORK( I, J)
524 DO J = 1, NNB
527 WORK(I,J)=WORK(CUT+NNB+I,INVD)*U01_I_J+
528 $ WORK(CUT+NNB+I,INVD+1)*U01_IP1_J
529 WORK(I-1,J)=WORK(CUT+NNB+I-1,INVD+1)*U01_I_J+
530 $ WORK(CUT+NNB+I-1,INVD)*U01_IP1_J
539 I = NNB
542 DO J = 1, NNB
547 DO J = 1, NNB
562 CALL CTRMM( 'L', UPLO, 'T', 'U', NNB, NNB, CONE,
567 DO I = 1, NNB
573 IF( (CUT+NNB).LT.N ) THEN
577 CALL CGEMM( 'T', 'N', NNB, NNB, N-NNB-CUT, CONE,
578 $ A( CUT+NNB+1, CUT+1 ), LDA, WORK, N+NB+1,
584 DO I = 1, NNB
592 CALL CTRMM( 'L', UPLO, 'T', 'U', N-NNB-CUT, NNB, CONE,
593 $ A( CUT+NNB+1, CUT+NNB+1 ), LDA, WORK,
598 DO I = 1, N-CUT-NNB
599 DO J = 1, NNB
600 A( CUT+NNB+I, CUT+J ) = WORK( I, J )
608 DO I = 1, NNB
617 CUT = CUT + NNB