File: matrix_02_matmul.f90

package info (click to toggle)
lfortran 0.45.0-1
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 46,332 kB
  • sloc: cpp: 137,068; f90: 51,260; python: 6,444; ansic: 4,277; yacc: 2,285; fortran: 806; sh: 524; makefile: 30; javascript: 15
file content (19 lines) | stat: -rw-r--r-- 497 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
program matrix_02_matmul
implicit none
integer :: i, j, k, a(3, 4)
real :: b(4, 3), cmat(3, 3), centry

a = reshape([1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12], shape(a))
b = reshape([1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0, 11.0, 12.0], shape(b))
cmat = matmul(a, b)

do i = 1, 3
    do j = 1, 3
        centry = 0
        do k = 1, 4
            centry = centry + a(i, k) * b(k, j)
        end do
        if( cmat(i, j) /= centry ) error stop
    end do
end do
end program matrix_02_matmul