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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【交流】Fortran语言答疑专帖
北京石油化工学院2026年研究生招生接收调剂公告
1589/16返回列表首页上一页789101112下一页末页
查看: 11515  |  回复: 157
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
本帖产生 1 个 程序强帖 ，点击这里进行查看

idgnauh

银虫 (小有名气)
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
jjdg:欢迎交流 2010-04-06 02:51
Fortran写入的文件怎样进行更改呀?
比如说我想在一个文件的开头说明该文件的数据的个数，而个数是不确定的，需要在执行程序后，在开头写入这个个数。我是了几种方法，比如通过rewind来返回文件头，可是这样整个文件后面存储的数据都被EOF了，不知道该怎么处理。希望各位大牛们能够帮帮我，在这先谢过啦。
赞一下(2人) 回复此楼
81楼2010-04-05 09:00:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

asiahu

银虫 (初入文坛)
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
jjdg:感谢交流 2010-04-06 02:51
作为初学者，对Fortran的感觉是它很强大，但又有一种畏惧学不懂的感觉，期待楼主的资源

[ Last edited by jjdg on 2010-4-6 at 02:50 ]
赞一下(2人) 回复此楼
路曼曼其修远兮，吾将上下而求索
82楼2010-04-05 23:50:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

figgers

铜虫 (初入文坛)
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+2):谢谢参与应助！ 2010-04-10 16:22
引用回帖:
Originally posted by idgnauh at 2010-04-05 09:00:43:
Fortran写入的文件怎样进行更改呀?
比如说我想在一个文件的开头说明该文件的数据的个数，而个数是不确定的，需要在执行程序后，在开头写入这个个数。我是了几种方法，比如通过rewind来返回文件头，可是这样整个文 ...

我遇到过类似问题，好在我的输出数据行数就在几千行，不算多。
我用的是最笨的办法:

写好你要的文件1
......
close(1)

然后开另一个文件2
写开头
重新打开文件1
逐行copy文件1的内容到文件2
read....
write..
close(1)
close(2)

几千行的文件（1行几百个char吧），速度还可以。
可能应该有更好的办法吧

[ Last edited by figgers on 2010-4-10 at 13:23 ]
赞一下(2人) 回复此楼
83楼2010-04-10 13:21:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

figgers

铜虫 (初入文坛)
引用回帖:
Originally posted by lnba at 2010-01-14 07:26:36:
fortran里面的整型变量最大只能定义为integer*4，也就是2^31吗？有没有可能定义更大的整型变量？我用integer*8它总是报错...

这个跟编译器有关吧，ivf11.1就支持integer(kind=8)类型的, cvf就不支持.
赞一下 回复此楼
84楼2010-04-10 13:26:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

idgnauh

银虫 (小有名气)
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
引用回帖:
Originally posted by figgers at 2010-04-10 13:21:40:



我遇到过类似问题，好在我的输出数据行数就在几千行，不算多。
我用的是最笨的办法:

写好你要的文件1
......
close(1)

然后开另一个文件2
写开头
重新打开文件1
逐行copy文件1的内容到文件2
r ...

和figgers想到一块去啦，我最后一是这么弄的。Fortran要是有把文件拼起来的函数就好了。
赞一下(1人) 回复此楼
85楼2010-04-10 14:44:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

astringent

铜虫 (著名写手)

怎样把一组数存入数组？？

★
小木虫(金币+0.5):给个红包，谢谢回帖交流
您好，我想请教一个问题，
1       15733
1       18193
1       20251
2       15733
2       20251
3       20824
4       15733
4       16159
4       18193
4       20251
4       20824
5       16159
5       18193
5       20251
5       20824
6       15733
6       20251
6       20824
7       15733
7       20251
7       20824
8       15733
8       16159
8       18193
8       20251
9       18193
9       20251
10        9490
10       16159
10       20251
（1）上面数据存在aaa.txt文件中。对于上面的数据，第二列是步数（step），第三列是每步的可能取值。我想将这些数据读入，并保存在数组H（io，istep）中。io可以取从1到30000但是只有当io取文件中第二列对应的值时H（io，istep）=1，取其他值均为0.也就是说当step=1时，io取15733，18193，20251时H的值为1，取其他值都为0，当step=2时，io取15733，20251时H的值为1，取其他值都为0。我应该怎样实现呢，我想了好久还是没想出来。期待专家的解答。先谢谢了。
赞一下(1人) 回复此楼
86楼2010-12-02 04:59:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

maomao1210

金虫 (正式写手)
★ ★ ★
余泽成(金币+3):辛苦了！ 2010-12-06 16:32:08
引用回帖:
Originally posted by astringent at 2010-12-02 04:59:14:
您好，我想请教一个问题，
1       15733
1       18193
1       20251
2       15733
2       20251
3       20824
4       15733
4       16159
4       18193
4       20251
4       20824
5      ...

你要表达的意思我基本上明白了，但是有一个疑问哈，呵呵，
如果按照你的意思，那么H[io,istep]将会是一个稀疏的大的矩阵，没多大意思吧？你是不是想表述成这个意思的呀？

我举个例子：下面有两列数：

1  12
1  13
2  14
2  15
2  16
3  17

你是不是想把上述两列数据存储到方阵 H(io,istep)中：


H[io, istep]    1      2      3  [istep]

        1     12    14     17
  
            2     13     15     0

            3      0      16     0

istep共有 3个，istep中，第二个istep的io 最多为三个，所以行数取为 3。
其余不够的用零来补充。

是不是这个意思？ 还是非要按照你原来的意思写？？？
赞一下(1人) 回复此楼
87楼2010-12-02 09:09:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

maomao1210

金虫 (正式写手)
★ ★ ★ ★ ★
余泽成(金币+5):谢谢参与应助！ 2010-12-06 16:32:26
引用回帖:
Originally posted by astringent at 2010-12-02 04:59:14:
您好，我想请教一个问题，
1       15733
1       18193
1       20251
2       15733
2       20251
3       20824
4       15733
4       16159
4       18193
4       20251
4       20824
5      ...

依据我的理解，写了一个简单的示范程序，可以参考一下，我没有按照你的意思来写，我感觉你或许说的有点问题，呵呵，


      Implicit None
      Integer Max_Parameter,Max_step
      Parameter(Max_Parameter=20,Max_step=20)
      Integer H(Max_Parameter,Max_step)
c        Allocatable H(:,
      Character(Len=60) FileName
        Integer Ihere,Istep,Io,Ibegin
       
c        Write(*,*) 'Please input name of the input files'
       
c        Read(*,*) FileName

c        Open(10,File=Trim(FileName)//'.txt',Status='OlD')
      Open(10,File='aaa.txt',Status='OlD')
      
      Read(10,*) Ihere
      Ibegin=0
      Rewind(10)
14        Read(10,*,End=123) Istep,Io

      If(Istep.eq.Ihere) Then
           Ibegin=Ibegin+1
         H(Ibegin,Istep)=Io
      Else
        Ibegin=1
          Ihere=Istep
          H(Ibegin,Istep)=Io
      EndIF  
      Goto 14
123   Continue
      write(*,*) H(1,1), H(1,2), H(1,3), H(1,4), H(1,5), H(1,6)
        write(*,*) H(2,1), H(2,2), H(2,3), H(2,4), H(2,5), H(2,6)
        write(*,*) H(3,1), H(3,2), H(3,3), H(3,4), H(3,5), H(3,6)
        write(*,*) H(4,1), H(4,2), H(4,3), H(4,4), H(4,5), H(4,6)
        write(*,*) H(5,1), H(5,2), H(5,3), H(5,4), H(5,5), H(5,6)
        End









[ Last edited by maomao1210 on 2010-12-2 at 09:45 ]
赞一下(1人) 回复此楼
88楼2010-12-02 09:42:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

maomao1210

金虫 (正式写手)
★ ★ ★
余泽成(金币+3):辛苦了！ 2010-12-06 16:35:03
引用回帖:
Originally posted by astringent at 2010-12-02 04:59:14:
您好，我想请教一个问题，
1       15733
1       18193
1       20251
2       15733
2       20251
3       20824
4       15733
4       16159
4       18193
4       20251
4       20824
5      ...

如果我理解错了，你打算严格按照你的意思来写的话，那你可以参考 ‘piduil‘虫子给写的f90示范程序，简单也很实用。





counter (istep) : 代表 第istep 步的 Io 的个数

test(counter(istep),istep) ：代表 第istep 步中，第counter(istep)中存的 Io 值。

H(test(counter(istep),istep))  : 就是你要求的东西了。


看懂这个程序，切记起 索引数组的用法和含义。

[ Last edited by maomao1210 on 2010-12-2 at 10:00 ]
赞一下(1人) 回复此楼
89楼2010-12-02 09:52:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

astringent

铜虫 (著名写手)
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
引用回帖:
Originally posted by maomao1210 at 2010-12-02 09:42:43:

依据我的理解，写了一个简单的示范程序，可以参考一下，我没有按照你的意思来写，我感觉你或许说的有点问题，呵呵，


      Implicit None
      Integer Max_Parameter,Max_step
      Parameter(Max_Pa ...

太感谢maomao1210的解答了，按照你的方法，我在后面引用数组的时候更方便了。真不愧是专家，多谢。
赞一下(1人) 回复此楼
90楼2010-12-03 03:04:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 maomao1210 的主题更新
1589/16返回列表首页上一页789101112下一页末页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 286求调剂 +11 Faune 2026-04-06 11/550 2026-04-06 12:50 by zllcz
[考研] 0854求调剂 +4 assdll 2026-04-05 4/200 2026-04-06 12:29 by 中飞院空管学院�
[考研] 0855求调剂材料 +11 红桃灼灼 2026-04-04 12/600 2026-04-06 10:26 by 蓝云思雨
[考研] 一志愿武汉理工大学-085601材料工程（专硕）-总分353求调剂 +3 2626262626li 2026-04-02 3/150 2026-04-06 09:08 by 无际的草原
[考研] 一志愿C9的化学工程（085602） 340分，感觉校内调剂无望，求调剂 +12 万事宜臻 2026-04-04 12/600 2026-04-06 07:46 by 无际的草原
[考研] 一志愿华中农业大学0710（A）初试329分 求调剂 +4 一名26考研生 2026-04-04 4/200 2026-04-05 10:01 by barlinike
[考研] 341求调剂 +3 学无止境，冲 2026-04-05 3/150 2026-04-05 09:40 by lbsjt
[考研] 285求调剂 +11 哦呦呼o 2026-04-04 11/550 2026-04-05 08:15 by 544594351
[考研] 一志愿北京2，材料与化工308求调剂 +10 熊二想上岸 2026-04-04 10/500 2026-04-05 05:20 by houyaoxu
[考研] 。 +5 雾与海 2026-04-02 6/300 2026-04-04 19:53 by 蓝云思雨
[考研] 306求调剂 +3 hyb上名工 2026-04-02 3/150 2026-04-04 18:12 by 热情沙漠
[考研] 材料调剂 +11 吴棂颖！ 2026-04-03 11/550 2026-04-04 09:56 by 小小树2024
[考研] 求调剂，一志愿南京航空航天大学 ，080500材料科学与工程学硕 +10 @taotao 2026-04-03 10/500 2026-04-04 09:01 by T可可西里T
[考研] 282求调剂 +20 ycy1201 2026-04-01 22/1100 2026-04-04 00:42 by userper
[考研] 07生物学求调剂 一志愿同济大学359分 +3 LAMC. 2026-03-30 3/150 2026-04-02 10:26 by 18828373951
[考研] 一志愿安徽大学计算机科学与技术学硕，331分求调剂 +5 蒋昌鹏qtj 2026-04-01 5/250 2026-04-02 08:10 by fxue1114
[考研] 11408 321分求调剂 +3 huchun12138 2026-03-30 4/200 2026-04-01 22:48 by guanxin1001
[考研] 279求调剂 +7 莫xiao 2026-04-01 7/350 2026-04-01 22:05 by 客尔美德
[考研] 生物与医药考研调剂 +5 铁憨憨123425 2026-03-31 5/250 2026-04-01 18:01 by syh9288
[考研] 085601一志愿西北工业大学初试346 +4 085601初试346 2026-03-30 4/200 2026-03-31 07:47 by jp9609
信息提示
关闭
请填处理意见
关闭