WRITE(5,10) SECNDS(SECNDS(0.0)+10.0)
10	FORMAT(' ELAPSED TIME IN SECONDS IS ',F12.3)
	END