编译时出错不解
源代码:片段,If (nalgo==1) kresl = 1
If (nalgo==2) kresl = 1
If (nalgo==3 .And. iincs==1 .And. iiter==l) kresl = 1
If (nalgo==4 .And. iiter==1) kresl = 1
If (nalgo==5 .And. iincs==1 .And. iiter==l) kresl = 1
If (nalgo==5 .And. iiter==2) kresl = 1
#304If (iiter==1 .Or. nalgo==1) Goto 20
Do isvab = 1, nsvab
fixed(isvab) = 0.0
End Do
Return
#30920 Do isvab, nsvab
fixed(isvab) = pefix(isvab)*facto
#311End Do
Return
End Subroutine nonal
!C**********************
main.f90:309:5:
309 | 20 Do isvab, nsvab
| 1
Error: Unclassifiable statement at (1)
main.f90:311:5:
311 | End Do
| 1
Error: Expecting END SUBROUTINE statement at (1)
main.f90:304:37:
304 | If (iiter==1 .Or. nalgo==1) Goto 20
| 1
Error: Label 20 referenced at (1) is never defined
main.f90:371:14:
求助老师,楼主, 盼复!
谢谢!
提示的意思是缺少 end subroutine #30920 Do isvab, nsvab
改为
#30920 Do isvab=1, nsvab
:-victory:Thanks!
页:
[1]