#===============================================
# CIF
#===============================================
package CIF;
use Crystal::CIFObject;
@ISA = qw(CIFObject);

#公開したいサブルーチン
@EXPORT = qw();

use strict;

#============================================================
#　コンストラクタ、デストラクタ
#============================================================
sub new
{
	my ($module, $filename) = @_;
	my $this = {};
	bless $this;
	$this->SetFileName($filename);
	return $this;
}

sub DESTROY
{
	my $this = shift;
}

1;