PETSC_EXTERN PetscErrorCode PetscDLLibraryRegister_petscsys(void) #endif { PetscErrorCode ierr; PetscFunctionBegin; /* If we got here then PETSc was properly loaded */ ierr = PetscSysInitializePackage(); CHKERRQ(ierr); ierr = PetscDrawInitializePackage(); CHKERRQ(ierr); ierr = PetscViewerInitializePackage(); CHKERRQ(ierr); ierr = PetscRandomInitializePackage(); CHKERRQ(ierr); #if defined(PETSC_USE_SINGLE_LIBRARY) ierr = PetscDLLibraryRegister_petscvec(); CHKERRQ(ierr); ierr = PetscDLLibraryRegister_petscmat(); CHKERRQ(ierr); ierr = PetscDLLibraryRegister_petscdm(); CHKERRQ(ierr); ierr = PetscDLLibraryRegister_petscksp(); CHKERRQ(ierr); ierr = PetscDLLibraryRegister_petscsnes(); CHKERRQ(ierr); ierr = PetscDLLibraryRegister_petscts(); CHKERRQ(ierr); #endif PetscFunctionReturn(0); }
/*@ PetscViewerCreate - Creates a viewing context Collective on MPI_Comm Input Parameter: . comm - MPI communicator Output Parameter: . inviewer - location to put the PetscViewer context Level: advanced Concepts: graphics^creating PetscViewer Concepts: file input/output^creating PetscViewer Concepts: sockets^creating PetscViewer .seealso: PetscViewerDestroy(), PetscViewerSetType(), PetscViewerType @*/ PetscErrorCode PetscViewerCreate(MPI_Comm comm,PetscViewer *inviewer) { PetscViewer viewer; PetscErrorCode ierr; PetscFunctionBegin; *inviewer = 0; ierr = PetscViewerInitializePackage();CHKERRQ(ierr); ierr = PetscHeaderCreate(viewer,PETSC_VIEWER_CLASSID,"PetscViewer","PetscViewer","Viewer",comm,PetscViewerDestroy,NULL);CHKERRQ(ierr); *inviewer = viewer; viewer->data = 0; PetscFunctionReturn(0); }