Description: SUBROUTINE Gauss_Expunction(A, B, X, N) IMPLICIT NONE ! 变量定义 INTEGER :: N REAL :: A(N,N), B(N) REAL :: X(N) INTEGER :: I, J REAL :: C LOGICAL, EXTERNAL :: Check_Root
To Search:
File list (Check if you may need any files):
SUBROUTINE Gauss.doc
Download