include 'lapack.f90'
program main
use F95_PRECISION
use LAPACK95
integer,parameter::n=3
integer i
real(4)::a(n,n),b(n)
integer ipiv(n)
a=reshape([1,0,1,2,1,0,3,3,0],[n,n])
b(:)=[14,11,1]
call sgetrf(n,n,a,n,ipiv,i) !LU分解
!call sgetrs( 'N', n, n, a, n, ipiv, b,n, i )
end
fcode 发表于 2019-5-13 18:24
求助最基本的错误提示都不给出来。
报错.PNG (8.35 KB, 下载次数: 243)
fcode 发表于 2019-5-13 18:24
求助最基本的错误提示都不给出来。
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |