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

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

See Also