00001 subroutine MatVecMult(A,v,w,n) 00002 00003 implicit none 00004 00005 integer n 00006 00007 real(8) A(n,n),v(n),w(n) 00008 00009 00010 00011 00012 00013 w=matmul(A,v) 00014 00015 00016 00017 00018 00019 00020 00021 00022 00023 00024 00025 00026 00027 00028 00029 00030 00031 00032 00033 00034 00035 end subroutine MatVecMult
1.5.8