24小时热门版块排行榜    

Znn3bq.jpeg
查看: 168  |  回复: 4
当前主题已经存档。
【悬赏金币】回答本帖问题,作者goalry将赠送您 3 个金币

goalry

金虫 (正式写手)

[求助] 【标题】fortran编程【有效期至2800年6月23日】

请教个问题:

1. 在fortran里怎么实现循环语句里的文件写入?

因为我有时候要在每次循环里重新开文件,写入数据,有时候循环的次数数量较大,不能一一的先open。

2. 在fortran里,把数字转化成字符串的函数名称是什么?

» 猜你喜欢

君子以自强不息,厚德载物
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

addila

木虫 (正式写手)

那就把数据先保存到数组后者保持文件一直open吧

具体不是很清楚了

能讲清楚点吗
2楼2008-06-23 09:40:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

goalry

金虫 (正式写手)

引用回帖:
Originally posted by addila at 2008-6-23 09:40:
那就把数据先保存到数组后者保持文件一直open吧

具体不是很清楚了

能讲清楚点吗

不是一直open,因为每次循环写入的数据都不在一个文件下边。

就是每次循环都打开一个新的文件供数据写入
君子以自强不息,厚德载物
3楼2008-06-23 09:52:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bybbs

★ ★
goalry(金币+2,VIP+0):OK
http://blog.chinaunix.net/u1/46984/showart_418446.html

fortran 数字与字符的转换

program convertSN
!可以借助fortran的内部文件来实现,核心概念是把字符串看作"文件"
integer::num
character*20::str1,str2,str3
num=11
str1='11'
str2='22'
str3='33'

!1,数字转字符
write(str1,"(i4.4)"num   ! 如有需要,不足四位前面补零  
print*,str1

!2,字符转数字
read(str1,"(i2)"num
print*,str1

!3,字符转字符(字符串连接...)
write(str1,"(a8)"trim(str1)//trim(str2)//trim(str3)//'eg' !两个斜杆//连接不同的字符串

!还有一种办法可以实现字符串连接
str1(3:4)=str2
str1(5:6)=str3
str1(7:8)='eg'
print*,str1
end


关于1楼里说的 是不是就是每个循环都要打开一个文件名
比如 data_循环次数(或者当前时间).txt
这种类型的??
我觉得这个完全看你想怎么处理数据了 如果你觉得存成不同文件好用 那貌似还真是没别的办法。。。
4楼2008-06-23 16:21:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhanglizhi

银虫 (正式写手)

不懂 但是祝愿————————————————
5楼2008-06-23 17:49:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 goalry 的主题更新
不应助 确定回帖应助 (注意:应助才可能被奖励,但不允许灌水,必须填写15个字符以上)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[教师之家] 山东双非院校考核超级无底线,领导幸灾乐祸,教师遭殃恐 +3 qut2026 2026-04-11 4/200 2026-04-12 16:32 by aheyingwhg
[考研] 322求调剂 +6 123安康 2026-04-12 13/650 2026-04-12 15:51 by 123安康
[考研] 一志愿双非085400电子信息344 求调剂,对材料和化学方向也感兴趣 +10 无情的小羊 2026-04-09 11/550 2026-04-12 12:30 by wp06
[考研] 296求调剂 +14 汪!?! 2026-04-10 16/800 2026-04-12 10:48 by zhouyuwinner
[考研] 308求调剂 +5 VvvvL 2026-04-10 5/250 2026-04-12 10:17 by babysonlkd
[考研] 调剂 +10 月@163.com 2026-04-11 10/500 2026-04-12 09:14 by zhouyuwinner
[考研] 农业管理302分求调剂 +3 xuening1 2026-04-10 3/150 2026-04-11 10:18 by zhq0425
[考研] 求调剂 +13 雪逢冬 2026-04-10 13/650 2026-04-11 09:58 by 猪会飞
[考研] 083200 305分 求二轮调剂 不接受跨专业 +9 Claireyyyy 2026-04-09 10/500 2026-04-10 21:21 by Claireyyyy
[考研] 298求调剂 +13 钉叮咚冬瓜 2026-04-09 13/650 2026-04-10 15:49 by jiajinhpu
[考研] 青岛科技大学材料学院,环境学院调剂补录4月10日以前都可以 +3 1青科大。 2026-04-09 5/250 2026-04-10 09:58 by 翩翩一书生
[考研] 297求调剂 +27 GENJIOW 2026-04-07 30/1500 2026-04-09 23:20 by wolf97
[考研] 复试调剂,一志愿郑州大学材料与化工289分 +31 硕星赴 2026-04-08 31/1550 2026-04-09 16:54 by Delta2012
[考研] 一志愿西南大学生物学学硕344 求生物学相关调剂/生物与医药 +7 超人不会飞@ 2026-04-08 7/350 2026-04-09 09:35 by gong120082
[考研] 338求调剂 +8 wxygxsaaaaa 2026-04-06 8/400 2026-04-08 06:58 by 无际的草原
[考研] 材料调剂 +13 汉123456 2026-04-07 14/700 2026-04-07 22:53 by 来看流星雨10
[考研] 372分材料与化工(085600)英二数二求调剂 +4 蓝笺片 2026-04-06 4/200 2026-04-07 12:30 by dongzh2009
[考研] 信工所11408 340分 本科西安交大自动化 +3 moontrek 2026-04-06 3/150 2026-04-07 09:56 by chongya
[考研] 软工学硕299求调剂 +6 useryy 2026-04-07 6/300 2026-04-07 09:50 by vgtyfty
[考研] 308求调剂 +3 终不似从前 2026-04-05 3/150 2026-04-05 22:23 by hemengdong
信息提示
请填处理意见