| 查看: 829 | 回复: 16 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】无法读入数据
|
|||
|
刚接触FORTRAN语言，想请问下面这个程序为什么输出为0？实际数据不为0！ program read_h implicit none integer str double precision h character*80 ch open(12,file='out' ,status='unknown') read(12,'(A80)') ch if( ch(1:33).eq.' FCInt: Cartesian force constants:')then read(12,*) read(12,*) str,h endif write(11,'(F8.5,3x)') h write(*,*) end program |
回复此楼» 猜你喜欢
11408软件工程求调剂
已经有3人回复
-
一志愿211 初试270分 求调剂
已经有8人回复
-
300求调剂，材料科学英一数二
已经有6人回复
-
学硕274求调剂
已经有9人回复
-
本科双非材料，跨考一志愿华电085801电气，283求调剂，任何专业都可以
已经有7人回复
-
各位老师好，我的一志愿为北京科技大学085601材料专硕
已经有3人回复
-
317分 一志愿南理工材料工程 本科湖工大 求调剂
已经有7人回复
-
081200-11408-276学硕求调剂
已经有5人回复
-
316求调剂
已经有7人回复
-
322求调剂
已经有7人回复
9楼2009-10-23 15:33:59
nono2009
超级版主 (文学泰斗)
No gains, no pains.
-
专家经验: +21105 - 应助: 28684 (院士)
- 贵宾: 513.911
- 金币: 2555230
- 散金: 27828
- 红花: 2148
- 沙发: 66666
- 帖子: 1602255
- 在线: 65200.9小时
- 虫号: 827383
- 注册: 2009-08-13
- 性别: GG
- 专业: 工程热物理与能源利用
- 管辖: 科研家筹备委员会
2楼2009-10-23 11:59:56
senlia
木虫 (小有名气)
- 应助: 2 (幼儿园)
- 贵宾: 3.521
- 金币: 2178.1
- 红花: 1
- 帖子: 223
- 在线: 6.7小时
- 虫号: 849005
- 注册: 2009-09-16
- 性别: GG
- 专业: 计算数学与科学工程计算
3楼2009-10-23 13:02:50
4楼2009-10-23 14:43:24
