| 查看: 563 | 回复: 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 ] |
回复此楼» 猜你喜欢
有爆料，一个青年教师卖房得400万，然后换了一个四青帽子
已经有10人回复
-
一志愿西交机械专硕求调剂
已经有9人回复
-
245求调剂
已经有6人回复
-
材料相关专业344求调剂双非工科学校或课题组
已经有15人回复
-
材料复试求调剂
已经有24人回复
-
327求调剂
已经有11人回复
-
288求调剂，一志愿华南理工大学071005
已经有20人回复
-
有没有学校材料专业收跨调(一志愿085410)
已经有16人回复
-
各位老师好，求调剂，本科211，一志愿天津大学生物与医药学硕，差两名录取。
已经有5人回复
-
化工学硕294分，求导师收留
已经有23人回复
2楼2010-12-13 11:32:17
3楼2010-12-13 11:33:16
4楼2010-12-13 11:35:13
5楼2010-12-13 12:27:11
6楼2010-12-13 12:53:59
