14fcfa849SBarry Smith 2e090d566SSatish Balay #include "petscvec.h" 34fcfa849SBarry Smith 44a2ae208SSatish Balay #undef __FUNCT__ 54a2ae208SSatish Balay #define __FUNCT__ "main" 64fcfa849SBarry Smith int main(int argc,char **argv) 74fcfa849SBarry Smith { 8832676f5SBarry Smith Vec x; 95fb5fb77SSatish Balay PetscReal norm; 10b0a32e0cSBarry Smith PetscLogDouble t1,t2; 11f1af5d2fSBarry Smith int ierr,n = 10000; 124fcfa849SBarry Smith 134fcfa849SBarry Smith PetscInitialize(&argc,&argv,0,0); 14ac355199SBarry Smith ierr = PetscOptionsGetInt(PETSC_NULL,"-n",&n,PETSC_NULL);CHKERRQ(ierr); 154fcfa849SBarry Smith 165d25a148Spetsc ierr = VecCreate(PETSC_COMM_SELF,&x);CHKERRQ(ierr); 175d25a148Spetsc ierr = VecSetSizes(x,n,n);CHKERRQ(ierr); 185d25a148Spetsc ierr = VecSetFromOptions(x);CHKERRQ(ierr); 19832676f5SBarry Smith 205d25a148Spetsc PreLoadBegin(PETSC_TRUE,"VecNorm"); 21ac355199SBarry Smith ierr = PetscGetTime(&t1);CHKERRQ(ierr); 22ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 23ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);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); 325d25a148Spetsc PreLoadEnd(); 33ac355199SBarry Smith ierr = PetscGetTime(&t2);CHKERRQ(ierr); 345d25a148Spetsc 354fcfa849SBarry Smith 365fb5fb77SSatish Balay fprintf(stdout,"%s : \n","VecNorm"); 37b4d8b9abSSatish Balay fprintf(stdout," Time %g\n",t2-t1); 384fcfa849SBarry Smith 39*f3fe499bSBarry Smith ierr = PetscFinalize(); 403a40ed3dSBarry Smith PetscFunctionReturn(0); 414fcfa849SBarry Smith } 42