package LD
@ISA = qw()

sub BEGIN

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 GetBusingParameter
my ($this,$atomname) = @_;
return ('');
return ($mass, $charge, $ai, $bi, $ci, $rad);
return ('');

sub MakeLD01File
my ($this, $Crystal, $Function, $LD01Path) = @_;
return -1 unless(open(OUT,">$LD01Path"));
return 1;

sub MakeLD02File
my ($this, $Crystal, $Function, $LD02Path) = @_;
return -1 unless(open(OUT,">$LD02Path"));
return 1;

sub MakeLD07File
my ($this, $Crystal, $Function, $LD07Path) = @_;
return;
return 1;