14fcfa849SBarry Smith 2c6db04a5SJed Brown #include <petscvec.h> 38563dfccSBarry Smith #include <petsctime.h> 44fcfa849SBarry Smith 54fcfa849SBarry Smith int main(int argc,char **argv) 64fcfa849SBarry Smith { 7832676f5SBarry Smith Vec x; 85fb5fb77SSatish Balay PetscReal norm; 9b0a32e0cSBarry Smith PetscLogDouble t1,t2; 10a438ae71SBarry Smith PetscErrorCode ierr; 11a438ae71SBarry Smith PetscInt n = 10000; 124fcfa849SBarry Smith 13a438ae71SBarry Smith ierr = PetscInitialize(&argc,&argv,0,0);if (ierr) return ierr; 14*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetInt(NULL,NULL,"-n",&n,NULL)); 154fcfa849SBarry Smith 16*5f80ce2aSJacob Faibussowitsch CHKERRQ(VecCreate(PETSC_COMM_SELF,&x)); 17*5f80ce2aSJacob Faibussowitsch CHKERRQ(VecSetSizes(x,n,n)); 18*5f80ce2aSJacob Faibussowitsch CHKERRQ(VecSetFromOptions(x)); 19832676f5SBarry Smith 20204a6943SJed Brown PetscPreLoadBegin(PETSC_TRUE,"VecNorm"); 21*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscTime(&t1)); 22*5f80ce2aSJacob Faibussowitsch CHKERRQ(VecNorm(x,NORM_2,&norm)); 23*5f80ce2aSJacob Faibussowitsch CHKERRQ(VecNorm(x,NORM_2,&norm)); 24*5f80ce2aSJacob Faibussowitsch CHKERRQ(VecNorm(x,NORM_2,&norm)); 25*5f80ce2aSJacob Faibussowitsch CHKERRQ(VecNorm(x,NORM_2,&norm)); 26*5f80ce2aSJacob Faibussowitsch CHKERRQ(VecNorm(x,NORM_2,&norm)); 27*5f80ce2aSJacob Faibussowitsch CHKERRQ(VecNorm(x,NORM_2,&norm)); 28*5f80ce2aSJacob Faibussowitsch CHKERRQ(VecNorm(x,NORM_2,&norm)); 29*5f80ce2aSJacob Faibussowitsch CHKERRQ(VecNorm(x,NORM_2,&norm)); 30*5f80ce2aSJacob Faibussowitsch CHKERRQ(VecNorm(x,NORM_2,&norm)); 31*5f80ce2aSJacob Faibussowitsch CHKERRQ(VecNorm(x,NORM_2,&norm)); 32204a6943SJed Brown PetscPreLoadEnd(); 33*5f80ce2aSJacob Faibussowitsch CHKERRQ(PetscTime(&t2)); 345fb5fb77SSatish Balay fprintf(stdout,"%s : \n","VecNorm"); 35b4d8b9abSSatish Balay fprintf(stdout," Time %g\n",t2-t1); 36f3fe499bSBarry Smith ierr = PetscFinalize(); 3726f47effSBarry Smith return ierr; 384fcfa849SBarry Smith } 39