Changeset 1003

Timestamp:

Sep 15, 2010 12:22:14 PM (15 years ago)

Author:

chlake

Message:

Fixed bugs in ::sr_restraintdist and ::sr_lookuplist variables.

File:

• branches/sandbox/distrest.tcl (modified) (2 diffs)

branches/sandbox/distrest.tcl ¶

@@ -357 +357 @@
           set type2 [lindex [split $type2 {+-}] 0]
 
-          lappend new_restraint [lindex $temp_res1 0] [lindex $temp_res1 1] \
+          lappend new_restraint [lindex $temp_res1 0] [lindex $temp_res1 1] \
                   [lindex $temp_res1 2] [lindex $temp_res1 3] [lindex $temp_res1 4] \
                   [lindex $temp_res1 5] [lindex $temp_res1 6] [lindex $temp_res1 7] \
@@ -363 +363 @@
                   [atominfo 1 [lindex $temp_res1 1] label] [atominfo 1 [lindex $temp_res1 2] label] \
                   $t2
-
-          set ::sr_restraintdist($t2) [lindex $temp_res1 8]
-          set ::sr_restraintesd($t2) [lindex $temp_res1 9]
+          set x [llength $::sr_bond_list]
+          lappend ::sr_lookuplist1($type1) $x
+          lappend ::sr_lookuplist2($type2) $x
           lappend ::sr_bond_list $new_restraint
         }
+        set ::sr_restraintdist($t2) [lindex $temp_res1 8]
+        set ::sr_restraintesd($t2) [lindex $temp_res1 9]
+
+
+
 # if $t2 not in ::sr_bond_list need to add to sr_bond_list and ::sr_lookuplist1/2
     }