14fcfa849SBarry Smith 2c6db04a5SJed Brown #include <petscvec.h> 38563dfccSBarry Smith #include <petsctime.h> 44fcfa849SBarry Smith 54a2ae208SSatish Balay #undef __FUNCT__ 64a2ae208SSatish Balay #define __FUNCT__ "main" 74fcfa849SBarry Smith int main(int argc,char **argv) 84fcfa849SBarry Smith { 9832676f5SBarry Smith Vec x; 105fb5fb77SSatish Balay PetscReal norm; 11b0a32e0cSBarry Smith PetscLogDouble t1,t2; 12*a438ae71SBarry Smith PetscErrorCode ierr; 13*a438ae71SBarry Smith PetscInt n = 10000; 144fcfa849SBarry Smith 15*a438ae71SBarry Smith ierr = PetscInitialize(&argc,&argv,0,0);if (ierr) return ierr; 16c5929fdfSBarry Smith ierr = PetscOptionsGetInt(NULL,NULL,"-n",&n,NULL);CHKERRQ(ierr); 174fcfa849SBarry Smith 185d25a148Spetsc ierr = VecCreate(PETSC_COMM_SELF,&x);CHKERRQ(ierr); 195d25a148Spetsc ierr = VecSetSizes(x,n,n);CHKERRQ(ierr); 205d25a148Spetsc ierr = VecSetFromOptions(x);CHKERRQ(ierr); 21832676f5SBarry Smith 22204a6943SJed Brown PetscPreLoadBegin(PETSC_TRUE,"VecNorm"); 238563dfccSBarry Smith ierr = PetscTime(&t1);CHKERRQ(ierr); 24ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 25ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 26ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 27ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 28ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 29ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 30ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 31ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 32ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 33ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 34204a6943SJed Brown PetscPreLoadEnd(); 358563dfccSBarry Smith ierr = PetscTime(&t2);CHKERRQ(ierr); 365fb5fb77SSatish Balay fprintf(stdout,"%s : \n","VecNorm"); 37b4d8b9abSSatish Balay fprintf(stdout," Time %g\n",t2-t1); 38f3fe499bSBarry Smith ierr = PetscFinalize(); 3926f47effSBarry Smith return ierr; 404fcfa849SBarry Smith } 41