Fortran Coder

标题: 求助程序，defined recursively [打印本页]

作者: berton 时间: 2016-1-7 21:26
标题: 求助程序，defined recursively

[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 时间: 2016-1-7 21:27
求大神教教我呀

作者: fcode 时间: 2016-1-7 21:42
你给出的代码并不能解决你的问题。

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

作者: berton 时间: 2016-1-7 21:47

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

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

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

作者: fcode 时间: 2016-1-7 21:48
是make问题，并非链接问题。

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

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)