Fortran is behaving in a weird way
#+BEGIN_SRC fortran
program matrx_vectr_mult
implicit none
integer :: m, n, i, j, k
real :: a(5,3), u(3), v(5), rsum
m = 5; n = 3
a = 0.0; u = 0.0; v = 0.0
k = 0
do j = 1, n
do i = 1, m
k = i + j
a(i,j) = real(k)
u(i) = real(3*i)
end do
end do
do i = 1, m
rsum = 0.0
do j = 1, n
rsum = (a(i,j) * u(j)) + rsum
end do
v(i) = rsum
end do
write (*,*) "a * *", " * ", "u", " * ", "v"
write (*,*) a(1,:), "*", u(1), "*", v(1)
write (*,*) a(2,:), "*", u(2), "*", v(2)
write (*,*) a(3,:), "*", u(3), "*", v(3)
write (*,*) a(4,:), "* * *", v(4)
write (*,*) a(5,:), "* * *", v(5)
print *, "---"
write (*,*) a
end program
#+END_SRC
#+RESULTS:
| a | * | * | * | u | * | v | | | | | |
| | |
| 12.0 | 3.0 | 4.0 | * | 3.0 | * | 90.0 | | | | | |
| | |
| 15.0 | 4.0 | 5.0 | * | 6.0 | * | 114.0 | | | | | |
| | |
| 4.0 | 5.0 | 6.0 | * | 9.0 | * | 96.0 | | | | | |
| | |
| 5.0 | 6.0 | 7.0 | * | * | * | 114.0 | | | | | |
| | |
| 6.0 | 7.0 | 8.0 | * | * | * | 132.0 | | | | | |
| | |
| --- | | | | | | | | | | | |
| | |
| 12.0 | 15.0 | 4.0 | 5.0 | 6.0 | 3.0 | 4.0 | 5.0 | 6.0 | 7.0 | 4.0 | 5.0 |
6.0 | 7.0 | 8.0 |
---------------------
Christopher Dimech
General Administrator - Naiad Informatics - GNU Project (Geocomputation)
- Geophysical Simulation
- Geological Subsurface Mapping
- Disaster Preparedness and Mitigation
- Natural Resource Exploration and Production
- Free Software Advocacy
