implicit none
real:: a(3,3), b(3), c(3)
integer:: i,j
a(1,1)=1. ;a(1,2)=2. ;a(1,3)=3.
a(2,1)=4. ;a(2,2)=5. ;a(2,3)=6.
a(3,1)=7. ;a(3,2)=8. ;a(3,3)=9.
b(1)=100. 
b(2)=10. 
b(3)=1. 
!
do i=1,3
c(i)=0.
 do j=1,3
  c(i)=c(i)+a(i,j)*b(j)
 end do
end do
!
do i=1,3
 print*,c(i)
end do
end
