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 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