- 积分
- 7
- 注册时间
- 2012-10-5
- 仿真币
-
- 最后登录
- 1970-1-1
|
发表于 2017-5-23 21:50:28
|
显示全部楼层
来自 上海
增量步是整数。
要用JRRAY 取
++++++++++++++++++++++==
write(1001,'(a8,i2)') 'gongyou:',array(1)
c record key
write(1001,'(a11,i5)') 'record key:',JRRAY(1,2)
c total time
write(1001,'(a11,f8.3)') 'total time:',array(3)
c step time
write(1001,'(a11,f8.3)') 'step time:',array(4)
c step number
write(1001,'(a13,i5)') 'step number:',jrray(1,8)
c increment number
write(1001,'(a18,i5)') 'increment number:',jrray(1,9)
c time increment
write(1001,'(a18,f5.1)') 'time increment:',array(13)
write(1001,'(a18,f5.1)') 'JCRD:',jrcd
close(1001)
++++++++++++++++++++++++
gongyou:23
record key: 2000
total time: 2.200
step time: 1.200
step number: 2
increment number: 6
time increment: 0.2
JCRD: 0.0
|
|