implicit none
real:: a(3,3), b(3,3), c(3,3)
integer:: i,j,k
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,1)=100. ;b(1,2)=1.   ;b(1,3)=-100.
b(2,1)=10.  ;b(2,2)=0.1  ;b(2,3)=-10.
b(3,1)=1.   ;b(3,2)=0.01 ;b(3,3)=-1.
!
do i=1,3
do j=1,3
c(i,j)=0.
 do k=1,3
  c(i,j)=c(i,j)+a(i,k)*b(k,j)
 end do
end do
end do
!
do i=1,3
print*,c(i,1),c(i,2),c(i,3)
end do
end
