147c6ae99SBarry Smith 2b45d2f2cSJed Brown #include <petsc-private/fortranimpl.h> 3c6db04a5SJed Brown #include <petscdmcomposite.h> 447c6ae99SBarry Smith 547c6ae99SBarry Smith #if defined(PETSC_HAVE_FORTRAN_CAPS) 647c6ae99SBarry Smith #define dmcompositegetentries1_ DMCOMPOSITEGETENTRIES1 747c6ae99SBarry Smith #define dmcompositegetentries2_ DMCOMPOSITEGETENTRIES2 847c6ae99SBarry Smith #define dmcompositegetentries3_ DMCOMPOSITEGETENTRIES3 947c6ae99SBarry Smith #define dmcompositegetentries4_ DMCOMPOSITEGETENTRIES4 1047c6ae99SBarry Smith #define dmcompositegetentries5_ DMCOMPOSITEGETENTRIES5 1147c6ae99SBarry Smith #define dmcompositecreate_ DMCOMPOSITECREATE 1247c6ae99SBarry Smith #define dmcompositeadddm_ DMCOMPOSITEADDDM 1347c6ae99SBarry Smith #define dmcompositedestroy_ DMCOMPOSITEDESTROY 1447c6ae99SBarry Smith #define dmcompositegetaccess4_ DMCOMPOSITEGETACCESS4 1547c6ae99SBarry Smith #define dmcompositescatter4_ DMCOMPOSITESCATTER4 1647c6ae99SBarry Smith #define dmcompositerestoreaccess4_ DMCOMPOSITERESTOREACCESS4 1747c6ae99SBarry Smith #define dmcompositegetlocalvectors4_ DMCOMPOSITEGETLOCALVECTORS4 1847c6ae99SBarry Smith #define dmcompositerestorelocalvectors4_ DMCOMPOSITERESTORELOCALVECTORS4 1947c6ae99SBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 2047c6ae99SBarry Smith #define dmcompositegetentries1_ dmcompositegetentries1 2147c6ae99SBarry Smith #define dmcompositegetentries2_ dmcompositegetentries2 2247c6ae99SBarry Smith #define dmcompositegetentries3_ dmcompositegetentries3 2347c6ae99SBarry Smith #define dmcompositegetentries4_ dmcompositegetentries4 2447c6ae99SBarry Smith #define dmcompositegetentries5_ dmcompositegetentries5 2547c6ae99SBarry Smith #define dmcompositecreate_ dmcompositecreate 2647c6ae99SBarry Smith #define dmcompositeadddm_ dmcompositeadddm 2747c6ae99SBarry Smith #define dmcompositedestroy_ dmcompositedestroy 2847c6ae99SBarry Smith #define dmcompositegetaccess4_ dmcompositegetaccess4 2947c6ae99SBarry Smith #define dmcompositescatter4_ dmcompositescatter4 3047c6ae99SBarry Smith #define dmcompositerestoreaccess4_ dmcompositerestoreaccess4 3147c6ae99SBarry Smith #define dmcompositegetlocalvectors4_ dmcompositegetlocalvectors4 3247c6ae99SBarry Smith #define dmcompositerestorelocalvectors4_ dmcompositerestorelocalvectors4 3347c6ae99SBarry Smith #endif 3447c6ae99SBarry Smith 3547c6ae99SBarry Smith EXTERN_C_BEGIN 3647c6ae99SBarry Smith 379a42bb27SBarry Smith void PETSC_STDCALL dmcompositegetentries1_(DM *dm,DM *da1,PetscErrorCode *ierr) 3847c6ae99SBarry Smith { 3947c6ae99SBarry Smith *ierr = DMCompositeGetEntries(*dm,da1); 4047c6ae99SBarry Smith } 4147c6ae99SBarry Smith 429a42bb27SBarry Smith void PETSC_STDCALL dmcompositegetentries2_(DM *dm,DM *da1,DM *da2,PetscErrorCode *ierr) 4347c6ae99SBarry Smith { 4447c6ae99SBarry Smith *ierr = DMCompositeGetEntries(*dm,da1,da2); 4547c6ae99SBarry Smith } 4647c6ae99SBarry Smith 479a42bb27SBarry Smith void PETSC_STDCALL dmcompositegetentries3_(DM *dm,DM *da1,DM *da2,DM *da3,PetscErrorCode *ierr) 4847c6ae99SBarry Smith { 4947c6ae99SBarry Smith *ierr = DMCompositeGetEntries(*dm,da1,da2,da3); 5047c6ae99SBarry Smith } 5147c6ae99SBarry Smith 529a42bb27SBarry Smith void PETSC_STDCALL dmcompositegetentries4_(DM *dm,DM *da1,DM *da2,DM *da3,DM *da4,PetscErrorCode *ierr) 5347c6ae99SBarry Smith { 5447c6ae99SBarry Smith *ierr = DMCompositeGetEntries(*dm,da1,da2,da3,da4); 5547c6ae99SBarry Smith } 5647c6ae99SBarry Smith 579a42bb27SBarry Smith void PETSC_STDCALL dmcompositegetentries5_(DM *dm,DM *da1,DM *da2,DM *da3,DM *da4,DM *da5,PetscErrorCode *ierr) 5847c6ae99SBarry Smith { 5947c6ae99SBarry Smith *ierr = DMCompositeGetEntries(*dm,da1,da2,da3,da4,da5); 6047c6ae99SBarry Smith } 6147c6ae99SBarry Smith 62*c30958fdSKarl Rupp void PETSC_STDCALL dmcompositecreate_(MPI_Fint * comm,DM *A, int *ierr ) 63*c30958fdSKarl Rupp { 6447c6ae99SBarry Smith *ierr = DMCompositeCreate(MPI_Comm_f2c( *(comm) ),A); 6547c6ae99SBarry Smith } 6647c6ae99SBarry Smith 6747c6ae99SBarry Smith void PETSC_STDCALL dmcompositeadddm_(DM *dm,DM *da,PetscErrorCode *ierr) 6847c6ae99SBarry Smith { 6947c6ae99SBarry Smith *ierr = DMCompositeAddDM(*dm,*da); 7047c6ae99SBarry Smith } 7147c6ae99SBarry Smith 7247c6ae99SBarry Smith void PETSC_STDCALL dmcompositedestroy_(DM *dm,PetscErrorCode *ierr) 7347c6ae99SBarry Smith { 74fcfd50ebSBarry Smith *ierr = DMDestroy(dm); 7547c6ae99SBarry Smith } 7647c6ae99SBarry Smith 7747c6ae99SBarry Smith void PETSC_STDCALL dmcompositegetaccess4_(DM *dm,Vec *v,void **v1,void **p1,void **v2,void **p2,PetscErrorCode *ierr) 7847c6ae99SBarry Smith { 7947c6ae99SBarry Smith Vec *vv1 = (Vec*)v1,*vv2 = (Vec*)v2; 8047c6ae99SBarry Smith *ierr = DMCompositeGetAccess(*dm,*v,vv1,(PetscScalar*)p1,vv2,(PetscScalar*)p2); 8147c6ae99SBarry Smith } 8247c6ae99SBarry Smith 8347c6ae99SBarry Smith void PETSC_STDCALL dmcompositescatter4_(DM *dm,Vec *v,void *v1,void *p1,void *v2,void *p2,PetscErrorCode *ierr) 8447c6ae99SBarry Smith { 8547c6ae99SBarry Smith Vec *vv1 = (Vec*)v1,*vv2 = (Vec*)v2; 8647c6ae99SBarry Smith *ierr = DMCompositeScatter(*dm,*v,*vv1,(PetscScalar*)p1,*vv2,(PetscScalar*)p2); 8747c6ae99SBarry Smith } 8847c6ae99SBarry Smith 8947c6ae99SBarry Smith void PETSC_STDCALL dmcompositerestoreaccess4_(DM *dm,Vec *v,void **v1,void **p1,void **v2,void **p2,PetscErrorCode *ierr) 9047c6ae99SBarry Smith { 9147c6ae99SBarry Smith *ierr = DMCompositeRestoreAccess(*dm,*v,(Vec*)v1,0,(Vec*)v2,0); 9247c6ae99SBarry Smith } 9347c6ae99SBarry Smith 9447c6ae99SBarry Smith void PETSC_STDCALL dmcompositegetlocalvectors4_(DM *dm,void **v1,void **p1,void **v2,void **p2,PetscErrorCode *ierr) 9547c6ae99SBarry Smith { 9647c6ae99SBarry Smith Vec *vv1 = (Vec*)v1,*vv2 = (Vec*)v2; 9747c6ae99SBarry Smith *ierr = DMCompositeGetLocalVectors(*dm,vv1,(PetscScalar*)p1,vv2,(PetscScalar*)p2); 9847c6ae99SBarry Smith } 9947c6ae99SBarry Smith 10047c6ae99SBarry Smith void PETSC_STDCALL dmcompositerestorelocalvectors4_(DM *dm,void **v1,void **p1,void **v2,void **p2,PetscErrorCode *ierr) 10147c6ae99SBarry Smith { 10247c6ae99SBarry Smith Vec *vv1 = (Vec*)v1,*vv2 = (Vec*)v2; 10347c6ae99SBarry Smith *ierr = DMCompositeRestoreLocalVectors(*dm,vv1,(PetscScalar*)p1,vv2,(PetscScalar*)p2); 10447c6ae99SBarry Smith } 10547c6ae99SBarry Smith 10647c6ae99SBarry Smith EXTERN_C_END 10747c6ae99SBarry Smith 108