仪器共享平台,你入驻了吗?

热门推荐

查看: 100  |  回复: 2
【悬赏金币】回答本帖问题,作者cmwhoknows将赠送您 5 个金币

cmwhoknows

新虫 (初入文坛)


[求助] 请问怎么用fortran定位文件中的特定行并输出已有1人参与

本人接触fortran不久,现有一数据想通过fortran处理,有个问题不知如何实现

文件是格式化文件,每行都有好几列数据,现在想定位每行第一个数据等于某特定值的那一行,并把该行后面几列的数据按顺序输出。请问各位如何实现?

一个简单的例子,比如数据为
1  22  5  98
2  66  9  77
3  45  8  89
2  98  7  14
1  89  8  74
2  86  2  36

怎么输出第一个数字为2的那几行后面几列的内容呢?

多谢了各位!!!
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wz_work

金虫 (小有名气)


jjdg: 金币+1, 感谢参与 2017-09-15 00:15:53
do循环:读取第一个字符,判断,若为2,则backspace,重新按格式读取该行;否则,继续读下一行。该方法前提,首个数字为个位数。

发自小木虫IOS客户端
生命的长河是多么的迂回,希望又是多么的雄壮。
2楼2017-09-14 08:36:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

majun150

铁杆木虫 (小有名气)


【答案】应助回帖

★ ★
感谢参与,应助指数 +1
jjdg: 金币+2, 感谢参与 2017-09-15 00:16:01
思路:读入数据,判断,然后输出
具体实现:
program main
  implicit none
  
  integer :: a, b, c, d, ios
  
  open(10,file="input.txt",status='old')   ! 输入文件
  open(20,file="out.txt",status='replace') ! 输出文件
  
  do while(.true.)
    read(10,*,iostat=ios) a, b, c, d
    if(ios/=0) exit                        ! 判断是否读到文件末尾,若是,则退出循环
    if(a==2) write(20,*) b, c, d           ! 判断是否等于2,若是,则输出后面几位数到输出文件
  end do
  
  close(10)
  close(20)
  
end program main
3楼2017-09-14 08:45:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 cmwhoknows 的主题更新
不应助 确定回帖应助 (注意:应助才可能被奖励,但不允许灌水,必须填写15个字符以上)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 请问你们单位的基金经费本下发了吗? +6 yinshr 2017-11-19 7/350 2017-11-20 09:29 by yinshr
[论文投稿] 论文外审两个的话是要等俩个都完成才能看见审稿意见吗 +3 善媛930222 2017-11-19 6/300 2017-11-20 09:05 by 善媛930222
[考博] 我要参加2018年高考……第一学历真是硬伤,考博哪都不要…… +24 XC小诚 2017-11-15 38/1900 2017-11-20 07:19 by youren126
[留学生活] 诚招男友 +11 宝、嗳 2017-11-17 12/600 2017-11-20 00:09 by lgtkk
[有机交流] 分离目标产物 +3 zerocore 2017-11-18 5/250 2017-11-19 22:00 by czyzsu
[硕博家园] 联合培养 +13 路的尽头 2017-11-18 25/1250 2017-11-19 21:14 by tiantiankaixin
[教师之家] 辅导员,职称晋级迷茫贴 +12 论文小绿鸟 2017-11-16 26/1300 2017-11-19 17:00 by wanghuidsg
[论文投稿] 论文状态求助 +3 kingmanZZ 2017-11-18 4/200 2017-11-19 09:29 by peterflyer
[论文投稿] Awating EIC decision后变成Under review +3 搁浅成回忆 2017-11-18 4/200 2017-11-19 02:04 by zhuxinyao
[硕博家园] 读博有感_随笔 +24 七秒打盹儿 2017-11-17 33/1650 2017-11-18 11:53 by 七秒打盹儿
[论文投稿] awaiting reviewer scores的含义 +5 yaopeng3778 2017-11-16 6/300 2017-11-18 08:45 by tiffany123
[考研] 一路被碾压到考试前 +4 aspirin_ko 2017-11-16 11/550 2017-11-17 22:26 by aspirin_ko
[硕博家园] 文章顺利接收 +53 乔森家的博士 2017-11-14 57/2850 2017-11-17 19:06 by 乔森家的博士
[公派出国] 外导邮件收到已读回执没有回复 +5 思念外太空 2017-11-17 10/500 2017-11-17 18:22 by 地表最美男子
[论文投稿] submitted to journal两周了还没有with editor?这是咋回事 +6 wenwu666 2017-11-14 6/300 2017-11-17 06:53 by 国际科学编辑
[论文投稿] 问各位大牛们,写一篇SCI的第一个字第一幅图到接受发表最快要用多少时间? +6 Surperhorse 2017-11-14 24/1200 2017-11-16 05:45 by insist8528
[考博] 疑惑 +5 tiaoji2015 2017-11-15 10/500 2017-11-15 23:32 by tiaoji2015
[论文投稿] 稿件修回后两个月了没反应,发现别人十月份的投稿都接受了呀 +4 biowsj 2017-11-15 4/200 2017-11-15 23:15 by 逝水无痕1990
[环境] SBR反应器不进行反硝化,总氮没有去除率 +3 末末jhan 2017-11-14 5/250 2017-11-15 09:28 by hamubudr
[硕博家园] 关于origin做图问题 +11 CiroImmobile 2017-11-13 29/1450 2017-11-14 23:08 by h241683259
信息提示
请填处理意见