This file is indexed.

/usr/share/xcrysden/Tcl/wnDetComOpt.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
27
28
29
30
31
32
#############################################################################
# Author:                                                                   #
# ------                                                                    #
#  Anton Kokalj                                  Email: Tone.Kokalj@ijs.si  #
#  Department of Physical and Organic Chemistry  Phone: x 386 1 477 3523    #
#  Jozef Stefan Institute                          Fax: x 386 1 477 3811    #
#  Jamova 39, SI-1000 Ljubljana                                             #
#  SLOVENIA                                                                 #
#                                                                           #
# Source: $XCRYSDEN_TOPDIR/Tcl/wnDetComOpt.tcl                                  #
# ------                                                                    #
# Copyright (c) 1996-2003 by Anton Kokalj                                   #
#############################################################################

proc wnDetComOpt dir {
    global wn

    set wn(complex)        0
    set wn(spin_polarized) 0

    set fh [file tail $dir]
    if { [file exists $dir/$fh.in1c] } { 
	if {[file size $dir/$fh.in1c] > 0 } { 
	    set wn(complex) 1 
	}
    }
    if { [file exists $dir/$fh.clmdn] } {
	if {[file size $dir/$fh.clmdn] > 0 } { 
	    set wn(spin_polarized) 1
	}
    }
}