From 29f05a21f0782201751e8ad5ff78b42836979f73 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Mon, 3 Mar 2014 17:03:28 +0100 Subject: Update scripts for new reflection list format --- scripts/hkl2hkl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'scripts/hkl2hkl') diff --git a/scripts/hkl2hkl b/scripts/hkl2hkl index a9dfab13..1557bfd7 100755 --- a/scripts/hkl2hkl +++ b/scripts/hkl2hkl @@ -4,20 +4,20 @@ use strict; my $line; -printf(" h k l I phase sigma(I) counts" - ." fs/px ss/px\n"); +printf(" h k l I phase sigma(I) nmeas\n"); while ( $line = ) { - if ( $line =~ /([\d\-]+)\s+([\d\-]+)\s+([\d\-]+)\s+([\d\.\-]+)\s+([\d\.\-]+)/ ) { + if ( $line =~ /([\d\-]+)\s+([\d\-]+)\s+([\d\-]+)\s+([\d\.\-]+)\s+([\d\.\-]+)\s+([\d\.\-]+)/ ) { my $h = $1; my $k = $2; my $l = $3; my $intensity = $4; - my $sigi = $5; + my $phase = $5; + my $sigi = $6; - printf("%3i %3i %3i %10.2f %s %10.2f %7i %6.1f %6.1f\n", + printf("%4i %4i %4i %10.2f %s %10.2f %7i\n", $h, $k, $l, $intensity, " -", $sigi, 1, 0.0, 0.0); -- cgit v1.2.3