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:   if (*napp) {
     27:     CHKFORTRANNULLINTEGER(myapp);
     28:     CHKFORTRANNULLINTEGER(mypetsc);
     29:   }
     30:   *AOCreateBasic((MPI_Comm)PetscToPointerComm(*comm),*napp,myapp,mypetsc,aoout);
     31: }

     33: void PETSC_STDCALL aocreatebasicis_(IS *isapp,IS *ispetsc,AO *aoout,PetscErrorCode *ierr)
     34: {
     35:   CHKFORTRANNULLOBJECT(aoout);
     36:   *AOCreateBasicIS(*isapp,*ispetsc,aoout);
     37: }