1832676f5SBarry Smith #ifdef PETSC_RCS_HEADER 2*5a655dc6SBarry Smith static char vcid[] = "$Id: PetscVecNorm.c,v 1.5 1998/04/21 18:34:13 balay Exp bsmith $"; 34fcfa849SBarry Smith #endif 44fcfa849SBarry Smith 5832676f5SBarry Smith #include "vec.h" 64fcfa849SBarry Smith 7*5a655dc6SBarry Smith #undef __FUNC__ 8*5a655dc6SBarry Smith #define __FUNC__ "main" 94fcfa849SBarry Smith int main( int argc, char **argv) 104fcfa849SBarry Smith { 11832676f5SBarry Smith Vec x; 12832676f5SBarry Smith double norm; 13832676f5SBarry Smith PLogDouble t1,t2; 14832676f5SBarry Smith int ierr,n = 10000,flg; 154fcfa849SBarry Smith 164fcfa849SBarry Smith PetscInitialize(&argc, &argv,0,0); 17832676f5SBarry Smith ierr = OptionsGetInt(PETSC_NULL,"-n",&n,&flg); CHKERRA(ierr); 184fcfa849SBarry Smith 19522c5e43SBarry Smith ierr = VecCreateSeq(PETSC_COMM_SELF,n,&x); CHKERRA(ierr); 20832676f5SBarry Smith 21832676f5SBarry Smith /* To take care of paging effects */ 222f382f9bSSatish Balay ierr = PetscGetTime(&t1); CHKERRA(ierr); 23832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 24832676f5SBarry Smith 252f382f9bSSatish Balay ierr = PetscGetTime(&t1); CHKERRA(ierr); 26832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 27832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 28832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 29832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 30832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 31832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 32832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 33832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 34832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 35832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 362f382f9bSSatish Balay ierr = PetscGetTime(&t2); CHKERRA(ierr); 37832676f5SBarry Smith ierr = VecNorm(x,NORM_2,&norm); CHKERRA(ierr); 384fcfa849SBarry Smith 394fcfa849SBarry Smith fprintf(stderr,"%s : \n","PetscMemcpy"); 40832676f5SBarry Smith fprintf(stderr," Time %g\n",t2-t1); 414fcfa849SBarry Smith 424fcfa849SBarry Smith PetscFinalize(); 433a40ed3dSBarry Smith PetscFunctionReturn(0); 444fcfa849SBarry Smith } 45