This file is indexed.

/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"]
}