[xcrysden] Re: XCrySDen digest, Vol 1 #145 - 1 msg

Tone Kokalj xcrysden@democritos.it
Tue, 03 Apr 2007 14:08:18 +0200


On Mon, 2007-04-02 at 13:10 +0900, Munetaka (TAGUCHI) wrote:
> Dear  Tone
> 
> Thank you very much for your kind reply.
> 
> I include the klist  and struct files. 


Please edit the $XCRYSDEN_TOPDIR/Tcl/fs/wnFSInit.tcl file.
Find these lines (around line 60):

> if { $wn(fs_nkp) != int($wn(fs_nkp)) } {
>      set wn(fs_nkp) 2000
> }

And replace them with:

	if { ! [string is integer $wn(fs_nkp)] || $wn(fs_nkp) == "" } {
	    set wn(fs_nkp) 2000
	}

(please do a copy-paste)

Tell me if this fix the problem. 

Tone