home *** CD-ROM | disk | FTP | other *** search
/ Between Heaven & Hell 2 / BetweenHeavenHell.cdr / 500 / 471 / rccl136 < prev    next >
Text File  |  1987-03-02  |  324b  |  17 lines
  1. #define SPIN    10000000
  2.  
  3. main()
  4. {
  5.     double t1, t2, lt, cputim_();       /* fortran cc .. -lU77 */
  6.     int spin;
  7.  
  8.     t1 = cputim_();
  9.     spin = SPIN;
  10.     while (spin--)  /* basis reference loop, counter in the stack */
  11.         ;
  12.     t2 = cputim_();
  13.  
  14.     printf("basic spin loop %2.2f micro sec\n",
  15.         (t2 - t1) * 1000000. / SPIN);
  16. }
  17.