求助程序，defined recursively

berton

[Fortran] 纯文本查看 复制代码

program main
    USE var
    implicit none
    !subroutine mark
 xc(1,1)=(Lx/2.0+L/2.0*cos(angle))/dx;
 xc(1,2)=(Ly-20.0*D+L/2.0*sin(angle))/dx;
 xc(2,1)=(Lx/2.0-L/2.0*cos(angle))/dx;
 xc(2,2)=(Ly-20.0*D-L/2.0*sin(angle))/dx;
beta=Gr*mv*mv/(G*D**3*(Tw(2)-T_f));
write (*,'(1x,"tao=",f12.6,2x,"ny=",I4)') tao,ny
call initialize
!call ini_T
do step=1,stepmax
    call mark
    call calculate_u_p
    call particle_boundary
    call around_boundary
    !call evolution
    call collision
    call second_forcing
    call stream_
    
    !-----------T----------
    !call evolve_T
    !call save_fx_fy
    call particle_move_evolvement
    !call shift_domain
enddo
    
!call data_deal
end program main

------------------------------------------------------------------这是主程序，子程序和函数代码太多就不传了
Error(F37): Target (build\two_particles.o) is defined recursively
Error(E02): Make execution terminated
请教各位大神，这种“目标程序定义回归”是什么错误，我定义的两个函数确定没有自回归调用

berton

求大神教教我呀

fcode

你给出的代码并不能解决你的问题。

我有理由相信，你的问题不是代码问题，而是make文件问题。
比如 two_particles.o 依赖了 BBB，BBB又依赖了 two_particles.o

berton

fcode 发表于 2016-1-7 21:42
你给出的代码并不能解决你的问题。

我有理由相信，你的问题不是代码问题，而是make文件问题。 ...

恩，谢谢，我刚刚问了下身边大神，是链接过程出问题了，但这个编译器没给出什么提示，看来只能换个编译器试试了

fcode

是make问题，并非链接问题。

就算是链接问题，换编译器也无用。此外，求助时，使用的操作系统，平台，编译器版本号，这些基本信息希望提供。