#!/usr/bin/perl -w

use System;

my $a=1.0;
my $m=4.480389e-26;

$cell=[
  $a,$a,0,
  $a,0,$a,
  0,-$a,-$a
];

my $atoms=[
  [ "Al", $m ],
];

my $sites=[
  [ 0,0,0,             0 ],
];

my $bonds=[
  [ 0,0, 1,1,0,                  10.4578, 10.3657,  0.0000,
                                 10.3657, 10.4578,  0.0000,
                                  0.0000,  0.0000, -2.6322 ],
  [ 0,0, 2,0,0,                   2.4314,  0.0000,  0.0000,
                                  0.0000, -0.1351,  0.0000,
                                  0.0000,  0.0000, -0.1351 ],
  [ 0,0, 2,1,1,                   0.0986, -0.1819, -0.1819,
                                 -0.1819, -0.2366, -0.2862,
                                 -0.1819, -0.2862, -0.2366 ],
  [ 0,0, 2,2,0,                   0.1363,  0.3753,  0.0000,
                                  0.3753,  0.1363,  0.0000,
                                  0.0000,  0.0000,  0.1854 ],
  [ 0,0, 3,1,0,                  -0.3003, -0.3239,  0.0000,
                                 -0.3239,  0.1842,  0.0000,
                                  0.0000,  0.0000,  0.2603 ],
  [ 0,0, 2,2,2,                  -0.1412,  0.1990,  0.1990,
                                  0.1990, -0.1412,  0.1990,
                                  0.1990,  0.1990, -0.1412 ],
  [ 0,0, 3,2,1,                   0.1828,  0.0397, -0.0747,
                                  0.0397, -0.2207, -0.0214,
                                 -0.0747, -0.0214, -0.0173 ],
  [ 0,0, 4,0,0,                  -0.0681,  0.0000,  0.0000,
                                  0.0000, -0.0202,  0.0000,
                                  0.0000,  0.0000, -0.0202 ],
];

System::write($cell,$atoms,$sites,$bonds,"cubic");
