Intel® Fortran Compiler 18.0 Developer Guide and Reference
Portability Subroutine: Returns the value of an environment variable.
USE IFPORT
CALL GETENV (ename,evalue)
ename |
(Input) Character*(*). Environment variable to search for. |
evalue |
(Output) Character*(*). Value found for ename. Blank if ename is not found. |
use IFPORT
character*40 libname
CALL GETENV ("LIB",libname)
TYPE *, "The LIB variable points to ",libname