24小时热门版块排行榜    

查看: 164  |  回复: 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个字符以上)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 能源材料化学课题组招收硕士研究生8-10名 +5 脱颖而出 2026-03-16 15/750 2026-03-21 10:16 by 脱颖而出
[考研] 265求调剂 +3 Jack?k?y 2026-03-17 3/150 2026-03-21 03:17 by JourneyLucky
[考研] 一志愿 西北大学 ,070300化学学硕,总分287,双非一本,求调剂。 +3 晨昏线与星海 2026-03-18 3/150 2026-03-21 00:46 by JourneyLucky
[考研] 354求调剂 +5 Tyoumou 2026-03-18 8/400 2026-03-21 00:35 by JourneyLucky
[考研] 287求调剂 +7 晨昏线与星海 2026-03-19 8/400 2026-03-20 22:19 by JourneyLucky
[考研] 药学383 求调剂 +3 药学chy 2026-03-15 5/250 2026-03-20 22:11 by 云游重阳
[考研] 一志愿苏州大学材料求调剂,总分315(英一) +5 sbdksD 2026-03-19 5/250 2026-03-20 22:10 by luoyongfeng
[考研] 0817 化学工程 299分求调剂 有科研经历 有二区文章 +22 rare12345 2026-03-18 22/1100 2026-03-20 20:39 by zhukairuo
[考研] 086500 325 求调剂 +3 领带小熊 2026-03-19 3/150 2026-03-20 18:38 by 尽舜尧1
[考研] 281求调剂(0805) +14 烟汐忆海 2026-03-16 25/1250 2026-03-20 15:47 by yuncha
[考研] 286分人工智能专业请求调剂愿意跨考! +3 lemonzzn 2026-03-17 4/200 2026-03-20 11:04 by lemonzzn
[考研] 生物学调剂招人!!! +3 山海天岚 2026-03-17 4/200 2026-03-19 21:34 by 怎么释怀
[考研] 266求调剂 +5 阳阳哇塞 2026-03-14 10/500 2026-03-19 15:08 by 阳阳哇塞
[考研] 286求调剂 +6 lemonzzn 2026-03-16 10/500 2026-03-19 14:31 by lemonzzn
[考研] 304求调剂 +12 小熊joy 2026-03-14 13/650 2026-03-18 12:34 by Linda Hu
[考研] 277调剂 +5 自由煎饼果子 2026-03-16 6/300 2026-03-17 19:26 by 李leezz
[硕博家园] 湖北工业大学 生命科学与健康学院-课题组招收2026级食品/生物方向硕士 +3 1喜春8 2026-03-17 5/250 2026-03-17 17:18 by ber川cool子
[考研] 308求调剂 +4 是Lupa啊 2026-03-16 4/200 2026-03-17 17:12 by ruiyingmiao
[考研] 中科院材料273求调剂 +4 yzydy 2026-03-15 4/200 2026-03-16 15:59 by Gaodh_82
[考研] 327求调剂 +6 拾光任染 2026-03-15 11/550 2026-03-15 22:47 by 拾光任染
信息提示
请填处理意见