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
人气:415 ℃ 时间:2020-05-11 02:35:45
解答
IF(IND) 10,20,20
等效于
if ind 0 goto 20
这是老语法,不建议使用
推荐
猜你喜欢
- 在线等y=log0.5(2x2-3x 1)x=1 rcosA,y=-1 rsinA,r>0,A
- 1.如何预防光污染,提出一条合理化建议
- 圆的面积公式 圆周率是怎样导出的
- 在括号里填上合适的词语 ( )的湖泊 ( )的光辉
- 只有为别人花费它们,我们的生命才会开花是因为什么?2.一心为自己的人什么也得不到这是因为?
- 按照老规矩,北京人是怎么过春节的?给你印象最深的是什么?
- 氧化铜,氧化铁,氧化锌的混合物若干,与足量10%的硫酸溶液反应,生成1.8克的水,则原混合物的质量可能为
- 求下列函数的单调区间(1)y=sin(3x-π/3)(2)y=-cos(2x-π/3)