Actual source code: zfftf.c
1: #include <petsc/private/fortranimpl.h>
2: #include <petsc/private/matimpl.h>
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define matcreatefft_ MATCREATEFFT
6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
7: #define matcreatefft_ matcreatefft
8: #endif
10: PETSC_EXTERN void matcreatefft_(MPI_Comm *comm, PetscInt *ndim, PetscInt *dim, char *type_name, Mat *A, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
11: {
12: char *mattype;
14: FIXCHAR(type_name, len, mattype);
15: *ierr = MatCreateFFT(MPI_Comm_f2c(*(MPI_Fint *)&*comm), *ndim, dim, mattype, A);
16: if (*ierr) return;
17: FREECHAR(type_name, mattype);
18: }