%  Convert gas properties to specified pressure ratio 
function mat2 = GasPres(mat1,Ratio)
  mat2=mat1;
  if (mat2(1,4) ~= mat2(1,5))
    mat2(:,3)=mat1(:,3)*Ratio;
  end
end
