Fortran程序,矩阵相乘中IF语句:IF(IND) 10,20,20怎么个读取顺序.为什么10,20,
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/10/07 00:51:48
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
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
IF(IND) 10,20,20
等效于
if ind 0 goto 20
这是老语法,不建议使用
等效于
if ind 0 goto 20
这是老语法,不建议使用
Fortran程序,矩阵相乘中IF语句:IF(IND) 10,20,20怎么个读取顺序.为什么10,20,
关于fortran语言中if语句的简单问题
在vfp中利用if语句编个程序!
Fortran中这句if语句如何理解?
matlab中,用for,if语句编写矩阵1-范数的程序.
fortran语言中do语句,例如:do 20 I=1,3怎么理解呢?
在fortran中,单do循环放在if语句里面的时候该怎么办?
matlab程序if语句用法
if语句用find函数怎么优化,程序如下:
if语句在程序中起到了什么作用
lingo 中if语句怎么运用.
用fortran语言编一个矩阵相乘的通用程序 急用