aboutsummaryrefslogtreecommitdiff
path: root/scripts/zone-axis
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/zone-axis')
-rwxr-xr-xscripts/zone-axis25
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);
- }
-
-
- }
-
-}