my $CIFFile = &GetArg("FILE");
#ファイル名を（ベース名, ディレクトリ名, 拡張子）に分解
	my @filenames = fileparse($CIFFile, "\.[^\.]+");
#	my $fname = "INCAR";
#	my $NewFile = Deps::MakePath($CrystalVASPFileDir, $fname, 0);

#Primitive Cellをつくる
	my $SPG = $Crystal->GetCSpaceGroup();
	my $SPGName = $SPG->SPGName();
	my ($CellType) = ($SPGName =~ /^\s*(.)/);
	if($UseConventionalCell ne 'ON' and $SPGName =~ /^\s*[FIABC]/i) {
		my $PrimCIFFile = Deps::MakePath($CrystalVASPFileDir, "${filenames[0]}-Primitive.cif");
		print "<H2>Make Primitive Cell.</H2>\n";
		print "  CIF File: $PrimCIFFile$LF";

		print "  SpaceGroup: $SPGName$LF";
		
		my $T = new Math::MatrixReal(3, 3);
		if($SPGName =~ /^\s*F/i) {
			$T = Math::MatrixReal->new_from_cols( 
				[ [ 0.5, 0.5,   0], 
				  [ 0,   0.5, 0.5],
				  [ 0.5,   0, 0.5] ] );
			$T->transpose($T);
		}
		elsif($SPGName =~ /^\s*I/i) {
			$T = Math::MatrixReal->new_from_cols( 
				[ [-0.5, 0.5, 0.5], 
				  [ 0.5,-0.5, 0.5],
				  [ 0.5, 0.5,-0.5] ] );
			$T->transpose($T);
		}
		elsif($SPGName =~ /^\s*A/i) {
			$T = Math::MatrixReal->new_from_cols( 
				[ [ 1.0, 0.0, 0.0], 
				  [ 0.0, 0.5, 0.5],
				  [ 0.0,-0.5, 0.5] ] );
			$T->transpose($T);
		}
		elsif($SPGName =~ /^\s*B/i) {
			$T = Math::MatrixReal->new_from_cols( 
				[ [ 0.5, 0.0, 0.5], 
				  [ 0.0, 1.0, 0.0],
				  [-0.5, 0.0, 0.5] ] );
			$T->transpose($T);
		}
		elsif($SPGName =~ /^\s*C/i) {
			$T = Math::MatrixReal->new_from_cols( 
				[ [ 0.5, 0.5, 0.0], 
				  [-0.5, 0.5, 0.0],
				  [ 0.0, 0.0, 1.0] ] );
			$T->transpose($T);
		}

#実空間べクトル(ai)の変換行列
		print "Conversion matrix for real space vector: (<b>a'<sub>i</sub></b>) = "
			."(T<sub>ij</sub>)(<b>a<sub>i</sub></b>)$LF";
		print "<pre>\n";
		printf "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;|%10.4f %10.4f %10.4f|\n", 
			$T->element(1,1), $T->element(1,2), $T->element(1,3);
		printf "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;|%10.4f %10.4f %10.4f|\n", 
			$T->element(2,1), $T->element(2,2), $T->element(2,3);
		printf "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;|%10.4f %10.4f %10.4f|\n", 
			$T->element(3,1), $T->element(3,2), $T->element(3,3);
		print "</pre>\n";

		my $PrimCrystal = $Crystal->ConvertLattice($T, 0, 1);
		my $PrimCIF = new CIF;
		$PrimCIF->CreateCIFFileFromCCrystal($PrimCrystal, $PrimCIFFile, 0, "unix");
		&ShowFileLink($WebRootDir, $PrimCIFFile, "Primitive cell CIF");
		
		$Crystal = $PrimCrystal;
		$CellType = "$CellType-Primitive";

		print "$LF";
	}