Fortran Coder

查看: 15622|回复: 8
打印 上一主题 下一主题

[流程控制] FORTRAN中的GOTO语句在MATLAB中的实现

[复制链接]

1

帖子

1

主题

0

精华

新人

F 币
12 元
贡献
5 点
楼主
发表于 2014-7-18 13:10:21 | 显示全部楼层

goto语句

这个程序中如果不用GOTO语句该怎么改
DO 348 I=2,NNG+1
      I1=Y0(I,3)
      DO 358 J=1,NM
IF(NMOUT(J).NE.I1) GOTO 358
Y0(I,3)=NMM(J,2)
GOTO 348
358   CONTINUE
      WRITE(*,*) ' CANNOT FIND YC(I,3) WITH I=',I,I1
C      PAUSE
      STOP
348   CONTINUE
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-5-15 09:14

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表