eesupp/src/tim.c

#ifdef TARGET_LINUX
#undef  FORTRAN_MANGLE_TRAILING_UNDERSCORE
#else
#define FORTRAN_MANGLE_TRAILING_UNDERSCORE
#endif
#define TIM_USES_GETTIMEOFDAY

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