应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » fortran文件问题
61/1返回列表
查看: 1009  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

木木菜

金虫 (小有名气)

[求助] 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
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2013-07-29 09:59:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhg19

金虫 (小有名气)

【答案】应助回帖

感谢参与，应助指数 +1
num是什么，值为多少？

[ 发自手机版 http://muchong.com/3g ]
赞一下 回复此楼
2楼2013-07-29 15:59:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

木木菜

金虫 (小有名气)
引用回帖:
2楼: Originally posted by zhg19 at 2013-07-29 15:59:42
num是什么，值为多少？

num=time1/output  其中time1是计算次数会变的···output是常数是实现设定的程度，主程序中会以mod（time1，output）==0这个条件去调用这个子程序····另外还有个问题本来是在c中需要要num=（int）（time1/output）强制转换类型····不知道fortran中怎么实现~~~谢谢哈···
赞一下 回复此楼
3楼2013-07-29 16:42:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhg19

金虫 (小有名气)

【答案】应助回帖

★ ★ ★ ★ ★
木木菜: 金币+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
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

木木菜

金虫 (小有名气)
引用回帖:
4楼: Originally posted by zhg19 at 2013-07-29 18:37:56
把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=i ...

在问下adjustl（）是什么用的呢？
赞一下 回复此楼
5楼2013-07-30 11:39:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhg19

金虫 (小有名气)
引用回帖:
5楼: Originally posted by 木木菜 at 2013-07-30 11:39:38
在问下adjustl（）是什么用的呢？...

字符函数，齐左调整

[ 发自手机版 http://muchong.com/3g ]
赞一下 回复此楼
6楼2013-07-30 12:47:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 木木菜 的主题更新
61/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿武理材料305分求调剂 +6 想上岸的鲤鱼 2026-03-18 7/350 2026-03-21 01:03 by JourneyLucky
[考研] 一志愿南昌大学，327分，材料与化工085600 +9 Ncdx123456 2026-03-19 9/450 2026-03-20 23:41 by lovewei0727
[考研] 考研调剂求学校推荐 +3 伯乐29 2026-03-18 5/250 2026-03-20 22:59 by JourneyLucky
[考研] 一志愿武汉理工材料工程专硕调剂 +9 Doleres 2026-03-19 9/450 2026-03-20 22:36 by JourneyLucky
[考研] 324求调剂 +5 lucky呀呀呀鸭 2026-03-20 5/250 2026-03-20 22:30 by 促天成
[考研] 北科281学硕材料求调剂 +5 tcxiaoxx 2026-03-20 5/250 2026-03-20 21:35 by laoshidan
[考研] 一志愿武理材料工程348求调剂 +3 ￣^￣゜汗 2026-03-19 4/200 2026-03-20 21:01 by zhukairuo
[考研] 319求调剂 +3 小力气珂珂 2026-03-20 3/150 2026-03-20 19:47 by JourneyLucky
[考研] 求调剂 +3 @taotao 2026-03-20 3/150 2026-03-20 19:35 by JourneyLucky
[考研] 261求B区调剂，科研经历丰富 +3 牛奶很忙 2026-03-20 4/200 2026-03-20 19:34 by JourneyLucky
[考研] 工科材料085601 279求调剂 +7 困于星晨 2026-03-17 9/450 2026-03-20 17:38 by 无懈可击111
[考研] 298-一志愿中国农业大学-求调剂 +9 手机用户 2026-03-17 9/450 2026-03-20 14:24 by 无懈可击111
[考研] 0703化学调剂 +10 妮妮ninicgb 2026-03-15 14/700 2026-03-19 22:59 by 学员8dgXkO
[考研] 一志愿西安交通大学材料工程专业 282分求调剂 +5 枫桥ZL 2026-03-18 7/350 2026-03-19 14:52 by 功夫疯狂
[考研] 材料工程专硕调剂 +5 204818@lcx 2026-03-17 6/300 2026-03-18 22:55 by 204818@lcx
[考研] 【同济软件】软件（085405）考研求调剂 +3 2026eternal 2026-03-18 3/150 2026-03-18 19:09 by 搏击518
[考研] 311求调剂 +6 26研0 2026-03-15 6/300 2026-03-18 14:43 by haxia
[考研] 334求调剂 +3 志存高远意在机� 2026-03-16 3/150 2026-03-18 08:34 by lm4875102
[考研] 0856专硕279求调剂 +5 加油加油！? 2026-03-15 5/250 2026-03-15 11:58 by 2020015
[考研] 080500，材料学硕302分求调剂学校 +4 初识可乐 2026-03-14 5/250 2026-03-14 21:08 by peike
信息提示
关闭
请填处理意见
关闭