1 #ifdef PETSC_RCS_HEADER 2 static char vcid[] = "$Id: PetscMemzero.c,v 1.11 1999/03/19 21:24:35 bsmith Exp balay $"; 3 #endif 4 5 #include "petsc.h" 6 7 #undef __FUNC__ 8 #define __FUNC__ "main" 9 int main( int argc, char **argv) 10 { 11 PLogDouble x, y, z; 12 Scalar A[10000]; 13 int ierr; 14 15 PetscInitialize(&argc, &argv,0,0); 16 /* To take care of paging effects */ 17 ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 18 ierr = PetscGetTime(&x);CHKERRA(ierr); 19 20 ierr = PetscGetTime(&x);CHKERRA(ierr); 21 ierr = PetscMemzero(A,sizeof(Scalar)*10000);CHKERRA(ierr); 22 ierr = PetscMemzero(A,sizeof(Scalar)*10000);CHKERRA(ierr); 23 ierr = PetscMemzero(A,sizeof(Scalar)*10000);CHKERRA(ierr); 24 ierr = PetscMemzero(A,sizeof(Scalar)*10000);CHKERRA(ierr); 25 ierr = PetscMemzero(A,sizeof(Scalar)*10000);CHKERRA(ierr); 26 ierr = PetscMemzero(A,sizeof(Scalar)*10000);CHKERRA(ierr); 27 ierr = PetscMemzero(A,sizeof(Scalar)*10000);CHKERRA(ierr); 28 ierr = PetscMemzero(A,sizeof(Scalar)*10000);CHKERRA(ierr); 29 ierr = PetscMemzero(A,sizeof(Scalar)*10000);CHKERRA(ierr); 30 ierr = PetscMemzero(A,sizeof(Scalar)*10000);CHKERRA(ierr);, 31 ierr = PetscGetTime(&y);CHKERRA(ierr); 32 ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 33 ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 34 ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 35 ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 36 ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 37 ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 38 ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 39 ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 40 ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 41 ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 42 ierr = PetscGetTime(&z);CHKERRA(ierr); 43 44 fprintf(stderr,"%s : \n","PetscMemzero"); 45 fprintf(stderr," %-11s : %e sec\n","Latency",(z-y)/10.0); 46 fprintf(stderr," %-11s : %e sec\n","Per Scalar",(2*y-x-z)/100000.0); 47 48 PetscFinalize(); 49 PetscFunctionReturn(0); 50 } 51