Actual source code: zmat.c
1: #include <petsc/private/ftnimpl.h>
2: #include <petscmat.h>
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define matsetvalue_ MATSETVALUE
6: #define matsetvaluelocal_ MATSETVALUELOCAL
7: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
8: #define matsetvalue_ matsetvalue
9: #define matsetvaluelocal_ matsetvaluelocal
10: #endif
12: PETSC_EXTERN void matsetvalue_(Mat *mat, PetscInt *i, PetscInt *j, PetscScalar *va, InsertMode *mode, PetscErrorCode *ierr)
13: {
14: /* cannot use MatSetValue() here since that uses PetscCall() which has a return in it */
15: *ierr = MatSetValues(*mat, 1, i, 1, j, va, *mode);
16: }
18: PETSC_EXTERN void matsetvaluelocal_(Mat *mat, PetscInt *i, PetscInt *j, PetscScalar *va, InsertMode *mode, PetscErrorCode *ierr)
19: {
20: /* cannot use MatSetValueLocal() here since that uses PetscCall() which has a return in it */
21: *ierr = MatSetValuesLocal(*mat, 1, i, 1, j, va, *mode);
22: }