[ 수치해석 ] 포트란을 이용한 행렬 코딩

소개글

program Gauss_eli_pivot

목차

없음

본문내용

program Gauss_eli_pivot
implicit none
real :: a(50,50),c,temp,soln(50),factor,rmax
integer :: pivot,t,n,n2,k,p,o,m,i,row,col,a_i,a_j,j

print *, "행렬의 싸이즈는? (I,J)"
read *, a_i, a_j
n=a_i
n2=a_j
do p=1,a_i
do o=1,a_j
print *, "a<<<",p,",",o,">>> = ? "
read *,c
a(p,o) = c
end do
end do
!pivoting
do T=1,n
do pivot = T, n-1

참고 자료

없음