17   return ((double)tp.tv_sec + (double)tp.tv_usec * 1.e-6);  in second()
28   Revision: 4.0-BETA, October 24, 1995
34   the cost of floating-point operations relative to memory accesses.
40            at least 20 clock-ticks.  This will provide rate estimates
55                 cc -O stream_d.c second.c -o stream_d -lm
68 #define HLINE "-------------------------------------------------------------\n"
91   register int j, k;  in main()  local
94   /* --- SETUP --- determine precision and check timing --- */  in main()
96   for (j = 0; j < N; j++) {  in main()
97     a[j] = 1.0;  in main()
98     b[j] = 2.0;  in main()
99     c[j] = 0.0;  in main()
103   for (j = 0; j < N; j++) a[j] = 2.0E0 * a[j];  in main()
104   t = 1.0E6 * (second() - t);  in main()
106   /*   --- MAIN LOOP --- repeat test cases NTIMES times --- */  in main()
113     for (j = 0; j < N; j++) c[j] = a[j];  in main()
114     times[0][k] = second() - times[0][k];  in main()
118     for (j = 0; j < N; j++) b[j] = scalar * c[j];  in main()
119     times[1][k] = second() - times[1][k];  in main()
122     for (j = 0; j < N; j++) c[j] = a[j] + b[j];  in main()
123     times[2][k] = second() - times[2][k];  in main()
126     for (j = 0; j < N; j++) a[j] = b[j] + scalar * c[j];  in main()
127     times[3][k] = second() - times[3][k];  in main()
130   /*   --- SUMMARY --- */  in main()
133     for (j = 0; j < 4; j++) mintime[j] = MIN(mintime[j], times[j][k]);  in main()
135   for (j = 0; j < 4; j++) irate[j] = 1.0E-06 * bytes[j] / mintime[j];  in main()
138   for (j = 0; j < 4; j++) printf("%s%11.4f\n", label[j], irate[j]);  in main()
153     while (((t2 = second()) - t1) < 1.0E-6);  in checktick()
165     Delta    = (int)(1.0E6 * (timesfound[i] - timesfound[i - 1]));  in checktick()