24小时热门版块排行榜    

Znn3bq.jpeg
查看: 171  |  回复: 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个字符以上)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 268分085602化学工程调剂 +29 月照花林。 2026-04-09 29/1450 2026-04-12 18:16 by zhouxiaoyu
[考研] 310求调剂 +13 666真好 2026-04-11 14/700 2026-04-12 16:48 by 1005715100
[考研] 343求调剂 +9 王国帅 2026-04-10 9/450 2026-04-11 20:31 by dongdian1
[考研] 085410 273分调剂 +4 X1999 2026-04-09 4/200 2026-04-11 13:05 by pies112
[考研] 298求调剂 +5 残荷新柳 2026-04-07 5/250 2026-04-11 11:02 by 紫曦紫棋
[考研] 调剂 +4 电气300求调剂不 2026-04-08 7/350 2026-04-11 10:44 by 紫曦紫棋
[考研] 工科273调剂 +6 X1999 2026-04-09 7/350 2026-04-11 10:23 by zhq0425
[考研] 0854调剂 +8 950824he@ 2026-04-09 8/400 2026-04-11 10:11 by zhq0425
[考研] 一志愿东北大学控制工程085406数二英二385,求调剂 +8 Ezra_Zhang 2026-04-09 8/400 2026-04-11 09:15 by 猪会飞
[考研] 材料与化工调剂 +12 否极泰来2026 2026-04-10 13/650 2026-04-11 00:28 by wangjihu
[考研] 一志愿211,化学310分,本科重点双非,求调剂 +23 努力奋斗112 2026-04-08 23/1150 2026-04-10 23:29 by 314126402
[考研] 22408 366分,本科211,一志愿西工大 +4 Rubt 2026-04-09 4/200 2026-04-10 19:51 by chemisry
[考研] 301求调剂 +5 149. 2026-04-10 5/250 2026-04-10 15:45 by 柴小白
[考研] 一志愿鲁东大学071000生物学学硕初试分数276求调剂 +20 慕绝cc 2026-04-09 24/1200 2026-04-10 10:22 by xujun0624
[考研] 297求调剂 +27 GENJIOW 2026-04-07 30/1500 2026-04-09 23:20 by wolf97
[考研] 材料专硕初试分332一志愿西北工业大学, +12 故人?? 2026-04-09 12/600 2026-04-09 18:34 by Ccclqqq
[考研] 求调剂希望还是希望在山河四省附近 +3 快乐的小白鸽 2026-04-05 3/150 2026-04-09 17:36 by wp06
[考研] 085501机械英二77总分294求调剂,接受跨专业学习 +6 守法公民亓纪 2026-04-08 6/300 2026-04-09 15:55 by wp06
[考研] 计算机11408 287 求调剂 +3 LiLe5 2026-04-07 3/150 2026-04-07 23:15 by shanqishi
[考研] 318求调剂 +5 李青山山山 2026-04-07 5/250 2026-04-07 18:24 by 蓝云思雨
信息提示
请填处理意见