| 查看: 568 | 回复: 5 | |||
| 当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖 | |||
[交流]
【求助】我的程序中有一个负的实数输出时,老是显示******【已完结】 已有2人参与
|
|||
|
我的程序就是从STATIS文件中读入一些数据,然后输出其中一些相关的数据,可是有一个负的实数输出时老是显示*******,请大家帮忙,谢谢 PROGRAM MAIN IMPLICIT NONE DOUBLE PRECISION STEP(80000), TIM(80000), ENERGY(5), INTEGER, PARAMETER:: nstep=80000 INTEGER I, DUM !=================================================== OPEN (UNIT=21, FILE='energy') OPEN (UNIT=11, FILE='STATIS') DO I = 1, nstep READ (11, *) STEP(I), TIM(I), DUM READ (11, *) ENERGY(1), ENERGY(2), ENERGY(3), ENERGY(4), ENERGY(5) WRITE (21, "(3F12.6)" TIM(I), ENERGY(1), ENERGY(2)END DO CLOSE (11) CLOSE (21) STOP END [ Last edited by 余泽成 on 2010-12-13 at 22:03 ] |
» 猜你喜欢
化工学硕294分,求导师收留
已经有29人回复
求调剂
已经有10人回复
考研求调剂
已经有13人回复
求调剂
已经有3人回复
人工智能320调剂08工类还有机会吗
已经有17人回复
考研英一数一338分
已经有10人回复
求助调剂,跨调
已经有15人回复
085600材料与化工329分求调剂
已经有20人回复
085600材料与化工349分求调剂
已经有15人回复
求调剂
已经有13人回复


3楼2010-12-13 11:33:16

2楼2010-12-13 11:32:17

4楼2010-12-13 11:35:13

5楼2010-12-13 12:27:11














TIM(I), ENERGY(1), ENERGY(2)
回复此楼