| 查看: 1615 | 回复: 6 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
bjwang铁杆木虫 (正式写手)
|
[求助]
三维数组换行输入到文件（intel fortran 编译器）
|
|
|
我有一个三维数组r2i（imax,jmx.kmax）,想把它写入到一个文件，要求如下： 第一行排r2i（1-imax，1,1）对应的数组元素，然后换行排r2i（1-imax，2,1）等等。 我是按下面来执行的，但达不到目的，输入到文件的列数好像大于imax的值，不知错在何处？哪位高手帮忙解决一下，谢谢！ open(10,file='/home/omega-i.dat',status='new') do k=1,kmax do j=1,jmax write(17,"(1X,E15.6,\)"  (r2i(i,j,k),i=1,imax)enddo enddo close(10) [ Last edited by jjdg on 2011-7-13 at 21:59 ] |
回复此楼» 猜你喜欢
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有6人回复
-
孩子确诊有中度注意力缺陷
已经有14人回复
-
三甲基碘化亚砜的氧化反应
已经有4人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有5人回复
-
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
-
AI论文写作工具：是科研加速器还是学术作弊器？
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
GAUSSIAN的输入文件问题
已经有16人回复- LATEX 怎么让陶瓷化学表达式换行？？？？？
已经有3人回复
- 写了一个fortran90的小程序，编译通不过，请大侠帮忙
已经有59人回复
- 将菌涂布到平板后如何检测
已经有10人回复
- 【求助】从文件读入数组遇到困难
已经有3人回复
- BBRC投稿，文件已上传，但为何状态显示0？
已经有10人回复
- 请问如何将txt文件导入EXCEL，然后再将经EXCEL编辑的数据导回TXT？
已经有1人回复
- 【求助】如何做三维数组的图形
已经有6人回复
- 【求助】关于 TDB 文件的 亚点阵位置分数
已经有4人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
4楼2011-07-31 13:56:02
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2011-07-21 15:40:41
bjwang
铁杆木虫 (正式写手)
- 应助: 4 (幼儿园)
- 金币: 5859.3
- 散金: 94
- 红花: 6
- 帖子: 792
- 在线: 556.3小时
- 虫号: 250077
- 注册: 2006-05-08
- 专业: 凝聚态物性 II ：电子结构
★
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-31 13:13:35
dubo(金币+1): 欢迎常来程序语言版讨论 2011-07-31 13:13:35
|
我是利用 write(17,300) (r2is(i,j,k),i=1,imax) 300 FORMAT (107E15.6) ！107为imax值 来达到目的的！！！！！ 但最后发现，对imax值较小时（目前验证为107）是可行的，但为165时就不行了，照样可以运行和输出，但另一个读取这个输出的软件（软件应该没问题）出错。这和Fortran 90/95标准中规定，当程序代码中的一行超过132个字符时，需要用&续行有关吗？ 我修改如下（但编译说无法终止）： if(imax.le.132)then do k=1,kmax do j=1,jmax write(17,300) (r2is(i,j,k),i=1,imax) 300 FORMAT (165E15.6) !HERE, 107=imax for alter row per imax enddo enddo close(17) else do k=1,kmax do j=1,jmax write(17,400) (r2is(i,j,k),i=1,130) 400 FORMAT (130E15.6) write(17,500)'&' 500 FORMAT (A1) write(17,600) (r2is(i,j,k),i=131,imax) 600 FORMAT (39E15.6) ! imax-130 enddo enddo close(17) 这里两个问题： 1）是Fortran 90/95标准中规定132列造成的问题吗？ 2）如果是，下面的程序哪点有问题？ 谢谢各位兄弟了！！！ |
3楼2011-07-31 12:44:08
bjwang
铁杆木虫 (正式写手)
- 应助: 4 (幼儿园)
- 金币: 5859.3
- 散金: 94
- 红花: 6
- 帖子: 792
- 在线: 556.3小时
- 虫号: 250077
- 注册: 2006-05-08
- 专业: 凝聚态物性 II ：电子结构
5楼2011-07-31 14:58:09