/usr/share/xcrysden/Tcl/fs/interpolate.tcl is in xcrysden-data 1.5.60-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 | #############################################################################
# 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/interpolate.tcl
# ------ #
# Copyright (c) 1996-2003 by Anton Kokalj #
#############################################################################
proc FS_Interpolation:submit {togl spin iband} {
global FS_Interpolation fs
set fs($spin,$iband,interpolationdegree) [list \
$FS_Interpolation($togl) \
$FS_Interpolation($togl) \
$FS_Interpolation($togl)]
FS_fsConfig $iband $spin
}
|