[project @ 1997-03-14 08:02:40 by simonpj]
[nofib.git] / real / fem / Assemble_stiffness.hs
index 734de28..41a91e6 100644 (file)
@@ -35,7 +35,7 @@ index_value_assoc s =
 assemble s till_now_dd element =
        (till_now_dd++dd_this')
        where
-       dd_this' = [ (  (f i, f j) :=  x i j) 
+       dd_this' = [ (  (f i, f j) ,  x i j) 
                      | i <- [0..n-1], j <- [0..i], f i > 0 , f j > 0 ]
        dgrs_list = (dgrs_list_node nodel) ++ (dgrs_list_node noder)
        (nodel,noder) = getenlr s element