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