% 
%  Testet, ob eine Datei zu fname existiert, 
%    durch den Versuch, sie zum Lesen zu öffnen 
% 
function erg = existFile( fname ) 

   fid = fopen( fname, 'r' );
   if( fid == -1 )
       erg = 0;
   else
       fclose( fid );
       erg = 1;
   end