linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

version working with also with redhat linux

Browse Source
This commit is contained in:
cvs
2002-06-13 13:05:44 +00:00
parent 442a784e5c
commit ae1ed10f5b
9 changed files with 42 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
tecs/myc_time.c
View File

@@ -1,5 +1,5 @@
#include <assert.h>
#include <sys/time.h>
#include <time.h>
#include <sys/timeb.h>
#include "sys_util.h"
#include "myc_time.h"
@@ -107,14 +107,8 @@ int mycTime(int date) {
/* compile only when fortran c interface stuff is defined */
#ifdef __VMS
#define myc_date_ myc_date
#define myc_time_ myc_time
#define myc_now_ myc_now
#endif
int myc_now_(void) { return mycNow(); }
int myc_date_(int *time) { return mycDate(*time); }
int myc_time_(int *date) { return mycTime(*date); }
int F_FUN(myc_now)(void) { return mycNow(); }
int F_FUN(myc_date)(int *time) { return mycDate(*time); }
int F_FUN(myc_time)(int *date) { return mycTime(*date); }
#endif