* getenv - f77 subroutine to return environment variables
* call getenv (ENV_NAME, char_var)
* ENV_NAME is the name of an environment variable
* char_var is a character variable which will receive
* the current value of ENV_NAME, or all blanks
* if ENV_NAME is not defined
VOID
getenv_(fname
, value
, flen
, vlen
) char *value
, *fname
; ftnlen vlen
, flen
;
void getenv_(char *fname
, char *value
, ftnlen flen
, ftnlen vlen
)
register char *ep
, *fp
, *flast
;
register char **env
= environ
;
for(fp
= fname
; fp
< flast
; ++fp
)
for(fp
= fname
; fp
<flast
; )
if(*ep
++ == '=') { /* copy right hand side */
while( *ep
&& --vlen
>=0 )