インテル® Fortran コンパイラー 19.0 デベロッパー・ガイドおよびリファレンス
Portability Function: Returns the path of the current working directory.
USE IFPORT
result = GETCWD (dirname)
dirname |
(Output) Character *(*). Name of the current working directory path, including drive letter. |
The result type is INTEGER(4). The result is zero if successful; otherwise, an error code.
USE IFPORT
character*30 dirname
! variable dirname must be long enough to hold entire string
integer(4) istat
ISTAT = GETCWD (dirname)
IF (ISTAT == 0) write *, 'Current directory is ',dirname