xref: /petsc/src/sys/classes/viewer/tutorials/ex1.c (revision 48a46eb9bd028bec07ec0f396b1a3abb43f14558) !
1c4762a1bSJed Brown 
2c4762a1bSJed Brown static char help[] = "Appends to an ASCII file.\n\n";
3c4762a1bSJed Brown 
4c4762a1bSJed Brown #include <petscviewer.h>
5c4762a1bSJed Brown 
69371c9d4SSatish 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*48a46eb9SPierre Jolivet   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