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 -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