SLEEP

Portability Subroutine: Suspends the execution of a process for a specified interval.

Module: USE DFPORT

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 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