diff options
Diffstat (limited to 'scripts/zone-axis')
-rwxr-xr-x | scripts/zone-axis | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/scripts/zone-axis b/scripts/zone-axis deleted file mode 100755 index a9e77dda..00000000 --- a/scripts/zone-axis +++ /dev/null @@ -1,25 +0,0 @@ -#!/usr/bin/perl -w - -use strict; - -open(FH, $ARGV[0]); - -my $line; - -while ( $line = <FH> ) { - - if ( $line =~ /^([\d\-]+)\s+([\d\-]+)\s+([\d\-]+)\s+([\d\.\-]+)\s+/ ) { - - my $h = $1; - my $k = $2; - my $l = $3; - my $intensity = $4; - - if ( $l == 0 ) { - printf("%3i %3i %3i %f\n", $h, $k, $l, $intensity); - } - - - } - -} |