xref: /petsc/src/sys/classes/viewer/tutorials/ex1.c (revision 9371c9d470a9602b6d10a8bf50c9b2280a79e45a)
1c4762a1bSJed Brown 
2c4762a1bSJed Brown static char help[] = "Appends to an ASCII file.\n\n";
3c4762a1bSJed Brown 
4c4762a1bSJed Brown #include <petscviewer.h>
5c4762a1bSJed Brown 
6*9371c9d4SSatish Balay int main(int argc, char **args) {
7c4762a1bSJed Brown   PetscViewer viewer;
8c4762a1bSJed Brown   PetscInt    i;
9c4762a1bSJed Brown 
10327415f7SBarry Smith   PetscFunctionBeginUser;
119566063dSJacob Faibussowitsch   PetscCall(PetscInitialize(&argc, &args, (char *)0, help));
129566063dSJacob Faibussowitsch   PetscCall(PetscViewerCreate(PETSC_COMM_WORLD, &viewer));
139566063dSJacob Faibussowitsch   PetscCall(PetscViewerSetType(viewer, PETSCVIEWERASCII));
149566063dSJacob Faibussowitsch   PetscCall(PetscViewerFileSetMode(viewer, FILE_MODE_APPEND));
159566063dSJacob Faibussowitsch   PetscCall(PetscViewerFileSetName(viewer, "test.txt"));
16*9371c9d4SSatish Balay   for (i = 0; i < 10; ++i) { PetscCall(PetscViewerASCIIPrintf(viewer, "test line %" PetscInt_FMT "\n", i)); }
179566063dSJacob Faibussowitsch   PetscCall(PetscViewerDestroy(&viewer));
189566063dSJacob Faibussowitsch   PetscCall(PetscFinalize());
19b122ec5aSJacob Faibussowitsch   return 0;
20c4762a1bSJed Brown }
21c4762a1bSJed Brown 
22c4762a1bSJed Brown /*TEST
23c4762a1bSJed Brown 
24c4762a1bSJed Brown    test:
25c4762a1bSJed Brown 
26c4762a1bSJed Brown TEST*/
27