xref: /petsc/src/benchmarks/PetscMalloc.c (revision 3a40ed3dce77c081171d005ae1a6ff4bb9d13b6f)

#ifdef PETSC_RCS_HEADER
static char vcid[] = "$Id: PetscMalloc.c,v 1.10 1997/07/09 21:01:29 balay Exp bsmith $";
#endif

#include "petsc.h"
#include "sys.h"

int main( int argc, char **argv)
{
  PLogDouble  x, y;
  double      value;
  void        *arr[1000], *dummy;
  int         ierr, i, flg, rand1[1000], rand2[1000];
  PetscRandom r;

  PetscInitialize(&argc, &argv,0,0);

  ierr = PetscRandomCreate( PETSC_COMM_SELF,RANDOM_DEFAULT,&r); CHKERRQ(ierr);
  for (i=0; i<1000; i++) {
    ierr    = PetscRandomGetValue(r, &value); CHKERRQ(ierr);
    rand1[i] = (int ) (value* 144327);
    ierr    = PetscRandomGetValue(r, &value); CHKERRQ(ierr);
    rand2[i] = (int ) (value* 144327);
  }

  /* Take care of paging effects */
  dummy = PetscMalloc(100); CHKPTRA(dummy);
  PetscFree(dummy);
  x = PetscGetTime();

  /* Do all mallocs */
  for (i=0 ; i< 1000; i++) {
    arr[i] = PetscMalloc(rand1[i]); CHKPTRA( arr[i]);
  }

  x = PetscGetTime();

  /* Do some frees */
  for (i=0; i< 1000; i+=2) {
    PetscFree(arr[i]);
  }

  /* Do some mallocs */
  for (i=0; i< 1000; i+=2) {
    arr[i] = PetscMalloc(rand2[i]); CHKPTRA( arr[i]);
 }
  y = PetscGetTime();

  for (i=0; i< 1000; i++) {
    PetscFree(arr[i]);
  }

  fprintf(stderr,"%-15s : %e sec , with options : ","PetscMalloc",(y-x)/500.0);
  if(OptionsHasName(PETSC_NULL,"-trmalloc",&flg),flg) fprintf(stderr,"-trmalloc ");
  fprintf(stderr,"\n");

  PetscRandomDestroy(r);
  PetscFinalize();
  PetscFunctionReturn(0);
}