read_T5.m
View Options

			function T5 = read_T5(look4,T5idx,T5coeffs)
			% returns the T5 double precision contained in the table T5coeffs with
			% indices look4 == T5idx

			dims = size(T5idx);
			T5 = 0;
			for icoeff = 1:dims(1)
			if(all((T5idx(icoeff,:) - look4) == 0))
			T5 = T5coeffs(icoeff);
			break
			end
			end

			% Return 0 if not found
			end

cosolver/matlab_scripts/read_T5.mb3f94e22e87cimproved_sugama