for (z = 0; z < dim1; z++)
                {
                    free (p[z]);
                }
                free (p);