Fortran程序,矩阵相乘中IF语句:IF(IND) 10,20,20怎么个读取顺序.为什么10,20,SUBROUTINE MXMLT(A,B,C,N,IND)\x05IMPLICIT REAL*8(A-H,O-Z)\x05DIMENSION A(N,1),B(N,1),C(N,1)\x05IF(IND) 10,20,2010\x05CONTINUE\x05DO 100 I=1,N\x05DO 100,J=1,N
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/30 03:37:55
![Fortran程序,矩阵相乘中IF语句:IF(IND) 10,20,20怎么个读取顺序.为什么10,20,SUBROUTINE MXMLT(A,B,C,N,IND)\x05IMPLICIT REAL*8(A-H,O-Z)\x05DIMENSION A(N,1),B(N,1),C(N,1)\x05IF(IND) 10,20,2010\x05CONTINUE\x05DO 100 I=1,N\x05DO 100,J=1,N](/uploads/image/z/11030600-56-0.jpg?t=Fortran%E7%A8%8B%E5%BA%8F%2C%E7%9F%A9%E9%98%B5%E7%9B%B8%E4%B9%98%E4%B8%ADIF%E8%AF%AD%E5%8F%A5%EF%BC%9AIF%28IND%29+10%2C20%2C20%E6%80%8E%E4%B9%88%E4%B8%AA%E8%AF%BB%E5%8F%96%E9%A1%BA%E5%BA%8F.%E4%B8%BA%E4%BB%80%E4%B9%8810%2C20%2CSUBROUTINE+MXMLT%28A%2CB%2CC%2CN%2CIND%29%5Cx05IMPLICIT+REAL%2A8%28A-H%2CO-Z%29%5Cx05DIMENSION+A%28N%2C1%29%2CB%28N%2C1%29%2CC%28N%2C1%29%5Cx05IF%28IND%29+10%2C20%2C2010%5Cx05CONTINUE%5Cx05DO+100+I%3D1%2CN%5Cx05DO+100%2CJ%3D1%2CN)
Fortran程序,矩阵相乘中IF语句:IF(IND) 10,20,20怎么个读取顺序.为什么10,20,SUBROUTINE MXMLT(A,B,C,N,IND)\x05IMPLICIT REAL*8(A-H,O-Z)\x05DIMENSION A(N,1),B(N,1),C(N,1)\x05IF(IND) 10,20,2010\x05CONTINUE\x05DO 100 I=1,N\x05DO 100,J=1,N
Fortran程序,矩阵相乘中IF语句:IF(IND) 10,20,20怎么个读取顺序.为什么10,20,
SUBROUTINE MXMLT(A,B,C,N,IND)
\x05IMPLICIT REAL*8(A-H,O-Z)
\x05DIMENSION A(N,1),B(N,1),C(N,1)
\x05IF(IND) 10,20,20
10\x05CONTINUE
\x05DO 100 I=1,N
\x05DO 100,J=1,N
\x05S=0.0D0
\x05DO 200 K=1,N
\x05S=S+A(K,I)*B(K,J)
\x05
200\x05CONTINUE
\x05C(I,J)=S
100\x05CONTINUE
\x05GOTO 500
20\x05CONTINUE
\x05DO 300 I=1,N
\x05DO 300 J=1,N
\x05S=0.0D0
\x05DO 400 K=1,N
\x05S=S+A(I,K)*B(K,J)
\x05
400\x05CONTINUE
\x05C(I,J)=S
300\x05CONTINUE
500\x05CONTINUE
\x05RETURN
\x05END
Fortran程序,矩阵相乘中IF语句:IF(IND) 10,20,20怎么个读取顺序.为什么10,20,SUBROUTINE MXMLT(A,B,C,N,IND)\x05IMPLICIT REAL*8(A-H,O-Z)\x05DIMENSION A(N,1),B(N,1),C(N,1)\x05IF(IND) 10,20,2010\x05CONTINUE\x05DO 100 I=1,N\x05DO 100,J=1,N
IF(IND) 10,20,20
等效于
if ind 0 goto 20
这是老语法,不建议使用