Index: mbdyn/struct/beam.cc
===================================================================
RCS file: /var/cvs/mbdyn/mbdyn/mbdyn-1.0/mbdyn/struct/beam.cc,v
retrieving revision 1.33.2.8
diff -u -r1.33.2.8 beam.cc
--- mbdyn/struct/beam.cc	18 Jan 2006 16:30:02 -0000	1.33.2.8
+++ mbdyn/struct/beam.cc	15 Feb 2007 15:18:44 -0000
@@ -1938,10 +1939,10 @@
       Vec3 g1(gparam(RT*(R1*Rn1)));
       Vec3 g3(gparam(RT*(R3*Rn3)));
       if (f_I) {
-	 R_I = R2*Mat3x3(Beam::InterpState(g1, 0., g3, Beam::S_I));
+	 R_I = R2*Mat3x3(MatR, Beam::InterpState(g1, 0., g3, Beam::S_I));
       }
       if (fII) {
-	 R_I = R2*Mat3x3(Beam::InterpState(g1, 0., g3, Beam::SII));
+	 RII = R2*Mat3x3(MatR, Beam::InterpState(g1, 0., g3, Beam::SII));
       }	
    }