78 |
|
|
79 |
|
extern "C"{ |
80 |
|
|
81 |
< |
void F90_FUNC(gettimes, GETTIMES)(double* forceTime, |
81 |
> |
void FC_FUNC(gettimes, GETTIMES)(double* forceTime, |
82 |
|
double* commTime); |
83 |
|
} |
84 |
|
|
191 |
|
secs = (int)donkey; |
192 |
|
msecs = (int)( (donkey - secs) * 1000 ); |
193 |
|
|
194 |
< |
F90_FUNC(gettimes, GETTIMES)(&forceTime, &commTime); |
194 |
> |
FC_FUNC(gettimes, GETTIMES)(&forceTime, &commTime); |
195 |
|
|
196 |
|
fprintf( stdout, |
197 |
|
"----------------------------------------------------------------------------\n" |
250 |
|
secs = (int)donkey; |
251 |
|
msecs = (int)( (donkey - secs) * 1000 ); |
252 |
|
|
253 |
< |
F90_FUNC(gettimes, GETTIMES)(&forceTime, &commTime); |
253 |
> |
FC_FUNC(gettimes, GETTIMES)(&forceTime, &commTime); |
254 |
|
|
255 |
|
fprintf( stdout, |
256 |
|
"----------------------------------------------------------------------------\n" |
419 |
|
|
420 |
|
if( worldRank == j ){ |
421 |
|
|
422 |
< |
F90_FUNC(gettimes, GETTIMES)(&forceTime, &commTime); |
422 |
> |
FC_FUNC(gettimes, GETTIMES)(&forceTime, &commTime); |
423 |
|
|
424 |
|
MPI_Send( accumTime, N_PROFILES, MPI_DOUBLE, 0, 1, MPI_COMM_WORLD ); |
425 |
|
MPI_Send( &forceTime, 1, MPI_DOUBLE, 0, 1, MPI_COMM_WORLD ); |