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);
}
