Проблема с динамическим массивом

 const int N_AoC = 99;
                const int N_Aot = 90;
                const int n_rot = 3;
                const int N_Rot = 7;
                double*** Interp_2D = new double** [n_rot];
                for (int i = 0; i < n_rot; i++) {
                    Interp_2D[i] = new double* [N_Aot];
                    for (int j = 0; j < N_Aot; j++) {
                        Interp_2D[i][j] = new double[N_AoC];
                    }

for (int i = 0; i < 90; i++) {
                    for (int j = 0; j < 99; j++) {
                        real_1d_array z = "[0.5, 1.0, 2.0]";
                        real_1d_array f;
                        double vz0 = 0.5;
                        double vz;
                        double vf;
                        double F[3];
                        for (int k = 0; k < n_rot; k++) {
                            F[k] = Interp_2D[k][i][j];
                        }
                        f.attach_to_ptr(3, F);
                        spline1dbuildcubic(z, f, s);
                        for (int k = 0; k < N_Rot; k++) {
                            vz = vz0 + 0.25 * k;
                            vf = spline1dcalc(s, vz);
                            Interp_3D[k][i][j] = vf;
                        }
                    }
                }

double Interp_3D[N_Rot][90][99];

 double*** Interp_3D = new double** [N_Rot];
                   for (int i = 0; i < n_rot; i++) {
                        Interp_3D[i] = new double* [N_Aot];
                        for (int j = 0; j < N_Aot; j++) {
                            Interp_3D[i][j] = new double[N_AoC];
                        }
 
                   }

 
                    for (int i = 0; i < N_Rot; i++) {
                        for (int j = 0; j < N_Aot; j++) {
                            delete[]Interp_3D[i][j];
                        }
                        delete[]Interp_3D[i];
                    }
                    delete[]Interp_3D;