/*@ MPI_Wtick - Returns the resolution of MPI_Wtime Return value: Time in seconds of resolution of MPI_Wtime Notes for Fortran: This is a function, declared as 'DOUBLE PRECISION MPI_WTICK()' in Fortran. .see also: MPI_Wtime, MPI_Comm_get_attr, MPI_Attr_get @*/ double MPI_Wtick(void) { double tick; MPIR_FUNC_TERSE_STATE_DECL(MPID_STATE_MPI_WTICK); MPIR_ERRTEST_INITIALIZED_ORDIE(); MPIR_FUNC_TERSE_ENTER(MPID_STATE_MPI_WTICK); MPID_Wtick(&tick); MPIR_FUNC_TERSE_EXIT(MPID_STATE_MPI_WTICK); return tick; }
FORT_DLL_SPEC double FORT_CALL mpi_wtick_ ( void ) { double d; d = MPID_Wtick( ); return d; }