	SUBROUTINE SEC(S)
	T=SECNDS(0.0)
1	IF(SECNDS(T).GE.S)GOTO 2
	GOTO1
2	RETURN
	END
