/usr/share/xcrysden/Tcl/fs/bandwidths.tcl 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 | proc FS_displayBandWidths {bandWidthFile {spin ""}} {
global wn
set fID [open $bandWidthFile r]
set nbands [gets $fID]
set wn($spin,nbands) $nbands
set text "Number of bands: $nbands\n"
append text "---------------\n\n"
#append text "# Band No. Min-ENE Max-ENE\n"
while { ! [eof $fID] } {
set line [gets $fID]
if { [llength $line] == 3 } {
set i [lindex $line 0]
set e [lindex $line 1]
set E [lindex $line 2]
append text [format "Band No.: %3d; Min-ENE: %12.6f Max-ENE: %12.6f\n" $i $e $E]
}
}
close $fID
#
# display the bandwidths in a Text widget
#
return [xcDisplayVarText $text "Band widths"]
}
|