SLEEP

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

SLEEPQQ

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