1*832676f5SBarry Smith #ifdef PETSC_RCS_HEADER 2*832676f5SBarry Smith static char vcid[] = "$Id: PetscVecNorm.c,v 1.1 1997/07/08 22:22:04 bsmith Exp bsmith $"; 34fcfa849SBarry Smith #endif 44fcfa849SBarry Smith 5*832676f5SBarry Smith #include "vec.h" 64fcfa849SBarry Smith 74fcfa849SBarry Smith int main( int argc, char **argv) 84fcfa849SBarry Smith { 9*832676f5SBarry Smith Vec x; 10*832676f5SBarry Smith double norm; 11*832676f5SBarry Smith PLogDouble t1,t2; 12*832676f5SBarry Smith int ierr,n = 10000,flg; 134fcfa849SBarry Smith 144fcfa849SBarry Smith PetscInitialize(&argc, &argv,0,0); 15*832676f5SBarry Smith ierr = OptionsGetInt(PETSC_NULL,"-n",&n,&flg); CHKERRA(ierr); 164fcfa849SBarry Smith 17*832676f5SBarry Smith ierr = VecCreate(PETSC_COMM_SELF,n,&x); CHKERRA(ierr); 18*832676f5SBarry Smith 19*832676f5SBarry Smith /* To take care of paging effects */ 20*832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 21*832676f5SBarry Smith 22*832676f5SBarry Smith t1 = PetscGetTime(); 23*832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 24*832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 25*832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 26*832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 27*832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 28*832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 29*832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 30*832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 31*832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 32*832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 33*832676f5SBarry Smith t2 = PetscGetTime(); 34*832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 354fcfa849SBarry Smith 364fcfa849SBarry Smith fprintf(stderr,"%s : \n","PetscMemcpy"); 37*832676f5SBarry Smith fprintf(stderr," Time %g\n",t2-t1); 384fcfa849SBarry Smith 394fcfa849SBarry Smith PetscFinalize(); 404fcfa849SBarry Smith return 0; 414fcfa849SBarry Smith } 42