| 查看: 1502 | 回复: 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 ] |
回复此楼» 猜你喜欢
270求调剂
已经有6人回复
-
275求调剂
已经有12人回复
-
化工310求调剂
已经有6人回复
-
考研调剂
已经有11人回复
-
材料与化工调剂
已经有13人回复
-
312求调剂
已经有5人回复
-
化学工程085602，322求调剂
已经有18人回复
-
310求调剂
已经有24人回复
-
308求调剂
已经有21人回复
-
生物与医药297求调剂
已经有9人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- GAUSSIAN的输入文件问题
已经有16人回复
- 大家能将用作光子晶体的聚合物球的CV值做到多小？
已经有4人回复
- 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
