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.

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

SLEEP

Module

Example

See Also