Actual source code: zao.c
1: /*$Id: zao.c,v 1.19 2001/04/30 15:03:46 bsmith Exp $*/
3: #include src/fortran/custom/zpetsc.h
4: #include petscao.h
6: #ifdef PETSC_HAVE_FORTRAN_CAPS
7: #define aocreatebasic_ AOCREATEBASIC
8: #define aocreatebasicis_ AOCREATEBASICIS
9: #define aoview_ AOVIEW
10: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
11: #define aocreatebasic_ aocreatebasic
12: #define aocreatebasicis_ aocreatebasicis
13: #define aoview_ aoview
14: #endif
16: EXTERN_C_BEGIN
18: void PETSC_STDCALL aoview_(AO *ao,PetscViewer *viewer, int *ierr)
19: {
20: PetscViewer v;
21: PetscPatchDefaultViewers_Fortran(viewer,v);
22: *AOView(*ao,v);
23: }
25: void PETSC_STDCALL aocreatebasic_(MPI_Comm *comm,int *napp,int *myapp,int *mypetsc,AO *aoout,int *ierr)
26: {
27: *AOCreateBasic((MPI_Comm)PetscToPointerComm(*comm),*napp,myapp,mypetsc,aoout);
28: }
30: void PETSC_STDCALL aocreatebasicis_(IS *isapp,IS *ispetsc,AO *aoout,int *ierr)
31: {
32: *AOCreateBasicIS(*isapp,*ispetsc,aoout);
33: }
35: EXTERN_C_END