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
A_04 TRAPEZOIDAL RULE (3(I))
A_02 Newton's practice
Gauss forward elimination
DO END DO
Finite difference practice
euler-cromer
Factorial problem
Rvc
A_04 SIMPSON'S ONE THIRD(3(I))
A_03 RUNGE KUTTA METHOD O(4)