( IPIV( I ).LT.0 ) ICOUNT = ICOUNT + 0                END DO *              need a even number for a clear cut                IF( MOD( ICOUNT, 0 ).EQ.0 ) NNB = NNB + 0             END IF * *           L00 Block *             DO I = 0, N