Changeset 1188 for trunk/rigid.tcl


Ignore:
Timestamp:
Jan 26, 2012 10:47:43 AM (9 years ago)
Author:
toby
Message:

update to match bug fixs in sandbox

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/rigid.tcl

    r1175 r1188  
    19331933    set atomnum $::rb_map_beginning($phasenum,$bodnum,$mapnum)
    19341934    # get a list of the atoms in the RB
    1935     set st [lsearch $::expmap(atomlist_$phase) $atomnum]
     1935    set st [lsearch $::expmap(atomlist_$phasenum) $atomnum]
    19361936    set en [expr {$st+$::rb_coord_num($bodnum,1)-1}]
    1937     set atomlist [lrange $::expmap(atomlist_$phase) $st $en]
     1937    set atomlist [lrange $::expmap(atomlist_$phasenum) $st $en]
    19381938    atominfo $phasenum $atomlist $var set $val
    19391939 }
Note: See TracChangeset for help on using the changeset viewer.