xref: /petsc/src/sys/classes/viewer/tutorials/ex1.c (revision 609caa7c8c030312b00807b4f015fd827bb80932)
1c4762a1bSJed Brown static char help[] = "Appends to an ASCII file.\n\n";
2c4762a1bSJed Brown 
3c4762a1bSJed Brown #include <petscviewer.h>
4c4762a1bSJed Brown 
main(int argc,char ** args)5d71ae5a4SJacob Faibussowitsch int main(int argc, char **args)
6d71ae5a4SJacob Faibussowitsch {
7c4762a1bSJed Brown   PetscViewer viewer;
8c4762a1bSJed Brown   PetscInt    i;
9c4762a1bSJed Brown 
10327415f7SBarry Smith   PetscFunctionBeginUser;
11c8025a54SPierre Jolivet   PetscCall(PetscInitialize(&argc, &args, NULL, 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"));
1648a46eb9SPierre 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:
25*3886731fSPierre Jolivet      output_file: output/empty.out
26c4762a1bSJed Brown 
27c4762a1bSJed Brown TEST*/
28