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
|
#include "auto_f2c.h"
#include "auto_c.h"
#include "auto_types.h"
#ifdef TIME
#include <unistd.h>
#include <sys/time.h>
#include <sys/resource.h>
static double time_start (void) {
struct rusage time;
double seconds,microseconds;
getrusage(RUSAGE_SELF,&time);
seconds = (double)time.ru_utime.tv_sec;
microseconds = (double)time.ru_utime.tv_usec;
return seconds + microseconds/1e6;
}
static double time_end(double start) {
struct rusage time;
double seconds,microseconds;
getrusage(RUSAGE_SELF,&time);
seconds = (double)time.ru_utime.tv_sec;
microseconds = (double)time.ru_utime.tv_usec;
return (seconds + microseconds/1e6)-start;
}
#endif
/* The memory for these are taken care of in autobv_, autoae_, and setubv for the
mpi parallel case */
extern struct {
doublereal *dfu, *dfp, *uu1, *uu2, *ff1, *ff2;
} global_scratch;
/* The memory for these are taken care of in autobv_ and autoae_ */
extern struct {
integer irtn;
integer *nrtn;
} global_rotations;
|
