Re: [問題] 不想改變初始值
我不知道為什麼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
討論串 (同標題文章)
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章