インテル® Fortran コンパイラー XE 13.1 ユーザー・リファレンス・ガイド
Portability Function: Returns the process ID of the current process.
USE IFPORT
result = GETPID( )
The result type is INTEGER(4). The result is the process ID number of the current process.
INTEGER(4) istat
istat = GETPID()