Actual source code: zdspepf.c
slepc-3.22.2 2024-12-02
1: /*
2: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
3: SLEPc - Scalable Library for Eigenvalue Problem Computations
4: Copyright (c) 2002-, Universitat Politecnica de Valencia, Spain
6: This file is part of SLEPc.
7: SLEPc is distributed under a 2-clause BSD license (see LICENSE).
8: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
9: */
11: #include <petsc/private/fortranimpl.h>
12: #include <slepcds.h>
14: #if defined(PETSC_HAVE_FORTRAN_CAPS)
15: #define dspepgetcoefficients_ DSPEPGETCOEFFICIENTS
16: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
17: #define dspepgetcoefficients_ dspepgetcoefficients
18: #endif
20: SLEPC_EXTERN void dspepgetcoefficients_(DS *ds,PetscReal *pbc,PetscErrorCode *ierr)
21: {
22: PetscReal *opbc;
23: PetscInt d;
25: CHKFORTRANNULLREAL(pbc);
26: *ierr = DSPEPGetCoefficients(*ds,&opbc); if (*ierr) return;
27: *ierr = DSPEPGetDegree(*ds,&d); if (*ierr) return;
28: *ierr = PetscArraycpy(pbc,opbc,3*(d+1)); if (*ierr) return;
29: *ierr = PetscFree(opbc);
30: }