Hello,
I wrote this programm which tries to use the Function MatrixVektor.
PROGRAM MAIN
REAL, DIMENSION(3) :: v
REAL, DIMENSION(3) :: w
REAL, DIMENSION(3,3) :: A
... filling v and A
w = MatrixVektor(A, v, w)
END PROGRAMM
FUNCTION MatrixVektor(A, v)
REAL, DIMENSION(3)...