1d8e9fea7SSatish Balay 2c6db04a5SJed Brown #include <petscsys.h> 38563dfccSBarry Smith #include <petsctime.h> 4b0878937SSatish Balay 5b0878937SSatish Balay int main(int argc,char **argv) 6b0878937SSatish Balay { 7b0a32e0cSBarry Smith PetscLogDouble x,y,z; 8ea709b57SSatish Balay PetscScalar A[10000]; 9a438ae71SBarry Smith PetscErrorCode ierr; 10b0878937SSatish Balay 11a438ae71SBarry Smith ierr = PetscInitialize(&argc,&argv,0,0);if (ierr) return ierr; 12b0878937SSatish Balay /* To take care of paging effects */ 13*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(A,sizeof(PetscScalar)*0)); 14*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscTime(&x)); 15b0878937SSatish Balay 16*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscTime(&x)); 17*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(A,sizeof(PetscScalar)*10000)); 18*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(A,sizeof(PetscScalar)*10000)); 19*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(A,sizeof(PetscScalar)*10000)); 20*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(A,sizeof(PetscScalar)*10000)); 21*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(A,sizeof(PetscScalar)*10000)); 22*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(A,sizeof(PetscScalar)*10000)); 23*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(A,sizeof(PetscScalar)*10000)); 24*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(A,sizeof(PetscScalar)*10000)); 25*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(A,sizeof(PetscScalar)*10000)); 26*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(A,sizeof(PetscScalar)*10000)); 27*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscTime(&y)); 28*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(A,sizeof(PetscScalar)*0)); 29*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(A,sizeof(PetscScalar)*0)); 30*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(A,sizeof(PetscScalar)*0)); 31*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(A,sizeof(PetscScalar)*0)); 32*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(A,sizeof(PetscScalar)*0)); 33*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(A,sizeof(PetscScalar)*0)); 34*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(A,sizeof(PetscScalar)*0)); 35*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(A,sizeof(PetscScalar)*0)); 36*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(A,sizeof(PetscScalar)*0)); 37*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscMemzero(A,sizeof(PetscScalar)*0)); 38*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscTime(&z)); 39b0878937SSatish Balay 4035d8aa7fSBarry Smith fprintf(stdout,"%s : \n","PetscMemzero"); 41b4d8b9abSSatish Balay fprintf(stdout," %-15s : %e sec\n","Latency",(z-y)/10.0); 42b4d8b9abSSatish Balay fprintf(stdout," %-15s : %e sec\n","Per PetscScalar",(2*y-x-z)/100000.0); 43b0878937SSatish Balay 44f3fe499bSBarry Smith ierr = PetscFinalize(); 4526f47effSBarry Smith return ierr; 46b0878937SSatish Balay } 47