Re: [問題] 不想改變初始值

看板Fortran作者 (法號曉天)時間15年前 (2009/04/26 22:49), 編輯推噓1(101)
留言2則, 1人參與, 最新討論串2/2 (看更多)
我不知道為什麼IDND的值會變,或許可以試試把IDND宣告成常數, integer(4),dimension(6,5),parameter :: IDND=reshape((/ & 0,0,0,0,0,0,1,2,0,0,0,3,4,5,0,0,0,6,0,0,0,0,0,7,8,9,0,0,0,0/) & ,(/6,5/)) 這樣可以保證IDND的值不會變。 ※ 引述《RuinGgg (坦克)》之銘言: : 假設我有一個初始數列 : IDND(6,5) : 1. 0 0 0 0 0 0 : 2. 1 2 0 0 0 3 : 3. 4 5 0 0 0 6 : 4. 0 0 0 0 0 7 : 5. 8 9 0 0 0 0 : 我在程式中用它做了一些運算 : DO IB=1,5 : DO J=1,12 : IF(J .GE. 7) THEN : LMBC(J,IB) = IDND(J-6,IDBC(2,IB)) : ELSE : LMBC(J,IB) = IDND(J,IDBC(1,IB)) : END IF : END DO : END DO : 這段主要是想利用IDND去計算出LMBC這東西 : 但我發現計算完LMBC後,IDND的值也跟著變了~ : 因為後續還需要用到IDND這個東西~ : IDND一定要維持原本的初始模樣~ : 想了很久不知道怎麼解決~"~ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 114.46.115.133

04/27 00:00, , 1F
謝謝你的回答^^ 不過我發現我的錯誤了...
04/27 00:00, 1F

04/27 00:01, , 2F
我很白癡的打指標的時候英文名稱拼錯~結果後面就跟著錯...
04/27 00:01, 2F
文章代碼(AID): #19z7IKIo (Fortran)
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 2 之 2 篇):
文章代碼(AID): #19z7IKIo (Fortran)