From: J. Rui Rodrigues (jrui_at_ci.uc.pt)
Date: Thu Sep 05 2002 - 13:42:20 CDT

Hi,
I'm having trouble with this simple tcl script:

proc writeindex {{selection} {filename}} {
    set fileId [open ./$filename w 0600]
    set sel [atomselect top $selection]
    puts $fileId "[$sel get index]"
}

My atom selection has about 2000 atoms, $sel get index returns all atom
indexes but the output file is truncated. I suppose that the put
command can't write long strings. Is there any workaround?
Thanks!
Rui Rodrigues

--
J. Rui Rodrigues
Dep. de Quimica
Fac. Ciências e Tecnologia da Univ. Coimbra
Largo D. Dinis
3004-535 Coimbra
Portugal