function [atm, r] = constants
% CONSTANTS  Get the values of important constants.
% [atm,r] = constants
% :return:
%     If one output argument is given, returns one atmosphere in
%     Pascals. If two output arguments are given, returns one
%     atmosphere in Pascals and the universal gas constant in
%     J/kmol-K.
%

atm = 101325.0;
r = 8314.4621;