作者YCTzeng (法號曉天)
看板Fortran
標題Re: [問題] 不想改變初始值
時間Sun Apr 26 22:49:55 2009
我不知道為什麼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
1F：推 RuinGgg:謝謝你的回答^^ 不過我發現我的錯誤了... 04/27 00:00
2F：→ RuinGgg:我很白癡的打指標的時候英文名稱拼錯~結果後面就跟著錯... 04/27 00:01