程序跑不起来，有错误地方，指教一下

风平老涡

只有屏幕截图，没法帮你看程序。

风平老涡

wx_yxZLpy1y 发表于 2020-9-22 10:18
subroutine int_force(itimestep,dt,ntotal,hsml,mass,vx,niac,rho,
     &        eta,pair_i,pair_j,dw ...

把你的代码放到发帖的<>中。

风平老涡

wx_yxZLpy1y 发表于 2020-9-22 16:06
我不知道哪里缺少 enddo或者do

现在这个模式，没有行号，无法交流。在你回帖空白框的上方，会看到，其左面是“<>"。按一下这个符号，把代码放入其中，然后回帖。

风平老涡

wx_yxZLpy1y 发表于 2020-9-22 21:27
[mw_shl_code=fortran,true] subroutine int_force(itimestep,dt,ntotal,hsml,mass,vx,niac,rho,
     &    ...

225， 228， 229行注释取消即可保证配对的endif 和enddo。
另，这里使用了太多嵌套if，逻辑有点混乱，建议改进算法。

风平老涡

wx_yxZLpy1y 发表于 2020-9-22 21:53
可以加你微信么，方便请教

网上交流，大家受益。

风平老涡

wx_yxZLpy1y 发表于 2020-9-23 08:38
程序还是跑不起来呀，可以加微信么？

把你改过的，再贴出来。

风平老涡

wx_yxZLpy1y 发表于 2020-9-23 11:03
加个微信或qq方便请教

建议按前面的提议（取消注释行）试一下。