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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
/* #[ License : */
/*
* Copyright (C) 1984-2026 J.A.M. Vermaseren
* When using this file you are requested to refer to the publication
* J.A.M.Vermaseren "New features of FORM" math-ph/0010025
* This is considered a matter of courtesy as the development was paid
* for by FOM the Dutch physics granting agency and we would like to
* be able to track its scientific use to convince FOM of its value
* for the community.
*
* This file is part of FORM.
*
* FORM is free software: you can redistribute it and/or modify it under the
* terms of the GNU General Public License as published by the Free Software
* Foundation, either version 3 of the License, or (at your option) any later
* version.
*
* FORM is distributed in the hope that it will be useful, but WITHOUT ANY
* WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
* FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
* details.
*
* You should have received a copy of the GNU General Public License along
* with FORM. If not, see <http://www.gnu.org/licenses/>.
*/
/* #] License : */
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
// A timing routine for debugging. Only on Unix (where sys/time.h is available).
#ifdef UNIX
#include <sys/time.h>
#include <cstdlib>
#include <cstdio>
#include <string>
#ifndef timersub
/* timersub is not in POSIX, but presents on most BSD derivatives.
This implementation is borrowed from glibc. (TU 23 Oct 2011) */
#define timersub(a, b, result) \
do { \
(result)->tv_sec = (a)->tv_sec - (b)->tv_sec; \
(result)->tv_usec = (a)->tv_usec - (b)->tv_usec; \
if ((result)->tv_usec < 0) { \
--(result)->tv_sec; \
(result)->tv_usec += 1000000; \
} \
} while (0)
#endif
bool starttime_set = false;
timeval starttime;
double thetime () {
if (!starttime_set) {
gettimeofday(&starttime,NULL);
starttime_set=true;
}
timeval now,diff;
gettimeofday(&now,NULL);
timersub(&now,&starttime,&diff);
return diff.tv_sec+diff.tv_usec/1000000.0;
}
std::string thetime_str() {
char res[10];
snprintf (res,10,"%.4lf", thetime());
return res;
}
#endif // UNIX
|
