getenv_(result,length,what,lwhat)

    /*  Fortran - C linkage for obtaining the value of an
        environment variable */

char result[];
long length;
char what[];
long lwhat;
{
        char *getenv();
        strncpy(result,getenv(what),length);
}