弹流润滑 有偿咨询，跪求大神了

风平老涡

65*65个网格能正常运行说明算法逻辑没有问题。129*129个网格就不能运行可能是其他原因，贴出来给大家看一看。

风平老涡

DING 发表于 2021-3-14 15:51
大神能帮我看看吗，跪求

主程序中：
       H00=0.0
       MM=N-1
       LMIN=ALOG(N-1.)/ALOG(2.)-1.99
       LMAX=LMIN
       U=EDA0*US/(2.*E1*RX)
       。
       。
       。
       B=PAI*PH*RX/E1
       W=2.*PAI*PH/(3.*E1)*(B/RX)**2
       ALFA=Z*5.1E-9*A1
       G=ALFA*E1
       AM=W*(2.*U)**(-0.75)
       AL=G*(2.*U)**(0.25)
所有被赋值的变量都没有定义，我不知道编译是如何通过的。另外有很多子程序，应对子程序功能及重要的输入变量有个说明，否则没法看。