call broydn(xx,N,check)
call funcv(N,xx,f) !————————————此处为报错语句
if (check) then
write(*,*) 'Convergence problems.'
endif
ITFLAG=0
write(*,'(1x,a5,t10,a1,t22,a1)') 'Index','x','f'
do i=1,27
if(ABS(f(i)).GT.0.002) then
write(*,'(1x,i4,6f12.4,6f12.6)') i,xx(i),f(i)
kyra 发表于 2023-6-13 22:10
加上 external f 这个声明语句
1.png (63 KB, 下载次数: 719)
necrohan 发表于 2023-6-14 08:37
在noncover-num(2).f90的第9行应该是用include语句引用了constant.fi文件,需要设置include的路径
你这个co ...
fcode 发表于 2023-6-14 13:48
include 是根据文件所在的硬盘路径来定位的,而不是 Project 结构中的位置。
所以,检查 noncover-num(2).f ...
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |