Intel® Fortran Compiler 18.0 Developer Guide and Reference
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. |
USE IFPORT
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