Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Check identity matrix or not?
! Shahir Tanbir Habib real a(3,3) print*,'inputed matrix which you want to test ' data a/1,2,3,4,5,6,7,8,9/ do i=1,3 do j=1,3 if(i.eq.j) then if(a(i,j).ne.1)then goto 20 endif endif if(i.ne.j) then if(a(i,j).ne.0) then goto 20 endif endif Enddo Enddo print*,' is Identity' stop 20 print*,' is not Identity' end
run
|
edit
|
history
|
help
0
Title
Ch2 ex1 p15
A_002 THE GUASS SEIDEL
A_02 JACOBI METHOD
Practice
Gauss for
Summation
A_02 JACOBIAN NEWTON'S ITERATIVE METHOD
4
gghhhhh