回 帖 发 新 帖 刷新版面

主题:求助错误 1 Compilation Aborted (code 1)

program Console2
include 'link_fnl_shared.h'
use imsl_libraries
integer,parameter::m=5
integer,parameter::n=2
integer::i
double precision::a(m,n),b(m),x(n)
double precision::c(n,m),d(n,n),e(n)
data a/2,8,2,7,4,-1,4,1,-1,0/
data b/1,0,1,8,3/
if(m.gt.n)then
c=transpose(a)
d=matmul(c,a)
e=matmul(c,b)
x=d.ix.e
else if(m.eq.n)then
x=a.ix.b
else
write(*,*)'no roots!'
end if
do i=1,n
write(*,*)x(i)
end do
end program Console2
0

回复列表 (共1个回复)

沙发

请问这个问题解决了吗?我也遇到了

我来回复

您尚未登录,请登录后再回复。点此登录或注册