eesupp/src/tim.c

#define FORTRAN_MANGLE_TRAILING_UNDERSCORE
#define TIM_USES_GETTIMEOFDAY

#define procedure_cloc cloc
#ifdef FORTRAN_MANGLE_TRAILING_UNDERSCORE
#define procedure_cloc cloc_
#endif
#ifdef TIM_USES_OSF_GETCLOCK
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <assert.h>
#include <sys/time.h>
void procedure_cloc ( double *curtim )
{
 struct timespec tv1;
 getclock(TIMEOFDAY, &tv1);
 *curtim =  (double)((tv1.tv_nsec)+(tv1.tv_sec)*1.E9);
 *curtim = *curtim/1E9;
}
#endif
#ifdef TIM_USES_GETTIMEOFDAY
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <assert.h>
#include <sys/time.h>
void procedure_cloc ( double *curtim )
{
 struct timeval tv1;
 gettimeofday(&tv1 , (void *)NULL );
 *curtim =  (double)((tv1.tv_usec)+(tv1.tv_sec)*1.E6);
 *curtim = *curtim/1.E6;
 
}
#endif

1	cnh	1.3	#define FORTRAN_MANGLE_TRAILING_UNDERSCORE
2			#define TIM_USES_GETTIMEOFDAY
3
4			#define procedure_cloc cloc
5			#ifdef FORTRAN_MANGLE_TRAILING_UNDERSCORE
6			#define procedure_cloc cloc_
7			#endif
8			#ifdef TIM_USES_OSF_GETCLOCK
9	cnh	1.2	#include <stdio.h>
10			#include <stdlib.h>
11			#include <unistd.h>
12			#include <assert.h>
13			#include <sys/time.h>
14	cnh	1.3	void procedure_cloc ( double *curtim )
15	cnh	1.2	{
16			struct timespec tv1;
17			getclock(TIMEOFDAY, &tv1);
18			curtim = (double)((tv1.tv_nsec)+(tv1.tv_sec)1.E9);
19			curtim = curtim/1E9;
20			}
21	cnh	1.3	#endif
22			#ifdef TIM_USES_GETTIMEOFDAY
23			#include <stdio.h>
24			#include <stdlib.h>
25			#include <unistd.h>
26			#include <assert.h>
27			#include <sys/time.h>
28			void procedure_cloc ( double *curtim )
29			{
30			struct timeval tv1;
31			gettimeofday(&tv1 , (void *)NULL );
32			curtim = (double)((tv1.tv_usec)+(tv1.tv_sec)1.E6);
33			curtim = curtim/1.E6;
34
35			}
36			#endif
37	cnh	1.2