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

}