package TB
@ISA = qw()

sub KListDBDir
my $this = shift;
return $this->{'KListDBDir'} if($this->{'KListDBDir'});
return $this->{'KListDBDir'} = $KListDBDir;

sub SetKListDBDir
	my($this, $d) = 
return $d;

sub NonRelDir
my $this = shift;
return $this->{'NonRelDir'} if($this->{'NonRelDir'});
return $this->{'NonRelDir'} = $NonRelDir;

sub SetNonRelDir
	my($this, $d) = 
return $d;

sub SetNonRelFile
my ($this) = @_;
return $this->{'NonRelPath'};

sub NonRelPath
my ($this) = @_;
return $this->{'NonRelPath'};

sub new
my ($module) = @_;
return $this;

sub DESTROY
my $this = shift;

sub SetSampleName
my ($this, $name) = @_;
return $this->{'SampleName'} = $name;

sub SampleName
my ($this) = @_;
return $this->{'SampleName'};

sub SaveTBInputFile
my ($this, $Crystal, $filename) = @_;
return;
return ($KListFilePath, $filename);