| 查看: 1214 | 回复: 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 |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有17人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有14人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有16人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有15人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有15人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有15人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有15人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有18人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有12人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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人回复
2楼2013-07-29 15:59:42
木木菜
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1856.8
- 散金: 257
- 红花: 2
- 帖子: 190
- 在线: 202.8小时
- 虫号: 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
木木菜
金虫 (小有名气)
- 应助: 0 (幼儿园)
- 金币: 1856.8
- 散金: 257
- 红花: 2
- 帖子: 190
- 在线: 202.8小时
- 虫号: 1945963
- 注册: 2012-08-19
- 专业: 金属结构材料
5楼2013-07-30 11:39:38
6楼2013-07-30 12:47:58
