Actual source code: PetscVecNorm.c

  1: /*$Id: PetscVecNorm.c,v 1.15 2001/03/23 23:25:45 balay Exp $*/

 3:  #include petscvec.h

  5: int main(int argc,char **argv)
  6: {
  7:   Vec        x;
  8:   double     norm;
  9:   PetscLogDouble t1,t2;
 10:   int        ierr,n = 10000;

 12:   PetscInitialize(&argc,&argv,0,0);
 13:   PetscOptionsGetInt(PETSC_NULL,"-n",&n,PETSC_NULL);

 15:   VecCreateSeq(PETSC_COMM_SELF,n,&x);

 17:   /* To take care of paging effects */
 18:   PetscGetTime(&t1);
 19:   VecNorm(x,NORM_2,&norm);

 21:   PetscGetTime(&t1);
 22:   VecNorm(x,NORM_2,&norm);
 23:   VecNorm(x,NORM_2,&norm);
 24:   VecNorm(x,NORM_2,&norm);
 25:   VecNorm(x,NORM_2,&norm);
 26:   VecNorm(x,NORM_2,&norm);
 27:   VecNorm(x,NORM_2,&norm);
 28:   VecNorm(x,NORM_2,&norm);
 29:   VecNorm(x,NORM_2,&norm);
 30:   VecNorm(x,NORM_2,&norm);
 31:   VecNorm(x,NORM_2,&norm);
 32:   PetscGetTime(&t2);
 33:   VecNorm(x,NORM_2,&norm);

 35:   fprintf(stderr,"%s : n","PetscMemcpy");
 36:   fprintf(stderr," Time %gn",t2-t1);

 38:   PetscFinalize();
 39:   return(0);
 40: }