14
static char cname[MAX_NAME+1];
16
Integer FATR sf_create_(
17
#ifdef F2C_HIDDEN_STRING_LENGTH_AFTER_ARGS
19
SFsize_t *size_hard_limit,
20
SFsize_t *size_soft_limit,
27
SFsize_t *size_hard_limit,
28
SFsize_t *size_soft_limit,
34
ga_f2cstring(fname, len, cname, MAX_NAME);
35
return sfi_create(cname, size_hard_limit, size_soft_limit, req_size, handle);
39
Integer FATR sf_create_suffix_(
40
#ifdef F2C_HIDDEN_STRING_LENGTH_AFTER_ARGS
42
SFsize_t *size_hard_limit,
43
SFsize_t *size_soft_limit,
51
SFsize_t *size_hard_limit,
52
SFsize_t *size_soft_limit,
59
ga_f2cstring(fname, len, cname, MAX_NAME);
60
return sfi_create_suffix(cname, size_hard_limit, size_soft_limit,
61
req_size, handle, suffix);
64
/*****************************************************************************/
66
void FATR sf_errmsg_(Integer *code, char *msg, int msglen)
70
sfi_errmsg((int) *code, buf);
72
(void) ga_c2fstring(buf, msg, msglen);