作者chen12565 ()
看板Fortran
标题[问题] 输出档的顺序列
时间Fri May 20 11:56:16 2011
在写程式时，因为要使用tecplot输出档
但在写顺序时出错
以下是我的程式部份
character*1 namet
character*3 tx,tr
integer*2 kout
data kout/1/
equivalence (namet,tx)
namet='v'
tx=tr(kout)
open(17,file='v'//tx//'.plt')
kout=kout+1
return
end
重点在後面这边
character *2 function tr(nop)
integer*2 nop,in,iten
iten=10
in=ichar('0')
tr=char(in+int(nop/100))//char(in+int(nop/10))//char(in+mod(nop,iten))
return
end
当跑前99个输出档没问题
但当开始第100输出档後有问题
因为当nop=100时 十位数字char(in+int(nop/10))中间值会直接跳到110之後
不会从100 101 102开始
我的程式就当掉了
能否请在版上的高手
能提点我
教我如何改善此问题！
在此先说声谢谢。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 163.13.137.38
1F：→ perturb:nop/10 -> mod(nop,100)/10 不过为什麽要用这麽古老的写法 05/20 12:05