#!/usr/bin/perl -s
use strict;
require "libMBGDFuncCat.pl";

my($filename) = shift(@ARGV);
my($opt) = {};
$opt->{'SUBCLUST'} = $main::SUBCLUST;
cluster_func_dbtype('tigr', $filename, $main::EXT, $opt);

1;#
