fortan程序数值分析之Newton法求解非线性方程组

资 源 简 介

module M_GAUSS

!高斯列主元消去法模块

contains

subroutine LINEQ(A,B,X,N)

!高斯列主元消去法

   implicit real*8(A-Z)

   integer::I,K,N

   integer::ID_MAX  !主元素标号

   real*8::A(N,N),B(N),X(N)

   real*8::AUP(N,N),BUP(N)

   !A,B为增广矩阵

   real*8::AB(N,N+1)

   real*8::VTEMP1(N+1),VTEMP2(N+1)

   AB(1:N,1:N)=A

   AB(:,N+1)=B

您 可 能 感 兴 趣 的