Correct bug0050 :: An extra argument after matrix A lines 348-249 in STFSM.f causes...

diff --git a/SRC/stfsm.f b/SRC/stfsm.f
index c9cab77..d619cf0 100644 (file)
--- a/SRC/stfsm.f
+++ b/SRC/stfsm.f
@@ -345,7 +345,7 @@
                      ELSE
                         CALL STRSM( 'L', 'U', 'N', DIAG, M2, N, ALPHA,
      +                              A( M ), M, B( M1, 0 ), LDB )
-                        CALL SGEMM( 'T', 'N', M1, N, M2, -ONE, A( M1 ), M,
+                        CALL SGEMM( 'T', 'N', M1, N, M2, -ONE, A( M1 ),
      +                              M, B( M1, 0 ), LDB, ALPHA, B, LDB )
                         CALL STRSM( 'L', 'L', 'T', DIAG, M1, N, ONE,
      +                              A( 0 ), M, B, LDB )