# 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

Parent topic: S

## See Also

SLEEPQQ