|
Last change
on this file since 5d30c1 was 5d30c1, checked in by Frederik Heber <heber@…>, 13 years ago |
|
Initial commit based on 3.0.0alpha (here claimed as 2.4).
|
-
Property mode
set to
100644
|
|
File size:
229 bytes
|
| Line | |
|---|
| 1 | #!/usr/bin/env perl
|
|---|
| 2 |
|
|---|
| 3 | require AtomicBases;
|
|---|
| 4 |
|
|---|
| 5 | my $basisname = shift;
|
|---|
| 6 |
|
|---|
| 7 | my $bases = new AtomicBases;
|
|---|
| 8 | $bases->set_name($basisname);
|
|---|
| 9 |
|
|---|
| 10 | foreach my $file (@ARGV) {
|
|---|
| 11 | $bases->read_gaussian_file($file);
|
|---|
| 12 | }
|
|---|
| 13 |
|
|---|
| 14 | $bases->write_keyval(*STDOUT);
|
|---|
| 15 |
|
|---|
| 16 |
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
