blob: 3cfc9d741dc36ac10049e4763c91c7c61c48f36b (
plain)
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
|
#ifndef CRAY
# ifdef NOUNDERSCORE
# define RSL_INTERNAL_MICROCLOCK rsl_internal_microclock
# else
# ifdef F2CSTYLE
# define RSL_INTERNAL_MICROCLOCK rsl_internal_microclock__
# else
# define RSL_INTERNAL_MICROCLOCK rsl_internal_microclock_
# endif
# endif
#endif
#include <sys/time.h>
RSL_INTERNAL_MICROCLOCK ()
{
struct timeval tb ;
struct timezone tzp ;
int isec ; /* seconds */
int usec ; /* microseconds */
int msecs ;
gettimeofday( &tb, &tzp ) ;
isec = tb.tv_sec ;
usec = tb.tv_usec ;
msecs = 1000000 * isec + usec ;
return(msecs) ;
}
c_pow_ ( float * a, float * b )
{
*a = pow( *a , *b ) ;
}
|