Actual source code: zao.c
2: #include src/fortran/custom/zpetsc.h
3: #include petscao.h
5: #ifdef PETSC_HAVE_FORTRAN_CAPS
6: #define aocreatebasic_ AOCREATEBASIC
7: #define aocreatebasicis_ AOCREATEBASICIS
8: #define aoview_ AOVIEW
9: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
10: #define aocreatebasic_ aocreatebasic
11: #define aocreatebasicis_ aocreatebasicis
12: #define aoview_ aoview
13: #endif
17: void PETSC_STDCALL aoview_(AO *ao,PetscViewer *viewer, PetscErrorCode *ierr)
18: {
19: PetscViewer v;
20: PetscPatchDefaultViewers_Fortran(viewer,v);
21: *AOView(*ao,v);
22: }
24: void PETSC_STDCALL aocreatebasic_(MPI_Comm *comm,PetscInt *napp,PetscInt *myapp,PetscInt *mypetsc,AO *aoout,PetscErrorCode *ierr)
25: {
26: CHKFORTRANNULLINTEGER(myapp);
27: CHKFORTRANNULLINTEGER(mypetsc);
28: *AOCreateBasic((MPI_Comm)PetscToPointerComm(*comm),*napp,myapp,mypetsc,aoout);
29: }
31: void PETSC_STDCALL aocreatebasicis_(IS *isapp,IS *ispetsc,AO *aoout,PetscErrorCode *ierr)
32: {
33: CHKFORTRANNULLOBJECT(aoout);
34: *AOCreateBasicIS(*isapp,*ispetsc,aoout);
35: }