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
underoverflow
euler-cromer
SIUM(3.5)
A_03 RUNGE KUTTA METHOD O(4)
euler-cromer
Practice 1(IV)
A_01 CHEBYSHEV_METHOD
gghhhhh
Check identity matrix or not?
Gauss backward elimination