Actual source code: fnimpl.h
1: /*
2: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
3: SLEPc - Scalable Library for Eigenvalue Problem Computations
4: Copyright (c) 2002-2013, Universitat Politecnica de Valencia, Spain
6: This file is part of SLEPc.
8: SLEPc is free software: you can redistribute it and/or modify it under the
9: terms of version 3 of the GNU Lesser General Public License as published by
10: the Free Software Foundation.
12: SLEPc is distributed in the hope that it will be useful, but WITHOUT ANY
13: WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
14: FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for
15: more details.
17: You should have received a copy of the GNU Lesser General Public License
18: along with SLEPc. If not, see <http://www.gnu.org/licenses/>.
19: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
20: */
22: #if !defined(_FNIMPL)
23: #define _FNIMPL
25: #include <slepcfn.h>
26: #include <slepc-private/slepcimpl.h>
28: typedef struct _FNOps *FNOps;
30: struct _FNOps {
31: PetscErrorCode (*evaluatefunction)(FN,PetscScalar,PetscScalar*);
32: PetscErrorCode (*evaluatederivative)(FN,PetscScalar,PetscScalar*);
33: PetscErrorCode (*view)(FN,PetscViewer);
34: };
36: struct _p_FN {
37: PETSCHEADER(struct _FNOps);
38: PetscInt na;
39: PetscScalar *alpha; /* first group of parameters */
40: PetscInt nb;
41: PetscScalar *beta; /* second group of parameters */
42: };
44: #endif