aboutsummaryrefslogtreecommitdiff
path: root/scripts/mtz2hkl
blob: 56a5fce129d295771631c20a3a4a0c5fa4d97883 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
#!/bin/sh

mtz2various hklin $1 hklout $2.temp <<EOF
LABIN H=H K=K L=L I=IMEAN SIGI=SIGIMEAN
OUTPUT USER '(3I4,2F15.1)'
EOF

perl < $2.temp > $2 << WIBBLE
use strict;

my \$line;
open(FILE, "$2.temp");

printf("   h    k    l          I    phase   sigma(I)   nmeas\n");

while ( \$line = <FILE> ) {

        if ( \$line =~ /^\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;

                printf("%4i %4i %4i %10.2f %s %10.2f %7i\n",
                       \$h, \$k, \$l, \$intensity, "       -", \$sigi, 1);

        } else {
		printf(STDERR "Couldn't understand line '%s'\n", \$line);
        }

}
close(FILE);
printf("End of reflections\n");
WIBBLE
exit