1*35d8aa7fSBarry Smith /*$Id: PetscMemzero.c,v 1.14 2000/01/11 21:03:44 bsmith Exp bsmith $*/ 2d8e9fea7SSatish Balay 3b0878937SSatish Balay #include "petsc.h" 4b0878937SSatish Balay 55a655dc6SBarry Smith #undef __FUNC__ 65a655dc6SBarry Smith #define __FUNC__ "main" 7b0878937SSatish Balay int main(int argc,char **argv) 8b0878937SSatish Balay { 947794344SBarry Smith PLogDouble x,y,z; 107fb9f68cSSatish Balay Scalar A[10000]; 11d3093643SSatish Balay int ierr; 12b0878937SSatish Balay 1377c4ece6SBarry Smith PetscInitialize(&argc,&argv,0,0); 14b0878937SSatish Balay /* To take care of paging effects */ 15549d3d68SSatish Balay ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 16d3093643SSatish Balay ierr = PetscGetTime(&x);CHKERRA(ierr); 17b0878937SSatish Balay 18d3093643SSatish Balay ierr = PetscGetTime(&x);CHKERRA(ierr); 19549d3d68SSatish Balay ierr = PetscMemzero(A,sizeof(Scalar)*10000);CHKERRA(ierr); 20549d3d68SSatish Balay ierr = PetscMemzero(A,sizeof(Scalar)*10000);CHKERRA(ierr); 21549d3d68SSatish Balay ierr = PetscMemzero(A,sizeof(Scalar)*10000);CHKERRA(ierr); 22549d3d68SSatish Balay ierr = PetscMemzero(A,sizeof(Scalar)*10000);CHKERRA(ierr); 23549d3d68SSatish Balay ierr = PetscMemzero(A,sizeof(Scalar)*10000);CHKERRA(ierr); 24549d3d68SSatish Balay ierr = PetscMemzero(A,sizeof(Scalar)*10000);CHKERRA(ierr); 25549d3d68SSatish Balay ierr = PetscMemzero(A,sizeof(Scalar)*10000);CHKERRA(ierr); 26549d3d68SSatish Balay ierr = PetscMemzero(A,sizeof(Scalar)*10000);CHKERRA(ierr); 27549d3d68SSatish Balay ierr = PetscMemzero(A,sizeof(Scalar)*10000);CHKERRA(ierr); 28549d3d68SSatish Balay ierr = PetscMemzero(A,sizeof(Scalar)*10000);CHKERRA(ierr);, 29d3093643SSatish Balay ierr = PetscGetTime(&y);CHKERRA(ierr); 30549d3d68SSatish Balay ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 31549d3d68SSatish Balay ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 32549d3d68SSatish Balay ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 33549d3d68SSatish Balay ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 34549d3d68SSatish Balay ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 35549d3d68SSatish Balay ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 36549d3d68SSatish Balay ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 37549d3d68SSatish Balay ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 38549d3d68SSatish Balay ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 39549d3d68SSatish Balay ierr = PetscMemzero(A,sizeof(Scalar)*0);CHKERRA(ierr); 40d3093643SSatish Balay ierr = PetscGetTime(&z);CHKERRA(ierr); 41b0878937SSatish Balay 42*35d8aa7fSBarry Smith fprintf(stdout,"%s : \n","PetscMemzero"); 43*35d8aa7fSBarry Smith fprintf(stdout," %-11s : %e sec\n","Latency",(z-y)/10.0); 44*35d8aa7fSBarry Smith fprintf(stdout," %-11s : %e sec\n","Per Scalar",(2*y-x-z)/100000.0); 45b0878937SSatish Balay 46b0878937SSatish Balay PetscFinalize(); 473a40ed3dSBarry Smith PetscFunctionReturn(0); 48b0878937SSatish Balay } 49