function stat=gama90(svp_file,opt_file,out_file)
%
% Call stat=gama90(svp_file,opt_file,out_file);
%
% Function that calls the gama 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('gama.in','w');
if fid2<0, 
	error(['CANNOT OPEN FILE ','gama.in','; CHECK THAT IT IS NOT IN USE.']);
end
fprintf(fid2,'%s\n',svp_file);
fprintf(fid2,'%s\n',opt_file);
fprintf(fid2,'%s\n',out_file);
fclose(fid2);
%%eval('type gama.in');
%
if (isunix || ispc)
   if (exist('system','builtin') == 0)
      !gama90 gama.in
   else
	syserr=system('gama90 gama.in');
   if syserr ~= 0
      disp('An error occurred during the system call to gama90')
      disp('Make sure that the gama90 binary executable is in your execution path')
      disp('A ''bin'' directory containing binary executables was supplied with this package')
   end
 end
elseif isppc,
	disp('Mac platform not supported');
end
%
stat=-1;
if exist('gama_status','file'),
    fid=fopen('gama_status','r');
    line1=fgetl(fid);
    if ~isempty(findstr(line1,'successfully')), stat=0; end
    fclose(fid);
else
    'did not exist'
end
