% idgvol.m                                       by:  Edward T Peltzer, MBARI
%                                                  revised:  01 Dec 98.
%
% CALCULATE THE VOLUME OF A GAS AT A GIVEN T & P
%     using the ideal gas law:  PV = nRT.
%
%		Temperature (T) in degrees C.
%		Pressure in kPa  ==  P(mbar) / 10.
%                                    P(dbar) * 10.
%
% OUTPUT:	Volume of 1 mole of gas [vpm] in liters.
%
%			vpm = idgvol(T,P).

function [vpm]=idgvol(T,P)


% DEFINE CONSTANTS FOR EQUATION OF STATE

    R = 0.082057;


%  CONVERT INPUT DATA TO APPROPRIATE UNITS

    Tc = T + 273.15;
    Pc = P ./ 101.325;


% CALCULATE VOLUME PER MOLE

    vpm = R .* Tc ./ Pc;