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