Actual source code: zfddaf.c

  1: #include <petsc/private/fortranimpl.h>
  2: #include <petscdmcomposite.h>

  4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
  5:   #define dmcompositegetentries1_             DMCOMPOSITEGETENTRIES1
  6:   #define dmcompositegetentries2_             DMCOMPOSITEGETENTRIES2
  7:   #define dmcompositegetentries3_             DMCOMPOSITEGETENTRIES3
  8:   #define dmcompositegetentries4_             DMCOMPOSITEGETENTRIES4
  9:   #define dmcompositegetentries5_             DMCOMPOSITEGETENTRIES5
 10:   #define dmcompositeadddm_                   DMCOMPOSITEADDDM
 11:   #define dmcompositedestroy_                 DMCOMPOSITEDESTROY
 12:   #define dmcompositegetaccess4_              DMCOMPOSITEGETACCESS4
 13:   #define dmcompositescatter4_                DMCOMPOSITESCATTER4
 14:   #define dmcompositerestoreaccess4_          DMCOMPOSITERESTOREACCESS4
 15:   #define dmcompositegetlocalvectors4_        DMCOMPOSITEGETLOCALVECTORS4
 16:   #define dmcompositerestorelocalvectors4_    DMCOMPOSITERESTORELOCALVECTORS4
 17:   #define dmcompositegetglobaliss_            DMCOMPOSITEGETGLOBALISS
 18:   #define dmcompositegetlocaliss_             DMCOMPOSITEGETLOCALISS
 19:   #define dmcompositegetaccessarray_          DMCOMPOSITEGETACCESSARRAY
 20:   #define dmcompositerestoreaccessarray_      DMCOMPOSITERESTOREACCESSARRAY
 21:   #define dmcompositegetlocalaccessarray_     DMCOMPOSITEGETLOCALACCESSARRAY
 22:   #define dmcompositerestorelocalaccessarray_ DMCOMPOSITERESTORELOCALACCESSARRAY
 23: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
 24:   #define dmcompositegetentries1_             dmcompositegetentries1
 25:   #define dmcompositegetentries2_             dmcompositegetentries2
 26:   #define dmcompositegetentries3_             dmcompositegetentries3
 27:   #define dmcompositegetentries4_             dmcompositegetentries4
 28:   #define dmcompositegetentries5_             dmcompositegetentries5
 29:   #define dmcompositeadddm_                   dmcompositeadddm
 30:   #define dmcompositedestroy_                 dmcompositedestroy
 31:   #define dmcompositegetaccess4_              dmcompositegetaccess4
 32:   #define dmcompositescatter4_                dmcompositescatter4
 33:   #define dmcompositerestoreaccess4_          dmcompositerestoreaccess4
 34:   #define dmcompositegetlocalvectors4_        dmcompositegetlocalvectors4
 35:   #define dmcompositerestorelocalvectors4_    dmcompositerestorelocalvectors4
 36:   #define dmcompositegetglobaliss_            dmcompositegetglobaliss
 37:   #define dmcompositegetlocaliss_             dmcompositegetlocaliss
 38:   #define dmcompositegetaccessarray_          dmcompositegetaccessarray
 39:   #define dmcompositerestoreaccessarray_      dmcompositerestoreaccessarray
 40:   #define dmcompositegetlocalaccessarray_     dmcompositegetlocalaccessarray
 41:   #define dmcompositerestorelocalaccessarray_ dmcompositerestorelocalaccessarray
 42: #endif

 44: PETSC_EXTERN void dmcompositegetentries1_(DM *dm, DM *da1, PetscErrorCode *ierr)
 45: {
 46:   *ierr = DMCompositeGetEntries(*dm, da1);
 47: }

 49: PETSC_EXTERN void dmcompositegetentries2_(DM *dm, DM *da1, DM *da2, PetscErrorCode *ierr)
 50: {
 51:   *ierr = DMCompositeGetEntries(*dm, da1, da2);
 52: }

 54: PETSC_EXTERN void dmcompositegetentries3_(DM *dm, DM *da1, DM *da2, DM *da3, PetscErrorCode *ierr)
 55: {
 56:   *ierr = DMCompositeGetEntries(*dm, da1, da2, da3);
 57: }

 59: PETSC_EXTERN void dmcompositegetentries4_(DM *dm, DM *da1, DM *da2, DM *da3, DM *da4, PetscErrorCode *ierr)
 60: {
 61:   *ierr = DMCompositeGetEntries(*dm, da1, da2, da3, da4);
 62: }

 64: PETSC_EXTERN void dmcompositegetentries5_(DM *dm, DM *da1, DM *da2, DM *da3, DM *da4, DM *da5, PetscErrorCode *ierr)
 65: {
 66:   *ierr = DMCompositeGetEntries(*dm, da1, da2, da3, da4, da5);
 67: }

 69: PETSC_EXTERN void dmcompositegetaccess4_(DM *dm, Vec *v, void **v1, void **p1, void **v2, void **p2, PetscErrorCode *ierr)
 70: {
 71:   Vec *vv1 = (Vec *)v1, *vv2 = (Vec *)v2;
 72:   *ierr = DMCompositeGetAccess(*dm, *v, vv1, (PetscScalar *)p1, vv2, (PetscScalar *)p2);
 73: }

 75: PETSC_EXTERN void dmcompositescatter4_(DM *dm, Vec *v, void *v1, void *p1, void *v2, void *p2, PetscErrorCode *ierr)
 76: {
 77:   Vec *vv1 = (Vec *)v1, *vv2 = (Vec *)v2;
 78:   *ierr = DMCompositeScatter(*dm, *v, *vv1, (PetscScalar *)p1, *vv2, (PetscScalar *)p2);
 79: }

 81: PETSC_EXTERN void dmcompositerestoreaccess4_(DM *dm, Vec *v, void **v1, void **p1, void **v2, void **p2, PetscErrorCode *ierr)
 82: {
 83:   *ierr = DMCompositeRestoreAccess(*dm, *v, (Vec *)v1, 0, (Vec *)v2, 0);
 84: }

 86: PETSC_EXTERN void dmcompositegetlocalvectors4_(DM *dm, void **v1, void **p1, void **v2, void **p2, PetscErrorCode *ierr)
 87: {
 88:   Vec *vv1 = (Vec *)v1, *vv2 = (Vec *)v2;
 89:   *ierr = DMCompositeGetLocalVectors(*dm, vv1, (PetscScalar *)p1, vv2, (PetscScalar *)p2);
 90: }

 92: PETSC_EXTERN void dmcompositerestorelocalvectors4_(DM *dm, void **v1, void **p1, void **v2, void **p2, PetscErrorCode *ierr)
 93: {
 94:   Vec *vv1 = (Vec *)v1, *vv2 = (Vec *)v2;
 95:   *ierr = DMCompositeRestoreLocalVectors(*dm, vv1, (PetscScalar *)p1, vv2, (PetscScalar *)p2);
 96: }

 98: PETSC_EXTERN void dmcompositegetglobaliss_(DM *dm, IS *iss, PetscErrorCode *ierr)
 99: {
100:   IS      *ais;
101:   PetscInt i, ndm;
102:   *ierr = DMCompositeGetGlobalISs(*dm, &ais);
103:   if (*ierr) return;
104:   *ierr = DMCompositeGetNumberDM(*dm, &ndm);
105:   if (*ierr) return;
106:   for (i = 0; i < ndm; i++) iss[i] = ais[i];
107:   *ierr = PetscFree(ais);
108: }

110: PETSC_EXTERN void dmcompositegetlocaliss_(DM *dm, IS *iss, PetscErrorCode *ierr)
111: {
112:   IS      *ais;
113:   PetscInt i, ndm;
114:   *ierr = DMCompositeGetLocalISs(*dm, &ais);
115:   if (*ierr) return;
116:   *ierr = DMCompositeGetNumberDM(*dm, &ndm);
117:   if (*ierr) return;
118:   for (i = 0; i < ndm; i++) iss[i] = ais[i];
119:   *ierr = PetscFree(ais);
120: }

122: PETSC_EXTERN void dmcompositegetaccessarray_(DM *dm, Vec *gvec, PetscInt *n, const PetscInt *wanted, Vec *vecs, PetscErrorCode *ierr)
123: {
124:   CHKFORTRANNULLINTEGER(wanted);
125:   *ierr = DMCompositeGetAccessArray(*dm, *gvec, *n, wanted, vecs);
126: }

128: PETSC_EXTERN void dmcompositerestoreaccessarray_(DM *dm, Vec *gvec, PetscInt *n, const PetscInt *wanted, Vec *vecs, PetscErrorCode *ierr)
129: {
130:   CHKFORTRANNULLINTEGER(wanted);
131:   *ierr = DMCompositeRestoreAccessArray(*dm, *gvec, *n, wanted, vecs);
132: }

134: PETSC_EXTERN void dmcompositegetlocalaccessarray_(DM *dm, Vec *lvec, PetscInt *n, const PetscInt *wanted, Vec *vecs, PetscErrorCode *ierr)
135: {
136:   CHKFORTRANNULLINTEGER(wanted);
137:   *ierr = DMCompositeGetLocalAccessArray(*dm, *lvec, *n, wanted, vecs);
138: }

140: PETSC_EXTERN void dmcompositerestorelocalaccessarray_(DM *dm, Vec *lvec, PetscInt *n, const PetscInt *wanted, Vec *vecs, PetscErrorCode *ierr)
141: {
142:   CHKFORTRANNULLINTEGER(wanted);
143:   *ierr = DMCompositeRestoreLocalAccessArray(*dm, *lvec, *n, wanted, vecs);
144: }