fortan程序数值分析之Newton法求解非线性方程组 - 免费下载
源码资源
文件大小:13 K
💡 温馨提示:本资源由用户 answer123 上传分享,仅供学习交流使用。如有侵权,请联系我们删除。
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