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 PetscInt n = 10000; 114fcfa849SBarry Smith 12*b122ec5aSJacob Faibussowitsch CHKERRQ(PetscInitialize(&argc,&argv,0,0)); 135f80ce2aSJacob Faibussowitsch CHKERRQ(PetscOptionsGetInt(NULL,NULL,"-n",&n,NULL)); 144fcfa849SBarry Smith 155f80ce2aSJacob Faibussowitsch CHKERRQ(VecCreate(PETSC_COMM_SELF,&x)); 165f80ce2aSJacob Faibussowitsch CHKERRQ(VecSetSizes(x,n,n)); 175f80ce2aSJacob Faibussowitsch CHKERRQ(VecSetFromOptions(x)); 18832676f5SBarry Smith 19204a6943SJed Brown PetscPreLoadBegin(PETSC_TRUE,"VecNorm"); 205f80ce2aSJacob Faibussowitsch CHKERRQ(PetscTime(&t1)); 215f80ce2aSJacob Faibussowitsch CHKERRQ(VecNorm(x,NORM_2,&norm)); 225f80ce2aSJacob Faibussowitsch CHKERRQ(VecNorm(x,NORM_2,&norm)); 235f80ce2aSJacob Faibussowitsch CHKERRQ(VecNorm(x,NORM_2,&norm)); 245f80ce2aSJacob Faibussowitsch CHKERRQ(VecNorm(x,NORM_2,&norm)); 255f80ce2aSJacob Faibussowitsch CHKERRQ(VecNorm(x,NORM_2,&norm)); 265f80ce2aSJacob Faibussowitsch CHKERRQ(VecNorm(x,NORM_2,&norm)); 275f80ce2aSJacob Faibussowitsch CHKERRQ(VecNorm(x,NORM_2,&norm)); 285f80ce2aSJacob Faibussowitsch CHKERRQ(VecNorm(x,NORM_2,&norm)); 295f80ce2aSJacob Faibussowitsch CHKERRQ(VecNorm(x,NORM_2,&norm)); 305f80ce2aSJacob Faibussowitsch CHKERRQ(VecNorm(x,NORM_2,&norm)); 31204a6943SJed Brown PetscPreLoadEnd(); 325f80ce2aSJacob Faibussowitsch CHKERRQ(PetscTime(&t2)); 335fb5fb77SSatish Balay fprintf(stdout,"%s : \n","VecNorm"); 34b4d8b9abSSatish Balay fprintf(stdout," Time %g\n",t2-t1); 35*b122ec5aSJacob Faibussowitsch CHKERRQ(PetscFinalize()); 36*b122ec5aSJacob Faibussowitsch return 0; 374fcfa849SBarry Smith } 38