getcpucr.c

来自「分子动力学模拟程序」· C语言 代码 · 共 13 行

/*  report used CPU time to a Fortran program (Cray Fortran) */
#include <sys/time.h>
#include <sys/resource.h>
#include <fortran.h>

GETCPU(e) float *e; {
  clock_t x;
   x = clock();
   *e = x/CLOCKS_PER_SEC;
}