文件名称:SUBROUTINE-Gauss
介绍说明--下载内容均来自于网络,请自行研究使用
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
(系统自动生成,下载前可以参看下载内容)
下载文件列表
SUBROUTINE Gauss.doc