Changeset 1187 for branches/sandbox


Ignore:
Timestamp:
Jan 25, 2012 4:17:16 PM (9 years ago)
Author:
toby
Message:

bug in RB_Ref_FlagEnable

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/rigid.tcl

    r1174 r1187  
    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.