diff --git a/SRC/dla_geamv.f b/SRC/dla_geamv.f index 4aaf6f520..4812f41a9 100644 --- a/SRC/dla_geamv.f +++ b/SRC/dla_geamv.f @@ -169,7 +169,8 @@ *> \ingroup la_geamv * * ===================================================================== - SUBROUTINE DLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, BETA, + SUBROUTINE DLA_GEAMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, + $ BETA, $ Y, INCY ) * * -- LAPACK computational routine --