1.4.18 getenv：获取环境变量值

该子例程的调用方式如下所示：

ename 和 evalue 的大小必须足够大，以便能容纳相应的字符串。

如果 evalue 太短而不能容纳整个字符串值，则字符串将被截断以符合 evalue。

子例程 getenv 在环境列表中搜索格式为 ename=evalue 的字符串，如果找到，则通过 evalue 返回值；否则在 evalue 中填入空白。

示例：使用 getenv() 打印 $SHELL 值：

       character*18  evalue
       call getenv( ’SHELL’, evalue )
       write(*,*) "’", evalue, "’"
       end

另请参见：execve(2) 和 environ(5)。