Actual source code: PetscMemcmp.c
1: /*$Id: PetscMemcmp.c,v 1.23 2001/08/29 20:59:31 balay Exp $*/
3: #include petsc.h
5: int main(int argc,char **argv)
6: {
7: PetscLogDouble x,y,z;
8: PetscScalar A[10000],B[10000];
9: int i,ierr;
10: PetscTruth flg;
12: PetscInitialize(&argc,&argv,0,0);
14: for (i=0; i<10000; i++) {
15: A[i] = i%61897;
16: B[i] = i%61897;
17: }
18: /* To take care of paging effects */
19: PetscMemcmp(A,B,sizeof(PetscScalar)*0,&flg);
20: PetscGetTime(&x);
22: PetscGetTime(&x);
23: PetscMemcmp(A,B,sizeof(PetscScalar)*10000,&flg);
24: PetscMemcmp(A,B,sizeof(PetscScalar)*10000,&flg);
25: PetscMemcmp(A,B,sizeof(PetscScalar)*10000,&flg);
26: PetscMemcmp(A,B,sizeof(PetscScalar)*10000,&flg);
27: PetscMemcmp(A,B,sizeof(PetscScalar)*10000,&flg);
28: PetscMemcmp(A,B,sizeof(PetscScalar)*10000,&flg);
29: PetscMemcmp(A,B,sizeof(PetscScalar)*10000,&flg);
30: PetscMemcmp(A,B,sizeof(PetscScalar)*10000,&flg);
31: PetscMemcmp(A,B,sizeof(PetscScalar)*10000,&flg);
32: PetscMemcmp(A,B,sizeof(PetscScalar)*10000,&flg);
33: PetscGetTime(&y);
34: PetscMemcmp(A,B,sizeof(PetscScalar)*0,&flg);
35: PetscMemcmp(A,B,sizeof(PetscScalar)*0,&flg);
36: PetscMemcmp(A,B,sizeof(PetscScalar)*0,&flg);
37: PetscMemcmp(A,B,sizeof(PetscScalar)*0,&flg);
38: PetscMemcmp(A,B,sizeof(PetscScalar)*0,&flg);
39: PetscMemcmp(A,B,sizeof(PetscScalar)*0,&flg);
40: PetscMemcmp(A,B,sizeof(PetscScalar)*0,&flg);
41: PetscMemcmp(A,B,sizeof(PetscScalar)*0,&flg);
42: PetscMemcmp(A,B,sizeof(PetscScalar)*0,&flg);
43: PetscMemcmp(A,B,sizeof(PetscScalar)*0,&flg);
44: PetscGetTime(&z);
46: fprintf(stdout,"%s : n","PetscMemcmp");
47: fprintf(stdout," %-15s : %e secn","Latency",(z-y)/10.0);
48: fprintf(stdout," %-15s : %e secn","Per PetscScalar",(2*y-x-z)/100000);
50: PetscFinalize();
51: return(0);
52: }