[프로그램] 수치해석 프로그램
- 최초 등록일
- 2002.11.26
- 최종 저작일
- 2002.11
- 4페이지/ 한컴오피스
- 가격 1,000원
목차
없음
본문내용
PROGRAM D2R3
C Driver for routine LUBKSB
PARAMETER (NP=100)
DIMENSION A(NP,NP),B(NP,NP),INDX(NP)
DIMENSION C(NP,NP),X(NP)
CHARACTER TXT*3
OPEN(5,FILE='MATRX1.DAT',STATUS='OLD')
READ(5,*)
10 READ(5,*)
READ(5,*) N,M
READ(5,*)
READ(5,*) ((A(K,L), L=1,N), K=1,N)
READ(5,*)
READ(5,*) ((B(K,L), K=1,N), L=1,M)
C Save matrix A for later testing
DO 12 L=1,N
DO 11 K=1,N
C(K,L)=A(K,L)
11 CONTINUE
12 CONTINUE
C Do LU decomposition
CALL LUDCMP(C,N,NP,INDX,P)
C Solve equations for each right-hand vector
참고 자료
없음