/* -*- 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;
}