173f4d377SMatthew Knepley /*$Id: PetscVecNorm.c,v 1.16 2001/08/29 20:59:36 balay Exp $*/ 24fcfa849SBarry Smith 3e090d566SSatish Balay #include "petscvec.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; 10832676f5SBarry Smith double norm; 11b0a32e0cSBarry Smith PetscLogDouble t1,t2; 12f1af5d2fSBarry Smith int ierr,n = 10000; 134fcfa849SBarry Smith 144fcfa849SBarry Smith PetscInitialize(&argc,&argv,0,0); 15ac355199SBarry Smith ierr = PetscOptionsGetInt(PETSC_NULL,"-n",&n,PETSC_NULL);CHKERRQ(ierr); 164fcfa849SBarry Smith 17*5d25a148Spetsc ierr = VecCreate(PETSC_COMM_SELF,&x);CHKERRQ(ierr); 18*5d25a148Spetsc ierr = VecSetSizes(x,n,n);CHKERRQ(ierr); 19*5d25a148Spetsc ierr = VecSetFromOptions(x);CHKERRQ(ierr); 20832676f5SBarry Smith 21*5d25a148Spetsc PreLoadBegin(PETSC_TRUE,"VecNorm"); 22ac355199SBarry Smith ierr = PetscGetTime(&t1);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); 32ac355199SBarry Smith ierr = VecNorm(x,NORM_2,&norm);CHKERRQ(ierr); 33*5d25a148Spetsc PreLoadEnd(); 34ac355199SBarry Smith ierr = PetscGetTime(&t2);CHKERRQ(ierr); 35*5d25a148Spetsc 364fcfa849SBarry Smith 37b4d8b9abSSatish Balay fprintf(stdout,"%s : \n","PetscMemcpy"); 38b4d8b9abSSatish Balay fprintf(stdout," Time %g\n",t2-t1); 394fcfa849SBarry Smith 402b7fea2aSSatish Balay ierr = PetscFinalize();CHKERRQ(ierr); 413a40ed3dSBarry Smith PetscFunctionReturn(0); 424fcfa849SBarry Smith } 43