Portability Subroutine: Suspends the execution of a process for a specified interval.
Module: USE DFPORT
Syntax
Compatibility
CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB
See Also: SLEEPQQ
Example
USE DFPORT
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