Matrix multiplication: Difference between revisions
Content deleted Content added
Updated D versios 2 and 4 |
|||
Line 1,265:
print *, c(i,:)
end do</lang>
For Intel 14.x or later (with compiler switch -assume realloc_lhs)
<lang fortran>
program mm
real , allocatable :: a(:,:),b(:,:)
integer :: l=5,m=6,n=4
a = reshape([1:l*m],[l,m])
b = reshape([1:m*n],[m,n])
print'(<n>f15.7)',transpose(matmul(a,b))
end program
</lang>
=={{header|Frink}}==
| |||