Actual source code: zdacornf.c
1: #include <petsc/private/fortranimpl.h>
2: #include <petscdmda.h>
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define dmdasetfieldname_ DMDASETFIELDNAME
6: #define dmdagetfieldname_ DMDAGETFIELDNAME
7: #define dmdagetcorners_ DMDAGETCORNERS
8: #define dmdagetcorners000000_ DMDAGETCORNERS000000
9: #define dmdagetcorners001001_ DMDAGETCORNERS001001
10: #define dmdagetcorners011011_ DMDAGETCORNERS011011
11: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
12: #define dmdasetfieldname_ dmdasetfieldname
13: #define dmdagetfieldname_ dmdagetfieldname
14: #define dmdagetcorners_ dmdagetcorners
15: #define dmdagetcorners000000_ dmdagetcorners000000
16: #define dmdagetcorners001001_ dmdagetcorners001001
17: #define dmdagetcorners011011_ dmdagetcorners011011
18: #endif
20: PETSC_EXTERN void dmdasetfieldname_(DM *da, PetscInt *nf, char *name, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
21: {
22: char *t;
23: FIXCHAR(name, len, t);
24: *ierr = DMDASetFieldName(*da, *nf, t);
25: if (*ierr) return;
26: FREECHAR(name, t);
27: }
29: PETSC_EXTERN void dmdagetfieldname_(DM *da, PetscInt *nf, char *name, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
30: {
31: const char *tname;
33: *ierr = DMDAGetFieldName(*da, *nf, &tname);
34: if (*ierr) return;
35: *ierr = PetscStrncpy(name, tname, len);
36: if (*ierr) return;
37: FIXRETURNCHAR(PETSC_TRUE, name, len);
38: }
40: PETSC_EXTERN void dmdagetcorners_(DM *da, PetscInt *x, PetscInt *y, PetscInt *z, PetscInt *m, PetscInt *n, PetscInt *p, int *ierr)
41: {
42: CHKFORTRANNULLINTEGER(y);
43: CHKFORTRANNULLINTEGER(z);
44: CHKFORTRANNULLINTEGER(n);
45: CHKFORTRANNULLINTEGER(p);
47: *ierr = DMDAGetCorners(*da, x, y, z, m, n, p);
48: }
50: PETSC_EXTERN void dmdagetcorners000000_(DM *da, PetscInt *x, PetscInt *y, PetscInt *z, PetscInt *m, PetscInt *n, PetscInt *p, int *ierr)
51: {
52: dmdagetcorners_(da, x, y, z, m, n, p, ierr);
53: }
55: PETSC_EXTERN void dmdagetcorners001001_(DM *da, PetscInt *x, PetscInt *y, PetscInt *z, PetscInt *m, PetscInt *n, PetscInt *p, int *ierr)
56: {
57: dmdagetcorners_(da, x, y, z, m, n, p, ierr);
58: }
60: PETSC_EXTERN void dmdagetcorners011011_(DM *da, PetscInt *x, PetscInt *y, PetscInt *z, PetscInt *m, PetscInt *n, PetscInt *p, int *ierr)
61: {
62: dmdagetcorners_(da, x, y, z, m, n, p, ierr);
63: }