这程序不用GOTO语句怎么写

gengyan123456

各位高手帮帮忙，这个程序如果不用GOTO语句怎么写呢？

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

10    CONTINUE
      IF(KX.GT.KSX.AND.KY.GT.KSY) GOTO 70
      IF(KX.LE.KSX) THEN
KXI=X(KX,2)
KXJ=X(KX,3)
      ENDIF
      IF(KY.LE.KSY) THEN
KYI=Y(KY,2)
KYJ=Y(KY,3)
      ENDIF
      KSZ=KSZ+1
   IF(KSZ.EQ.M5) THEN
     WRITE(*,*) ' KSZ=M5=',M5,KSX,KSY,' Increase M5(in plus)!'
     STOP
   ENDIF
      IF(KX.GT.KSX) GOTO 40
      IF(KY.GT.KSY) GOTO 20
      IF(KXI.EQ.KYI.AND.KXJ.EQ.KYJ) GOTO 30
      IF(KYI.LT.KXI.OR.(KYI.EQ.KXI.AND.KYJ.LT.KXJ)) GOTO 40
20 Z(KSZ,1)=X(KX,1)
50 Z(KSZ,2)=X(KX,2)
Z(KSZ,3)=X(KX,3)
KX=KX+1
GOTO 10
30 Z(KSZ,1)=X(KX,1)+Y(KY,1)
KY=KY+1
GOTO 50
40 Z(KSZ,1)=Y(KY,1)
Z(KSZ,2)=Y(KY,2)
Z(KSZ,3)=Y(KY,3)
KY=KY+1
GOTO 10
70    CONTINUE

gengyan123456

xiaorenwu 发表于 2014-7-19 11:57
不知楼主试过return语句没？感觉可以直接换成return语句的

恩恩，差不多

gengyan123456

gengyan123456 发表于 2014-7-19 14:37
我自己弄出来了，谢谢了

不过你说的elseif和原来的能有什么区别呢

gengyan123456

珊瑚虫 发表于 2014-7-19 13:46
根据楼主的意思，不用goto 那就if elseif 吧

我自己弄出来了，谢谢了

珊瑚虫

根据楼主的意思，不用goto 那就if elseif 吧

gengyan123456

xiaorenwu 发表于 2014-7-19 11:57
不知楼主试过return语句没？感觉可以直接换成return语句的

关键不是子程序里的啊

xiaorenwu

不知楼主试过return语句没？感觉可以直接换成return语句的

andy8496

本来写了一大段代码一次通过很有成就感。看完楼主的帖子又失落了，没头没尾，看晕了啊……