精品偷拍一区二区三区,亚洲精品永久 码,亚洲综合日韩精品欧美国产,亚洲国产日韩a在线亚洲

  • <center id="usuqs"></center>
  • 
    
  • Fortran程序,矩陣相乘中IF語句:IF(IND) 10,20,20怎么個(gè)讀取順序.為什么10,20,

    Fortran程序,矩陣相乘中IF語句:IF(IND) 10,20,20怎么個(gè)讀取順序.為什么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
    數(shù)學(xué)人氣:427 ℃時(shí)間:2020-05-11 02:35:45
    優(yōu)質(zhì)解答
    IF(IND) 10,20,20
    等效于
    if ind 0 goto 20
    這是老語法,不建議使用
    我來回答
    類似推薦
    請(qǐng)使用1024x768 IE6.0或更高版本瀏覽器瀏覽本站點(diǎn),以保證最佳閱讀效果。本頁提供作業(yè)小助手,一起搜作業(yè)以及作業(yè)好幫手最新版!
    版權(quán)所有 CopyRight © 2012-2024 作業(yè)小助手 All Rights Reserved. 手機(jī)版