|
PISM, A Parallel Ice Sheet Model
stable v0.5
|
00001 /* Copyright (C) 2004-2009 Ed Bueler 00002 00003 This file is part of PISM. 00004 00005 PISM is free software; you can redistribute it and/or modify it under the 00006 terms of the GNU General Public License as published by the Free Software 00007 Foundation; either version 2 of the License, or (at your option) any later 00008 version. 00009 00010 PISM is distributed in the hope that it will be useful, but WITHOUT ANY 00011 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS 00012 FOR A PARTICULAR PURPOSE. See the GNU General Public License for more 00013 details. 00014 00015 You should have received a copy of the GNU General Public License 00016 along with PISM; if not, write to the Free Software 00017 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA 00018 */ 00019 00020 #ifndef __matlablike_hh 00021 #define __matlablike_hh 00022 00023 #include <petscvec.h> 00024 #include "cubature.h" /* for 'integrand' type */ 00025 00040 PetscErrorCode conv2_same(Vec vA, int mA, int nA, Vec vB, int mB, int nB, 00041 Vec &vresult); 00042 00043 00051 double interp1_linear(double* x, double* Y, int N, double xi); 00052 00053 00060 double dblquad_cubature(integrand f, double ax, double bx, double ay, double by, 00061 double reqRelError, void *fdata); 00062 00063 00064 #endif // ifndef __matlablike_hh 00065
1.7.5.1