Actual source code: PetscMemzero.c

  1: /*$Id: PetscMemzero.c,v 1.23 2001/08/29 20:59:28 balay Exp $*/

 3:  #include petsc.h

  5: int main(int argc,char **argv)
  6: {
  7:   PetscLogDouble x,y,z;
  8:   PetscScalar    A[10000];
  9:   int            ierr;

 11:   PetscInitialize(&argc,&argv,0,0);
 12:   /* To take care of paging effects */
 13:   PetscMemzero(A,sizeof(PetscScalar)*0);
 14:   PetscGetTime(&x);

 16:   PetscGetTime(&x);
 17:   PetscMemzero(A,sizeof(PetscScalar)*10000);
 18:   PetscMemzero(A,sizeof(PetscScalar)*10000);
 19:   PetscMemzero(A,sizeof(PetscScalar)*10000);
 20:   PetscMemzero(A,sizeof(PetscScalar)*10000);
 21:   PetscMemzero(A,sizeof(PetscScalar)*10000);
 22:   PetscMemzero(A,sizeof(PetscScalar)*10000);
 23:   PetscMemzero(A,sizeof(PetscScalar)*10000);
 24:   PetscMemzero(A,sizeof(PetscScalar)*10000);
 25:   PetscMemzero(A,sizeof(PetscScalar)*10000);
 26:   PetscMemzero(A,sizeof(PetscScalar)*10000);
 27:   PetscGetTime(&y);
 28:   PetscMemzero(A,sizeof(PetscScalar)*0);
 29:   PetscMemzero(A,sizeof(PetscScalar)*0);
 30:   PetscMemzero(A,sizeof(PetscScalar)*0);
 31:   PetscMemzero(A,sizeof(PetscScalar)*0);
 32:   PetscMemzero(A,sizeof(PetscScalar)*0);
 33:   PetscMemzero(A,sizeof(PetscScalar)*0);
 34:   PetscMemzero(A,sizeof(PetscScalar)*0);
 35:   PetscMemzero(A,sizeof(PetscScalar)*0);
 36:   PetscMemzero(A,sizeof(PetscScalar)*0);
 37:   PetscMemzero(A,sizeof(PetscScalar)*0);
 38:   PetscGetTime(&z);

 40:   fprintf(stdout,"%s : n","PetscMemzero");
 41:   fprintf(stdout,"    %-15s : %e secn","Latency",(z-y)/10.0);
 42:   fprintf(stdout,"    %-15s : %e secn","Per PetscScalar",(2*y-x-z)/100000.0);

 44:   PetscFinalize();
 45:   return(0);
 46: }