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
|
#ifndef _TIMEINFO_COM_
#define _TIMEINFO_COM_
#include <aces.h>
#ifdef __fortran
# ifdef __fortran77
c This common block keeps track of timing information. It is only required
c in the crapsi and crapso routines for the time being as only the starting
c and initial times are determined. In the future, it may be nice to find
c the time required to do different pieces of a calculation, and the data
c here is sufficiently flexible to do so.
c timein the time of the first call to timer
c timenow the time of the previous/current call to timer (timenow is set
c to the time returned, so up to the actual call, timenow actually
c contains the value from the previous call)
c timetot total time elapsed since the first call to timer
c timenew total time elapsed since the last call to timer
M_REAL timein,timenow,timetot,timenew
common /timeinfo/ timein,timenow,timetot,timenew
save /timeinfo/
# else /* __fortran77 */
M_REAL :: timein,timenow,timetot,timenew
common /timeinfo/ timein,timenow,timetot,timenew
# endif /* __fortran77 */
#else /* __fortran */
# ifdef __cplusplus
extern "C" {
# endif
#include "f77_name.h"
#define f_timeinfo F77_CB_NAME(timeinfo,TIMEINFO)
struct { M_REAL timein, timenow, timetot, timenew; } f_timeinfo;
# ifdef __cplusplus
}
# endif
#endif /* __fortran */
#endif /* _TIMEINFO_COM_ */
|
