Intel® Fortran Compiler 18.0 Developer Guide and Reference
Portability Subroutine: Returns the current seed.
USE IFPORT
CALL RANGET (seed)
seed
(Output) INTEGER(4). The current seed value.