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

8
tecs/instr_hosts.c
View File

@@ -1,4 +1,4 @@
#include <sys/time.h>
#include <time.h>
#include <string.h>
#include <unistd.h>
#include <stdio.h>
@@ -67,11 +67,7 @@ int InstrHost(char *input, char *instr, char *host, char *user, char *pcod
#ifdef F_CHAR
/* compile only when fortran c interface stuff is defined */
#ifdef __VMS
#define instr_host_ instr_host
#endif
int instr_host_(F_CHAR(input), F_CHAR(instr), F_CHAR(host), F_CHAR(user), F_CHAR(pcod)
int F_FUN(instr_host)(F_CHAR(input), F_CHAR(instr), F_CHAR(host), F_CHAR(user), F_CHAR(pcod)
, int input_len, int instr_len, int host_len, int user_len, int pcod_len) {
char buf[256], in[256], ho[256], us[256], pc[256];
int iRet;