1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
/*
* (C) 2004 by Argonne National Laboratory.
* See COPYRIGHT in top-level directory.
*/
#include <stdio.h>
#include <stdlib.h>
#include "mpi.h"
#include "mpiimpl.h"
int main( int argc, char **argv )
{
double t1, t2;
double tick;
MPID_Time_t l1,l2;
int i;
MPI_Init( &argc, &argv );
t1 = MPI_Wtime();
t2 = MPI_Wtime();
fprintf( stdout,
"Two successive calls to MPI_Wtime gave: (%f) (%f) diff (%f)\n",
t1, t2, t2-t1 );
MPID_Wtime( &l1 );
MPID_Wtime( &l2 );
MPID_Wtime_diff( &l1, &l2, &t1 );
fprintf( stdout,
"Two successive calls to MPID_Wtime gave: (%llx) (%llx) diff (%f)\n",
l1, l2, t1 );
fprintf( stdout, "Five approximations to one second:\n");
for (i = 0; i < 5; i++)
{
t1 = MPI_Wtime();
sleep(1);
t2 = MPI_Wtime();
fprintf( stdout, "%f seconds\n", t2 - t1 );
}
/* tick = MPI_Wtick();*/
fprintf( stdout, "MPI_Wtick gave: (%10.8f)\n", tick );
MPI_Finalize( );
return 0;
}
|
