インテル® Fortran コンパイラー 19.0 デベロッパー・ガイドおよびリファレンス
Portability Function: Searches for a specified file in the directories listed in the path contained in the environment variable.
USE IFPORT
result = FINDFILEQQ (filename,varname,pathbuf)
filename |
(Input) Character*(*). Name of the file to be found. |
varname |
(Input) Character*(*). Name of an environment variable containing the path to be searched. |
pathbuf |
(Output) Character*(*). Buffer to receive the full path of the file found. |
The result type is INTEGER(4). The result is the length of the string containing the full path of the found file returned in pathbuf, or 0 if no file is found.
USE IFPORT
CHARACTER(256) pathname
INTEGER(4) pathlen
pathlen = FINDFILEQQ("libfmt.lib", "LIB", pathname)
WRITE (*,*) pathname
END