fprintf(stdout," Number of random numbers generated: %s\n",size);
fprintf(stdout," Number of active processes: %d\n",no_nodes);
}
- verified = FALSE;
/* Compute the number of "batches" of random number pairs generated per processor. Adjust if the number of processors
* does not evenly divide the total number */
for (i=0;i<2*nk;i++) {
x[i] = -1e99;
}
- Mops = log(sqrt(abs(1)));
/* Synchronize before placing time stamp */
MPI_Barrier( MPI_COMM_WORLD );
k_offset = no_large_nodes*(np+1) + (node-no_large_nodes)*np -1;
int stop = FALSE;
- for(k = 1; k <= np; k++) { SMPI_SAMPLE_GLOBAL(0.25 * np, 0.03) {
+ SMPI_SAMPLE_GLOBAL(k = 1, k <= np, k++, 0.25 * np, 0.03){
stop = FALSE;
kk = k_offset + k ;
t1 = s;
for (i=1;i<=100 && !stop;i++) {
ik = kk / 2;
if (2 * ik != kk) {
- t3 = randlc(&t1, &t2);
+ randlc(&t1, &t2);
}
if (ik==0)
stop = TRUE;
else {
- t3 = randlc(&t2, &t2);
+ randlc(&t2, &t2);
kk = ik;
}
}
}
}
timer_stop(2);
- } }
+ }
TRACE_smpi_set_category ("finalize");