24小时热门版块排行榜    

Znn3bq.jpeg
查看: 170  |  回复: 4
当前主题已经存档。
【悬赏金币】回答本帖问题,作者goalry将赠送您 3 个金币
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

goalry

金虫 (正式写手)

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

请教个问题:

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

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

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

» 猜你喜欢

君子以自强不息,厚德载物
已阅   回复此楼   关注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的回帖
查看全部 5 个回答

addila

木虫 (正式写手)

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

具体不是很清楚了

能讲清楚点吗
2楼2008-06-23 09:40:17
已阅   回复此楼   关注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的回帖
不应助 确定回帖应助 (注意:应助才可能被奖励,但不允许灌水,必须填写15个字符以上)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料工程085601,270求调剂 +32 @ASDF1234 2026-04-08 34/1700 2026-04-12 18:02 by 郁郁菲菲
[考研] 085600材料与化工,求调剂 +12 won_qii 2026-04-07 12/600 2026-04-12 17:02 by lhj2009
[考研] 308求调剂 +5 VvvvL 2026-04-10 5/250 2026-04-12 10:17 by babysonlkd
[考研] 296求调剂 +8 汪!?! 2026-04-09 8/400 2026-04-11 21:02 by 逆水乘风
[考研] 086003调剂求助 +21 苏弋万 2026-04-09 22/1100 2026-04-11 20:25 by dongdian1
[考研] 359求调剂 +5 胃痉挛累了 2026-04-11 5/250 2026-04-11 19:55 by lbsjt
[考研] 296求调剂 +6 汪!?! 2026-04-09 6/300 2026-04-11 11:25 by zhq0425
[考研] 085600材料与化工329分求调剂 +16 叶zilin 2026-04-10 16/800 2026-04-11 11:04 by may_新宇
[考研] 300分求调剂 (085501机械专硕,本科扬大) +8 xu@841019 2026-04-11 8/400 2026-04-11 10:46 by qingpingzhu
[考研] 283求调剂,工科! +12 苏打水7777 2026-04-08 12/600 2026-04-11 10:28 by 逆水乘风
[考研] 一志愿985机械学硕380求调剂 +5 关关雎鸠10 2026-04-11 5/250 2026-04-11 10:10 by 知念。A
[考研] 求调剂288 +6 ioodiiij 2026-04-10 8/400 2026-04-10 21:07 by zhouxiaoyu
[考研] 青岛科技大学材料学院,环境学院调剂补录4月10日以前都可以 +3 1青科大。 2026-04-09 5/250 2026-04-10 09:58 by 翩翩一书生
[考研] 已调剂 +18 柴郡猫_ 2026-04-09 19/950 2026-04-09 22:10 by 柴郡猫_
[考研] 求机械专硕297第二批调剂 +5 拾柒12。 2026-04-08 5/250 2026-04-09 16:43 by 允当适度
[考研] 一志愿鲁东大学071000生物学学硕初试分数276求调剂 +3 慕绝cc 2026-04-09 3/150 2026-04-09 09:57 by liuhuiying09
[考研] 334求调剂 +16 Riot2025 2026-04-08 17/850 2026-04-09 09:28 by wdyheheeh
[考研] 286求调剂 +19 Faune 2026-04-08 20/1000 2026-04-09 08:36 by 哦哦123
[考研] 353求调剂 +8 晴空万里air 2026-04-07 8/400 2026-04-09 00:18 by GouQ
[考研] 22408 调剂材料 +7 我叫ez 2026-04-06 8/400 2026-04-07 17:12 by 蓝云思雨
信息提示
请填处理意见