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 ierr = PetscViewerCreate(PETSC_COMM_WORLD, &viewer);CHKERRQ(ierr); 18 ierr = PetscViewerSetType(viewer, PETSCVIEWERASCII);CHKERRQ(ierr); 19 ierr = PetscViewerFileSetMode(viewer, FILE_MODE_APPEND);CHKERRQ(ierr); 20 ierr = PetscViewerFileSetName(viewer, "test.txt");CHKERRQ(ierr); 21 for (i = 0; i < 10; ++i) { 22 ierr = PetscViewerASCIIPrintf(viewer, "test line %d\n", i);CHKERRQ(ierr); 23 } 24 ierr = PetscViewerDestroy(&viewer);CHKERRQ(ierr); 25 ierr = PetscFinalize(); 26 return ierr; 27 } 28 29 /*TEST 30 31 test: 32 33 TEST*/ 34