    	SUBROUTINE PAUSES(ISEC)
C
C  PROGRAMMER: R.S ZHOU		FEB-1986
C
C  	THIS ROUTINE LOOPS IN ITSELF FOR ISEC SECONDS BY CALLING
C	THE SYSTEM SUPPLIED FUNCTION SUBROUTINE --- SECNDS
C
C  GET THE NUMBER OF SECONDS SINCE MIDNIGHT...
C
    	T1 = SECNDS( 0.0 )
C
C  GET THE ELAPSED TIME...
C
1    	DELTA = SECNDS( T1 )
    	IF( INT(DELTA) .GE. ISEC ) GOTO 9
    	GOTO 1
9    	RETURN
    	END
