perfs.h

📄 View in API Reference (Doxygen) · View on basilisk.fr

event perfs (i += 1) {
  static FILE * fp = fopen ("perfs", "w");
  if (i == 0)
    fprintf (fp,
	     "t dt grid->tn perf.t perf.speed npe perf.ispeed maxrss\n");
  static double start = 0.;
  if (i > 10 && perf.t - start < 1.) return 0;
  fprintf (fp, "%g %g %ld %g %g %d %g ",
	   t, dt,
	   grid->tn*nl, perf.t, perf.speed*nl, npe(), perf.ispeed*nl);
@if _GNU_SOURCE
  struct rusage usage;
  getrusage (RUSAGE_SELF, &usage);
  fprintf (fp, "%ld\n", usage.ru_maxrss);
@else
  fputs ("0\n", fp);
@endif
  fflush (fp);
  start = perf.t;
}

event perf_plot (i = 10) {
  if (getenv ("DISPLAY"))
    popen ("gnuplot -e 'set term x11 noraise title perfs' "
	   "$BASILISK/perfs.plot 2> /dev/null "
	   "& read dummy; kill $! 2> /dev/null", "w");
}