Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
Matrix problem
PROGRAM ARRAY IMPLICIT NONE INTEGER,PARAMETER::N=3,M=3 REAL::A(N,M),S1=0,S2=0,S3,S4,S5 INTEGER::I,J !(program for define a matrix A) DO I=1,N READ(*,*)(A(I,J),J=1,M) END DO PRINT*,"MATRIX OF A IS=" DO I=1,N,1 WRITE(*,*)(A(I,J),J=1,M) END DO !(program for sum diagonal entries) DO I=1,N,1 S2=S2+A(I,I) END DO PRINT*,"THE SUM OF THE DIAGONALENTRIES IS=",S2 !(program for find sum of upper triangular entries) PRINT*,"UPPER TRIANGULAR ENTRIES SUM ARE" S4=0 DO I=1,N,1 DO J=I,M,1 S4= S4+A(I,J) END DO END DO PRINT*,S4 !(program for sum lower triangular entries) PRINT*,"SUM OF LOWER TRIANGULAR ENTRIES" S5=0 DO I=1,N,1 DO J=I,M,1 S5=S5+A(J,I) END DO END DO PRINT*,S5 END PROGRAM ARRAY
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Fact funsub
Ashish.txt
9
trapezna for
Test
Vi ss. F
euler-cromer
testcompiler.f90
Jánošík 2018
Check identity matrix or not?
stackse - search stackoverflow differently
Please log in to post a comment.