1 #ifdef PETSC_RCS_HEADER 2 static char vcid[] = "$Id: PetscMemcpy.c,v 1.10 1998/03/31 23:34:02 balay Exp $"; 3 #endif 4 5 #include "petsc.h" 6 7 int main( int argc, char **argv) 8 { 9 PLogDouble x, y, z; 10 int i,ierr; 11 Scalar *A, *B; 12 13 PetscInitialize(&argc, &argv,0,0); 14 15 A = (Scalar *) PetscMalloc(8000000*sizeof(Scalar)); 16 B = (Scalar *) PetscMalloc(8000000*sizeof(Scalar)); 17 18 for (i=0; i<8000000; i++) { 19 A[i] = i%61897; 20 B[i] = i%61897; 21 } 22 /* To take care of paging effects */ 23 PetscMemcpy(A,B,sizeof(Scalar)*0); 24 ierr = PetscGetTime(&x); CHKERRA(ierr); 25 26 ierr = PetscGetTime(&x); CHKERRA(ierr); 27 /* 28 PetscMemcpy(A,B,sizeof(Scalar)*8000000); 29 PetscMemcpy(A,B,sizeof(Scalar)*8000000); 30 PetscMemcpy(A,B,sizeof(Scalar)*8000000); 31 PetscMemcpy(A,B,sizeof(Scalar)*8000000); 32 PetscMemcpy(A,B,sizeof(Scalar)*8000000); 33 PetscMemcpy(A,B,sizeof(Scalar)*8000000); 34 PetscMemcpy(A,B,sizeof(Scalar)*8000000); 35 PetscMemcpy(A,B,sizeof(Scalar)*8000000); 36 PetscMemcpy(A,B,sizeof(Scalar)*8000000); 37 PetscMemcpy(A,B,sizeof(Scalar)*8000000); */ 38 { int j; 39 for (j = 0; j<10; j++ ) { 40 for ( i=0; i<8000000; i++) { 41 B[i] = A[i]; 42 } 43 }} 44 45 ierr = PetscGetTime(&y); CHKERRA(ierr); 46 PetscMemcpy(A,B,sizeof(Scalar)*0); 47 PetscMemcpy(A,B,sizeof(Scalar)*0); 48 PetscMemcpy(A,B,sizeof(Scalar)*0); 49 PetscMemcpy(A,B,sizeof(Scalar)*0); 50 PetscMemcpy(A,B,sizeof(Scalar)*0); 51 PetscMemcpy(A,B,sizeof(Scalar)*0); 52 PetscMemcpy(A,B,sizeof(Scalar)*0); 53 PetscMemcpy(A,B,sizeof(Scalar)*0); 54 PetscMemcpy(A,B,sizeof(Scalar)*0); 55 PetscMemcpy(A,B,sizeof(Scalar)*0); 56 ierr = PetscGetTime(&z); CHKERRA(ierr); 57 58 fprintf(stderr,"%s : \n","PetscMemcpy"); 59 fprintf(stderr," %-11s : %e MB/s\n","Bandwidth",10.0*8*8/(y-x)); 60 fprintf(stderr," %-11s : %e sec\n","Latency",(z-y)/10.0); 61 fprintf(stderr," %-11s : %e sec\n","Per Scalar",(2*y-x-z)/8000000.0); 62 63 PetscFinalize(); 64 PetscFunctionReturn(0); 65 } 66