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