A primitive variable, strongly implicit calculation procedure for viscous flows at all speeds