| 查看: 2149 | 回复: 24 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
Gina88木虫 (正式写手)
|
[求助]
FORTRAN中如何实现重复读取一行？
|
||
|
如题：fortran中如何实现重复读取一行啊？ 第一次读取的时候是将其作为字符串读取的，进行统计，看看数据的个数，然后好定义数组的大小， 第二次读取的时候是将其作为数来读取的，并存入所定义的数组中。 先谢谢大侠了！ |
回复此楼» 猜你喜欢
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有8人回复
-
寻求一种能扛住强氧化性腐蚀性的容器密封件
已经有5人回复
-
论文投稿，期刊推荐
已经有6人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
孩子确诊有中度注意力缺陷
已经有14人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有5人回复
-
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
Gina88
木虫 (正式写手)
- 应助: 9 (幼儿园)
- 金币: 3328.8
- 散金: 124
- 红花: 8
- 帖子: 395
- 在线: 113小时
- 虫号: 1047684
- 注册: 2010-06-26
- 专业: 理论和计算化学
|
您好，我又来找您帮忙了：我写了下面一个fortran的程序。也用您原来教我的write（*，*）查看了，查看了里面的ispin的确是2，因为在91行的循环中我用了i=1，ispin。可是怎么每次i只能等于1，而不能i=2啊，也就是91行的循环怎么不起作用啊？ 多次麻烦您，谢谢您了！ dos-procar1.f90(5.78KB) http://kuai.xunlei.com/d/LnU4DYxJXv3aUAQA6ad?p=130497 DOSCAR(810.18KB) http://kuai.xunlei.com/d/LnU4DZBJsv3aUAQA876?p=130497 EIGENVAL(27.2KB) http://kuai.xunlei.com/d/LnU4DZZJ-P3aUAQA9ec?p=130497 PROCAR(1.69MB) http://kuai.xunlei.com/d/LnU4DZhJHv7aUAQA1d3?p=130497 |
21楼2012-12-26 21:46:06
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2012-12-16 22:40:57
Gina88
木虫 (正式写手)
- 应助: 9 (幼儿园)
- 金币: 3328.8
- 散金: 124
- 红花: 8
- 帖子: 395
- 在线: 113小时
- 虫号: 1047684
- 注册: 2010-06-26
- 专业: 理论和计算化学
送鲜花一朵|
嗯，您说的这个方法确实可行，我已经用上了。 呵呵，谢谢啦！ 不过那个call system的还没有解决，不知道您会不？ 还有就是在用read(28,'(a)')line判断一个很长很长的行的时候，好像判断不出来。不知道您有没有好的办法？比如处理下面的这个文件得到的结果就不正确。 DOSCAR(2.11MB) http://kuai.xunlei.com/d/LnU4DcS3cujNUAQA891?p=130497 |
3楼2012-12-16 23:31:11
Gina88
木虫 (正式写手)
- 应助: 9 (幼儿园)
- 金币: 3328.8
- 散金: 124
- 红花: 8
- 帖子: 395
- 在线: 113小时
- 虫号: 1047684
- 注册: 2010-06-26
- 专业: 理论和计算化学
4楼2012-12-16 23:39:19