4 extern char *F77_aloc(), *getenv();
8 extern char *F77_aloc(ftnlen
, char*);
12 * getenv - f77 subroutine to return environment variables
15 * call getenv (ENV_NAME, char_var)
17 * ENV_NAME is the name of an environment variable
18 * char_var is a character variable which will receive
19 * the current value of ENV_NAME, or all blanks
20 * if ENV_NAME is not defined
25 G77_getenv_0 (fname
, value
, flen
, vlen
) char *value
, *fname
; ftnlen vlen
, flen
;
28 G77_getenv_0 (char *fname
, char *value
, ftnlen flen
, ftnlen vlen
)
31 char buf
[256], *ep
, *fp
;
36 for(i
= 0; i
< sizeof(buf
); i
++) {
37 if (i
== flen
|| (buf
[i
] = fname
[i
]) == ' ') {
43 while(i
< flen
&& fname
[i
] != ' ')
45 strncpy(fp
= F77_aloc(i
+1, "getenv_"), fname
, (int)i
);
51 while(*ep
&& vlen
-- > 0)