| 查看: 1755 | 回复: 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 ] |
回复此楼» 猜你喜欢
本人考085602 化学工程 专硕
已经有9人回复
-
材料与化工一志愿南昌大学327求调剂推荐
已经有7人回复
-
326求调剂
已经有3人回复
-
焦虑
已经有8人回复
-
308求调剂
已经有4人回复
-
NSFC申报书里申请人简历中代表性论著还需要在申报书最后的附件里面再上传一遍吗
已经有14人回复
-
化学调剂0703
已经有7人回复
-
327求调剂
已经有11人回复
-
调剂
已经有8人回复
-
梁成伟老师课题组欢迎你的加入
已经有7人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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
- 专业: 污染生态化学
2楼2011-07-21 15:40:41
bjwang
铁杆木虫 (正式写手)
- 应助: 4 (幼儿园)
- 金币: 5860.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
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
4楼2011-07-31 13:56:02
bjwang
铁杆木虫 (正式写手)
- 应助: 4 (幼儿园)
- 金币: 5860.3
- 散金: 94
- 红花: 6
- 帖子: 792
- 在线: 556.3小时
- 虫号: 250077
- 注册: 2006-05-08
- 专业: 凝聚态物性 II ：电子结构
5楼2011-07-31 14:58:09
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
6楼2011-07-31 16:18:25
bjwang
铁杆木虫 (正式写手)
- 应助: 4 (幼儿园)
- 金币: 5860.3
- 散金: 94
- 红花: 6
- 帖子: 792
- 在线: 556.3小时
- 虫号: 250077
- 注册: 2006-05-08
- 专业: 凝聚态物性 II ：电子结构
7楼2011-08-03 10:13:57
5