/usr/share/xcrysden/Awk/getOV.awk is in xcrysden-data 1.5.53-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | BEGIN {
Bohr2Angs = 0.529177;
}
/0ENDPOINTS/ {
getline; getline;
o[0] = $1 * Bohr2Angs;
o[1] = $2 * Bohr2Angs;
o[2] = $3 * Bohr2Angs;
getline;
for(j=0; j<2; j++) {
for(i=0; i<3; i++)
v[j,i] = $(i+1) * Bohr2Angs - o[i];
getline;
}
}
END {
#
# WARNING: WIEN is writing grid as (den(i,j),j=1,ny),i=1,nx, BUT
# XCrySDen is reading it as (den(i,j),i=1,nx),j=1,ny
# FIXING: interchange vec-X with vec-Y and interchange nx with ny
#
printf "%f %f %f\n", o[0], o[1], o[2];
printf "%f %f %f\n", v[1,0], v[1,1], v[1,2];
printf "%f %f %f\n", v[0,0], v[0,1], v[0,2];
}
|