fortran出现Error: An unterminated block exists. 错误
if(ikt.gt.ncu)goto109doi=1,ncuif(i.gt.ncu)goto109if(nc(i).eq.nc(temp2))thendoib=1,nnb...
if(ikt.gt.ncu) goto 109
do i=1,ncu
if(i.gt.ncu) goto 109
if(nc(i).eq.nc(temp2))then
do ib=1,nnb
if(nc(ib).eq.nc(i)) then
ij=ngs(ib,i)
kb=ngb(ib,i)
if(lcr.eq.1)then
if(isp(ij).eq.1) then
nstack=nstack+1
istn(nstack)=ij
isp(ij)=2
endif
goto 107
endif
endif
enddo
125 continue编译后第二行和第三行出现Error: An unterminated block exists. 展开
do i=1,ncu
if(i.gt.ncu) goto 109
if(nc(i).eq.nc(temp2))then
do ib=1,nnb
if(nc(ib).eq.nc(i)) then
ij=ngs(ib,i)
kb=ngb(ib,i)
if(lcr.eq.1)then
if(isp(ij).eq.1) then
nstack=nstack+1
istn(nstack)=ij
isp(ij)=2
endif
goto 107
endif
endif
enddo
125 continue编译后第二行和第三行出现Error: An unterminated block exists. 展开
1个回答
展开全部
do i=1,ncu
do ib=1,nnb
有两层 do，但是只有一个 end do
An unterminated block exists. 意思是没有结束的块，指其中一个 do，没有 end do
do ib=1,nnb
有两层 do，但是只有一个 end do
An unterminated block exists. 意思是没有结束的块，指其中一个 do，没有 end do
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
