xref: /petsc/src/sys/classes/viewer/tutorials/ex1.c (revision b122ec5aa1bd4469eb4e0673542fb7de3f411254)
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 
15*b122ec5aSJacob Faibussowitsch   CHKERRQ(PetscInitialize(&argc,&args,(char*)0,help));
165f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscViewerCreate(PETSC_COMM_WORLD, &viewer));
175f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscViewerSetType(viewer, PETSCVIEWERASCII));
185f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscViewerFileSetMode(viewer, FILE_MODE_APPEND));
195f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscViewerFileSetName(viewer, "test.txt"));
20c4762a1bSJed Brown   for (i = 0; i < 10; ++i) {
215f80ce2aSJacob Faibussowitsch     CHKERRQ(PetscViewerASCIIPrintf(viewer, "test line %" PetscInt_FMT "\n", i));
22c4762a1bSJed Brown   }
235f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscViewerDestroy(&viewer));
24*b122ec5aSJacob Faibussowitsch   CHKERRQ(PetscFinalize());
25*b122ec5aSJacob Faibussowitsch   return 0;
26c4762a1bSJed Brown }
27c4762a1bSJed Brown 
28c4762a1bSJed Brown /*TEST
29c4762a1bSJed Brown 
30c4762a1bSJed Brown    test:
31c4762a1bSJed Brown 
32c4762a1bSJed Brown TEST*/
33