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)