1*ac355199SBarry Smith /*$Id: PetscVecNorm.c,v 1.12 2001/01/15 21:49:39 bsmith Exp bsmith $*/ 24fcfa849SBarry Smith 3e090d566SSatish Balay #include "petscvec.h" 44fcfa849SBarry Smith 55a655dc6SBarry Smith #undef __FUNC__ 65a655dc6SBarry Smith #define __FUNC__ "main" 74fcfa849SBarry Smith int main(int argc,char **argv) 84fcfa849SBarry Smith { 9832676f5SBarry Smith Vec x; 10832676f5SBarry Smith double norm; 11b0a32e0cSBarry Smith PetscLogDouble t1,t2; 12f1af5d2fSBarry Smith int ierr,n = 10000; 134fcfa849SBarry Smith 144fcfa849SBarry Smith PetscInitialize(&argc,&argv,0,0); 15*ac355199SBarry Smith ierr = PetscOptionsGetInt(PETSC_NULL,"-n",&n,PETSC_NULL);CHKERRQ(ierr); 164fcfa849SBarry Smith 17*ac355199SBarry Smith ierr = VecCreateSeq(PETSC_COMM_SELF,n,&x);CHKERRQ(ierr); 18832676f5SBarry Smith 19832676f5SBarry Smith /* To take care of paging effects */ 20*ac355199SBarry Smith ierr = PetscGetTime(&t1);CHKERRQ(ierr); 21*ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 22832676f5SBarry Smith 23*ac355199SBarry Smith ierr = PetscGetTime(&t1);CHKERRQ(ierr); 24*ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 25*ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 26*ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 27*ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 28*ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 29*ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 30*ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 31*ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 32*ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 33*ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 34*ac355199SBarry Smith ierr = PetscGetTime(&t2);CHKERRQ(ierr); 35*ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 364fcfa849SBarry Smith 374fcfa849SBarry Smith fprintf(stderr,"%s : \n","PetscMemcpy"); 38832676f5SBarry Smith fprintf(stderr," Time %g\n",t2-t1); 394fcfa849SBarry Smith 404fcfa849SBarry Smith PetscFinalize(); 413a40ed3dSBarry Smith PetscFunctionReturn(0); 424fcfa849SBarry Smith } 43