matlab - 如何将fortran goto状态转换为matlab

Question

如何将 goto state(fortran) 转换为 matlab？
也就是说，如果 NOPN 等于 1，执行第 1 行，
NOPN 等于 2，执行第 2 行？

 subroutine VECT(N1,N2,N3,NOPN)

 COMMONS WORMX(3,24), QVALU,DJACB

   I1=N1
   GO TO (1,2,3,4,5),NOPN
 1 I1=N2
 2 QVALU=0.0
   DO 10 I=1=3
10 QVALU=QVALU+WORMX(I,N1)*WORMX(I,I1)

Answer 1

是的，你已经想通了。这是一个“计算的 goto”——来自非常古老的 FORTRAN——现在已弃用。行号不必是1,2,3.... 它们可以是任何有效的行号……从列表中选择第 N 个。