インテル® Fortran コンパイラー XE 13.1 ユーザー・リファレンス・ガイド
Portability Subroutine: Suspends the execution of a process for a specified interval.
USE IFPORT
CALL SLEEP (time)
time
(Input) INTEGER(4). Length of time, in seconds, to suspend the calling process.
integer(4) hold_time
hold_time = 1 !lets the loop execute
DO WHILE (hold_time .NE. 0)
write(*,'(A)') "Enter the number of seconds to suspend"
read(*,*) hold_time
CALL SLEEP (hold_time)
END DO
END