package GeneralFileFormat
@ISA = qw()

sub GuessFileFormat
my ($infile) = @_;
return "CIF" if($filenames[2] =~ /^\.cif$/i);
return "GULP Input" if($filenames[2] =~ /^\.glp$/i);
return "GULP MD History" if($filenames[2] =~ /^\.his$/i);
return "K.exe Input" if($filenames[2] =~ /^\.kin/i);
return "K.exe Output" if($filenames[2] =~ /^\.kout/i);
return "Rietan Input" if($filenames[2] =~ /^\.ins/i);
return "Rietan Intensity" if($filenames[2] =~ /^\.int/i);
return "Read failed" unless(open(IN,"<$infile"));
return "GULP Output opti";
return "GULP Output fit";
return "GULP Output md";
return "unknown";