package VESTA
@ISA = qw()

sub BEGIN

sub VESTAAtomInfFile
return $thisAtomInfFile;

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

sub DESTROY
my $this = shift;

sub GetAtomInformation
my ($this, $name) = @_;
return undef;
return $inf;

sub ReadAtomInformation
my ($this) = @_;
return 0;
return 1;

sub WriteVESTAFileFromCrystal
my ($this, $Crystal, $DensityFile, $path, 
		$BondLength, $Boundary, $BeyondBoundary,
		$DensityMin, $DensityMax, $DensityIsoLevel,
		%hash
		) = @_;
return -1;
return 0;
return 1;