5 ######################################################
6 # gp_Mat's constructors incompletely initilize memory
7 ######################################################
17 set ListLength [llength ${List}]
19 if { ${ListLength} != ${Min_ListLength}} {
21 puts "Error: ListLength = ${ListLength}"
25 set M11 [lindex ${List} [expr ${index0} +2]]
26 set M12 [lindex ${List} [expr ${index0} + 3 ]]
27 set M13 [lindex ${List} [expr ${index0} + 4 ]]
28 set M21 [lindex ${List} [expr ${index0} + 5 ]]
29 set M22 [lindex ${List} [expr ${index0} + 6 ]]
30 set M23 [lindex ${List} [expr ${index0} + 7 ]]
31 set M31 [lindex ${List} [expr ${index0} + 8 ]]
32 set M32 [lindex ${List} [expr ${index0} + 9 ]]
33 set M33 [lindex ${List} [expr ${index0} + 10 ]]
35 if { ${M11} != 0 || ${M12} != 0 || ${M13} != 0 } {
38 if { ${M21} != 0 || ${M22} != 0 || ${M23} != 0 } {
41 if { ${M31} != 0 || ${M32} != 0 || ${M33} != 0 } {
45 puts "Faulty $BugNumber"