| 查看: 1158 | 回复: 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人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有110人回复
-
明天放榜？
已经有5人回复
-
时间戳变了，能看出什么问题？
已经有11人回复
-
重要消息，中午系统在维护
已经有10人回复
-
两姐妹，一个辛辛苦苦30岁工作当大学教师，另一个23岁就工作当开车教练
已经有7人回复
-
投稿咨询
已经有6人回复
-
时间戳又变了8-15
已经有26人回复
-
今天维护系统维护 祝所有人 高中
已经有9人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有16人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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 (幼儿园)
- 金币: 1871.8
- 散金: 247
- 红花: 2
- 帖子: 189
- 在线: 202.6小时
- 虫号: 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 (幼儿园)
- 金币: 1871.8
- 散金: 247
- 红花: 2
- 帖子: 189
- 在线: 202.6小时
- 虫号: 1945963
- 注册: 2012-08-19
- 专业: 金属结构材料
5楼2013-07-30 11:39:38
6楼2013-07-30 12:47:58
