Run Code
|
API
|
Code Wall
|
Users
|
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
There is other way to enter
data
,without using
data
statements
. By input method.
by Mr.X2, 4 years ago
Please
log in
to post a comment.
Forward
A_04 GUASSIAN QUADRATURE METHOD
EXERCISE
A_01 SECANT_METHOD
IF GO TO
1(iii)
A_03 RUNGE KUTTA METHOD O(4)
Sum 1 to 99 divided by 12 to 100
evaluation
Factorial problem
There is other way to enter data,without using data statements. By input method.
by Mr.X2, 4 years agoPlease log in to post a comment.