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: }