Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
fucugigugug
real a(50,50),b(50,50),c(50,50) integer p write(*,*)'enter the order of the matrix' read(*,*)n write(*,*)'enter the matrix' do i=1,n read(*,*)(a(i,j),j=1,n) enddo do i=1,n do j=1,n b(i,j)=a(i,j) enddo enddo do p=1,n call trace (n,b,t) t=t/p write(*,*)t call operation (n,b,t,a,c) do i=1,n do j=1,n b(i,j)=c(i,j) enddo enddo enddo end subroutine trace(n,a1,t1) real a1(50,50),t1 t1=0 do i=1,n t1=t1+a1(i,i) enddo return stop end subroutine operation(n,b1,tr,am,c1) real am(50,50),b1(50,50),c1(50,50),tr do i =1,n b1(i,i)=b1(i,i)-tr enddo do i=1,4 do j=1,4 c1(i,j)=0 do k=1,n c1(i,j)=c1(i,j)+am(i,k)*b1(k,j) enddo enddo enddo return end
run
|
edit
|
history
|
help
0
Quardratic equation solve
Cosine series
ascending sorting
Gauss seidal
A_002 GUASSIAN ELIMINATION METHOD
A_02 GUASSIAN ELIMINATION METHOD
Sum 1 to 99 divided by 12 to 100
A_01 QN:1(I)
A_03 1(I)
exercise