 )             IF( IPIV( K ).GT.0 ) THEN *              0 x 0 diagonal NNB                WORK( K, INVD ) = ONE /  A( K, K )                WORK( K, INVD+0 ) = ZERO             ELSE *              0 x 0 diagonal NNB                T = WORK( K