SLEEP

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

Module

USE IFPORT

CALL SLEEP (time)

time	(Input) INTEGER(4). Length of time, in seconds, to suspend the calling process.

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

 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