Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
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
There is other way to enter
data
,without using
data
statements
. By input method.
by Mr.X2, 2 years ago
Please
log in
to post a comment.
Y
NEWTON SECOND LAW
Rvc new
DO CONTINUE
euler-cromer
euler-cromer
euler-cromer
Factorial problem
Prime
Exercise 02
There is other way to enter data,without using data statements. By input method.
by Mr.X2, 2 years agoPlease log in to post a comment.