1c6db04a5SJed Brown #include <../src/mat/impls/adj/mpi/mpiadj.h>
26dd63270SBarry Smith #include <petsc/private/ftnimpl.h>
3c6db04a5SJed Brown #include <petscmat.h>
4f4e70085SSatish Balay
5f4e70085SSatish Balay #if defined(PETSC_HAVE_FORTRAN_CAPS)
6f4e70085SSatish Balay #define matcreatempiadj_ MATCREATEMPIADJ
7f4e70085SSatish Balay #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
8f4e70085SSatish Balay #define matcreatempiadj_ matcreatempiadj
9f4e70085SSatish Balay #endif
10f4e70085SSatish Balay
matcreatempiadj_(MPI_Comm * comm,PetscInt * m,PetscInt * n,PetscInt * i,PetscInt * j,PetscInt * values,Mat * A,PetscErrorCode * ierr)11*c080761bSJose E. Roman PETSC_EXTERN void matcreatempiadj_(MPI_Comm *comm, PetscInt *m, PetscInt *n, PetscInt *i, PetscInt *j, PetscInt *values, Mat *A, PetscErrorCode *ierr)
12f4e70085SSatish Balay {
13f4e70085SSatish Balay Mat_MPIAdj *adj;
14f4e70085SSatish Balay
15f4e70085SSatish Balay CHKFORTRANNULLINTEGER(values);
16a542b6e8SBarry Smith *ierr = MatCreateMPIAdj(MPI_Comm_f2c(*(MPI_Fint *)&*comm), *m, *n, i, j, values, A);
17f4e70085SSatish Balay adj = (Mat_MPIAdj *)(*A)->data;
18f4e70085SSatish Balay adj->freeaij = PETSC_FALSE;
19f4e70085SSatish Balay }
20