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