如何将fortran goto状态转换为matlab

Question

如何将转换状态（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

是的，你已经弄明白了。这是一个＆＃34;计算的转到＆＃34; - 来自非常古老的FORTRAN - 现已弃用。行号不一定是1,2,3...。它们可以是任何有效的行号...从列表中选择第N个。