function ramp(ram_infile,out_file)
%
% Function that calls the RAM executable.
%
%
% COPYRIGHT (c) 2008
% 
% Applied Research Laboratories, The University of Texas at Austin
% (ARL:UT)
% All rights reserved.
% 
% This material may be reproduced by or for the U.S. Government
% only. This notice must appear in all copies of this file and its
% derivatives. Further distribution outside the U.S. Government is
% prohibited without the explicit written authorization from the
% Director of the Environmental Sciences Laboratory, ARL:UT.
% 
% THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND,
% EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO THE
% IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
% PURPOSE, OR NONINFRINGEMENT.
% 
% IN NO EVENT WILL ARL:UT BE LIABLE FOR ANY DAMAGES WHATSOEVER ARISING
% OUT OF THE USE OR INABILITY TO USE THIS SOFTWARE, EVEN IF ARL:UT HAS
% BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
fid2 = fopen('ram_in','w');
if fid2<0, 
	error(['CANNOT OPEN FILE ','ram_in','; CHECK THAT IT IS NOT IN USE.']);
end
fprintf(fid2,'%s\n',ram_infile);
fprintf(fid2,'%s\n',out_file);
fclose(fid2);
%
if (isunix || ispc)
	if (exist('system','builtin') == 0)
		!ramp
	else
		syserr=system('ramp');
		if syserr ~= 0
			disp('An error occurred during the system call to ramp')
			disp('Make sure that the ramp binary executable is in your execution path')
			disp('A ''bin'' directory containing binary executables was supplied with this package')
		end
	end
    if isunix,
		str=['!/bin/rm ',out_file,'.pade.check']; eval(str)
		str=['!/bin/rm ',out_file,'.tl.line']; eval(str)
		str=['!/bin/rm ',out_file,'.tl.grid']; eval(str)
    else
		str=['!del ',out_file,'.pade.check']; eval(str)
		str=['!del ',out_file,'.tl.line']; eval(str)
		str=['!del ',out_file,'.tl.grid']; eval(str)
    end
elseif isppc,
	disp('RAMP unavailable on Mac at present.')
end
