Portability Subroutine: Suspends the execution of a process for a specified interval.
Module: USE IFPORT
Syntax
CALL SLEEP (time)
time
(Input) INTEGER(4). Length of time, in seconds, to suspend the calling process.
Compatibility
CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB
See Also
Example
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