 )                IF( IPIV( CUT+I ).GT.0 ) THEN                   DO J = I, NNB                      WORK( U00+I, J ) = WORK(CUT+I,INVD) * WORK(U00+I,J)                   END DO                ELSE                   DO J = I, NNB                      