1 #include "stdio.h" 2 #include "petsc.h" 3 4 int main( int argc, char **argv) 5 { 6 double x, y,z; 7 int A[10000]; 8 9 PetscInitialize(&argc, &argv,0,0,0); 10 /* To take care of paging effects */ 11 PetscMemzero(A,sizeof(int)*10000); 12 x = PetscGetTime(); 13 14 x = PetscGetTime(); 15 PetscMemzero(A,sizeof(int)*10000); 16 PetscMemzero(A,sizeof(int)*10000); 17 PetscMemzero(A,sizeof(int)*10000); 18 PetscMemzero(A,sizeof(int)*10000); 19 PetscMemzero(A,sizeof(int)*10000); 20 PetscMemzero(A,sizeof(int)*10000); 21 PetscMemzero(A,sizeof(int)*10000); 22 PetscMemzero(A,sizeof(int)*10000); 23 PetscMemzero(A,sizeof(int)*10000); 24 PetscMemzero(A,sizeof(int)*10000); 25 y = PetscGetTime(); 26 PetscMemzero(A,sizeof(int)*0); 27 PetscMemzero(A,sizeof(int)*0); 28 PetscMemzero(A,sizeof(int)*0); 29 PetscMemzero(A,sizeof(int)*0); 30 PetscMemzero(A,sizeof(int)*0); 31 PetscMemzero(A,sizeof(int)*0); 32 PetscMemzero(A,sizeof(int)*0); 33 PetscMemzero(A,sizeof(int)*0); 34 PetscMemzero(A,sizeof(int)*0); 35 PetscMemzero(A,sizeof(int)*0); 36 z = PetscGetTime(); 37 38 fprintf(stderr,"%s : \n","PetscMemzero"); 39 fprintf(stderr," %-11s : %e sec\n","Latency",(z-y)/10.0); 40 fprintf(stderr," %-11s : %e sec\n","Per byte",(2*y-x-z)/100000.0); 41 42 PetscFinalize(); 43 return 0; 44 } 45