作者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