Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Matrix 3×3
Program matrix Implicit none Integer i, j Integer a(3,3), b(3,3), c(3,3) a(1,:) = (/ 1, 2 , 3 /) a(2,:) = (/ 3, 4 , 5 /) a(3,:) = (/ 2, 6 , 2 /) do 10 i=1, 3 Write(*, *)(a(i, j), j=1, 3) 10 continue b(1, :) = (/ 1, 2 , 3 /) b(2, :) = (/ 3, 4 , 5 /) b(3, :) = (/ 2, 6 , 2 /) do 20 i=1, 3 Write(*, *)(b(i, j), j=1, 3) 20 continue do 30 i=1, 3 do 40 j=1, 3 c(i, j) =a(i, j) +b(i, j) 40 continue 30 continue do 50 i=1, 3 Write(*,*)(c(i, j), j=1, 3) 50 continue End Program Matrix
run
|
edit
|
history
|
help
1
my_second_code
Sum of inverse square series
Bissection Method
A_04 TRAPEZOIDAL RULE (3(II))
Shooting method 1
Fortran!
euler-cromer
A_01 QN:1(I)
55
A_01 BISECTION METHOD