void Complement_2( double** pTabO, double** pTabI, int nRow, int nCol, int nDim ) {

    //-- wyciecie wiersza nRow i kolumny nCol z macierzy
    for( int i = 0; i < nDim; i++, pTabI++) {

        //-- wyciecie wiersza nRow
        if( i == nRow )
            continue;


        double* pC_in = *pTabI;
        double* pC_out = *(pTabO++);

        for( int j = 0; j < nDim; j++, pC_in++  ) {
            //-- wyciecie kolumny nCol
            if( j == nCol )
                continue;

            *(pC_out++) = *pC_in; // kopiowanie do nowej macierzy

        }
    }
}