xref: /petsc/src/sys/classes/viewer/tutorials/ex1.c (revision 5f80ce2ab25dff0f4601e710601cbbcecf323266)
1c4762a1bSJed Brown 
2c4762a1bSJed Brown static char help[] = "Appends to an ASCII file.\n\n";
3c4762a1bSJed Brown 
4c4762a1bSJed Brown /*T
5c4762a1bSJed Brown    Concepts: viewers^append
6c4762a1bSJed Brown T*/
7c4762a1bSJed Brown 
8c4762a1bSJed Brown #include <petscviewer.h>
9c4762a1bSJed Brown 
10c4762a1bSJed Brown int main(int argc,char **args)
11c4762a1bSJed Brown {
12c4762a1bSJed Brown   PetscViewer    viewer;
13c4762a1bSJed Brown   PetscInt       i;
14c4762a1bSJed Brown   PetscErrorCode ierr;
15c4762a1bSJed Brown 
16c4762a1bSJed Brown   ierr = PetscInitialize(&argc,&args,(char*)0,help);if (ierr) return ierr;
17*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscViewerCreate(PETSC_COMM_WORLD, &viewer));
18*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscViewerSetType(viewer, PETSCVIEWERASCII));
19*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscViewerFileSetMode(viewer, FILE_MODE_APPEND));
20*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscViewerFileSetName(viewer, "test.txt"));
21c4762a1bSJed Brown   for (i = 0; i < 10; ++i) {
22*5f80ce2aSJacob Faibussowitsch     CHKERRQ(PetscViewerASCIIPrintf(viewer, "test line %" PetscInt_FMT "\n", i));
23c4762a1bSJed Brown   }
24*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscViewerDestroy(&viewer));
25c4762a1bSJed Brown   ierr = PetscFinalize();
26c4762a1bSJed Brown   return ierr;
27c4762a1bSJed Brown }
28c4762a1bSJed Brown 
29c4762a1bSJed Brown /*TEST
30c4762a1bSJed Brown 
31c4762a1bSJed Brown    test:
32c4762a1bSJed Brown 
33c4762a1bSJed Brown TEST*/
34