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