FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
hecmw_time.c
Go to the documentation of this file.
1/*****************************************************************************
2 * Copyright (c) 2019 FrontISTR Commons
3 * This software is released under the MIT License, see LICENSE.txt
4 *****************************************************************************/
5
6#include "hecmw_time.h"
7
8double HECMW_Wtime(void) {
9#ifndef HECMW_SERIAL
10 double t;
11 t = MPI_Wtime();
12 return t;
13#else
14 struct timeb t;
15 double sec;
16 ftime(&t);
17 sec = t.time + (double)t.millitm * 1e-3;
18 return sec;
19#endif
20}
21
22double HECMW_Wtick(void) {
23#ifndef HECMW_SERIAL
24 return MPI_Wtick();
25#else
26 return 1e-3;
27#endif
28}
29
30/* interface for fortran */
31
32double hecmw_wtime_fi(void) { return HECMW_Wtime(); }
33double hecmw_wtime_fi_(void) { return HECMW_Wtime(); }
34double hecmw_wtime_fi__(void) { return HECMW_Wtime(); }
35double HECMW_WTIME_FI(void) { return HECMW_Wtime(); }
36double HECMW_WTIME_FI_(void) { return HECMW_Wtime(); }
37double HECMW_WTIME_FI__(void) { return HECMW_Wtime(); }
38
39double hecmw_wtick_fi(void) { return HECMW_Wtick(); }
40double hecmw_wtick_fi_(void) { return HECMW_Wtick(); }
41double hecmw_wtick_fi__(void) { return HECMW_Wtick(); }
42double HECMW_WTICK_FI(void) { return HECMW_Wtick(); }
43double HECMW_WTICK_FI_(void) { return HECMW_Wtick(); }
44double HECMW_WTICK_FI__(void) { return HECMW_Wtick(); }
double HECMW_WTICK_FI__(void)
Definition: hecmw_time.c:44
double hecmw_wtime_fi__(void)
Definition: hecmw_time.c:34
double HECMW_WTIME_FI_(void)
Definition: hecmw_time.c:36
double hecmw_wtime_fi_(void)
Definition: hecmw_time.c:33
double HECMW_WTICK_FI_(void)
Definition: hecmw_time.c:43
double hecmw_wtick_fi_(void)
Definition: hecmw_time.c:40
double HECMW_WTIME_FI__(void)
Definition: hecmw_time.c:37
double HECMW_Wtime(void)
Definition: hecmw_time.c:8
double HECMW_WTIME_FI(void)
Definition: hecmw_time.c:35
double hecmw_wtime_fi(void)
Definition: hecmw_time.c:32
double HECMW_WTICK_FI(void)
Definition: hecmw_time.c:42
double HECMW_Wtick(void)
Definition: hecmw_time.c:22
double hecmw_wtick_fi__(void)
Definition: hecmw_time.c:41
double hecmw_wtick_fi(void)
Definition: hecmw_time.c:39