do 3002 kkk=2,nrow-1
do 3002 jjj=2,nrow-1
do 3002 iii=2,nrow-1
if (u(iii,jjj,kkk).gt.0)then
ibj=iii
jbj=jjj
kbj=kkk
3004 do 3003 izd=1,ibl
ibianbianbian=level(ibj,jbj,kbj)
ibianbianbianbian=shzrwlb(izd)
if (ibianbianbian.ne.ibianbianbianbian)then
goto 3004
fcode 发表于 2016-3-3 08:38
我认为错误行并不在这里。你最好确认一下错误行所在的位置,有必要给一些截图。 ...
fcode 发表于 2016-3-3 11:36
如果你使用的是 Visual Studio,那么看输出窗口,不要看“错误列表窗口”
你就会发现错误行(行号) ...
fcode 发表于 2016-3-3 15:29
任何窗口找不到,就到 视图菜单
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |