| 查看: 946 | 回复: 5 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
木木菜金虫 (小有名气)
|
[求助]
fortran文件问题
|
|
|
我想将计算结果p（i，j）存储到dat文件，并且输出的dat文件按输出顺序命名如‘1.dat’，‘2.dat’。。。。。这样···那下面的程序要怎么改，求帮助····谢谢哈~~ subroutine datasave(p) integer::size1=nx,size2=ny real, allocate:  p(size1,size2))integer i, j,num character allocate::name(  num=time1/output open(num, file='num.dat', status='new', rec=num) do j=1,ny do i=1,nx write(num, '(f16.8)',rec=num) p(i,j) enddo write(num,*) '\n' enddo deallocate (p) close(num) end datasave |
回复此楼» 猜你喜欢
想换工作。大多数高校都是 评职称时 认可5年内在原单位取得的成果吗？
已经有9人回复
-
求个博导看看
已经有16人回复
-
上海工程技术大学张培磊教授团队招收博士生
已经有4人回复
-
上海工程技术大学【激光智能制造】课题组招收硕士
已经有5人回复
-
求助院士们，这个如何合成呀
已经有4人回复
-
临港实验室与上科大联培博士招生1名
已经有9人回复
-
需要合成515-64-0，50g，能接单的留言
已经有4人回复
-
自荐读博
已经有4人回复
-
写了一篇“相变储能技术在冷库中应用”的论文，论文内容以实验为主，投什么期刊合适？
已经有6人回复
-
带资进组求博导收留
已经有10人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- fortran读写问题
已经有6人回复
- FORTRAN中如何实现重复读取一行？
已经有24人回复
- 急求fortran运行错误原因，在线等
已经有7人回复
- fortran程序open文件时的简单问题
已经有3人回复
- fortran转换CHGCAR出错
已经有4人回复
- Fortran 编译问题
已经有9人回复
- 请教一个fortran小程序编译出错的问题，谢谢
已经有9人回复
- Fortran的格式化输入输出问题
已经有14人回复
- 三维数组换行输入到文件（intel fortran 编译器）
已经有6人回复
- fortran两个问题，文件中的空格，屏幕同一行覆盖输出
已经有23人回复
- 有关fortran的一次而问题，希望大家能帮帮忙，谢谢
已经有4人回复
- 【求助】FORTRAN写文件时每行开头都多了一个空格？
已经有6人回复
- 【求助】求助fortran中一个调用文件的问题
已经有3人回复
- 【求助】Fortran编译目标文件后的链接问题
已经有4人回复
- 【求助】fortran中怎么存储不确定长度的数据【已完结】
已经有6人回复
- 【求助】Fortran程序，如何让exe文件可以单独运行？
已经有6人回复
- 【求助】Fortran 如何读取文件中特定行的内容
已经有16人回复
- 【求助】matlab读取fortran输出的txt文件【已解决】
已经有3人回复
- 【交流】Fortran语言答疑专帖
已经有157人回复
6楼2013-07-30 12:47:58
2楼2013-07-29 15:59:42
木木菜
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1941.8
- 散金: 196
- 红花: 2
- 帖子: 186
- 在线: 202.1小时
- 虫号: 1945963
- 注册: 2012-08-19
- 专业: 金属结构材料
3楼2013-07-29 16:42:45
【答案】应助回帖
★ ★ ★ ★ ★
木木菜: 金币+5, ★★★★★最佳答案, 谢谢哈~~~ 2013-07-30 11:29:50
木木菜: 金币+5, ★★★★★最佳答案, 谢谢哈~~~ 2013-07-30 11:29:50
|
把num=time1/output open(num, file='num.dat', status='new', rec=num) do j=1,ny do i=1,nx write(num, '(f16.8)',rec=num) p(i,j) enddo write(num,*) '\n' enddo 改为 character(len=2)::temp num=int（time1/output） write(temp,'(i2)')num open(num, file=trim(adjustl(temp))//'.dat', status='new') do j=1,ny write(num, *) p(:,j） enddo [ 发自手机版 http://muchong.com/3g ] |
4楼2013-07-29 18:37:56