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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】求程序
51/1返回列表
查看: 913  |  回复: 11
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

baoer3808

银虫 (小有名气)

[交流] 【求助】求程序

有32个.dat文件，每个文件里都有6列，291行，想把这32个文件中的第二列每行依次相加，我是刚接触fortran，请高手帮忙！
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2010-12-17 16:34:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

baoer3808

银虫 (小有名气)
引用回帖:
Originally posted by holmescn at 2010-12-18 11:48:51:
[code]
program mysum
    implicit none
    real, dimension(6) :: array
    real :: s
    integer :: i, stat1, stat2
    character(len=255) :: filename
    s = 0
    array = 0
    open(100, ...

不是所有的第二列相加，是所有
.dat文件的第二列每行依次相加，

最后得出的是一列291行的数据
赞一下 回复此楼
7楼2010-12-21 11:29:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 12 个回答

maomao1210

金虫 (正式写手)
baoer3808(金币+2):谢谢鼓励！ 2010-12-17 20:43:32
引用回帖:
Originally posted by baoer3808 at 2010-12-17 16:34:46:
有32个.dat文件，每个文件里都有6列，291行，想把这32个文件中的第二列每行依次相加，我是刚接触fortran，请高手帮忙！

这个貌似不难，楼主，自己可以尝试着写写看嘛，
赞一下 回复此楼
2楼2010-12-17 20:03:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)
baoer3808(金币+4): 2010-12-17 20:43:50
你好，请帖点数据上来。
你在windows下还是在linux下？
原始数据用啥算得，还是实验数据？
赞一下 回复此楼
3楼2010-12-17 20:21:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

baoer3808

银虫 (小有名气)
引用回帖:
Originally posted by baoer3808 at 2010-12-17 16:34:46:
有32个.dat文件，每个文件里都有6列，291行，想把这32个文件中的第二列每行依次相加，我是刚接触fortran，请高手帮忙！

自己是也试着写呢
赞一下 回复此楼
4楼2010-12-17 20:29:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 12 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +4 ASdOkHsho7FD 2026-08-28 6/300 2026-08-29 11:40 by jCd0dEvKHShX
[硕博家园] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +5 ASdOkHsho7FD 2026-08-28 8/400 2026-08-29 11:39 by jCd0dEvKHShX
[考研] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +6 ASdOkHsho7FD 2026-08-28 9/450 2026-08-29 11:18 by jCd0dEvKHShX
[基金申请] 国自然面上复盘~欢迎讨论 (金币+15) +14 晴天加油 2026-08-26 15/750 2026-08-29 11:06 by biily
[基金申请] 我就是申请一个面上项目而已，这评审意见是按照杰青的条件评的吧？ +6 gouxfjh 2026-08-28 9/450 2026-08-29 09:59 by jklily
[基金申请] 基金不中，共勉 +11 eulota 2026-08-26 11/550 2026-08-28 14:22 by 火星超人xi
[基金申请] 麻烦专家们看看评委们的意见（F口面上） +4 gdd2018 2026-08-28 9/450 2026-08-28 14:22 by jklily
[基金申请] 哪位高人中了，把查询到的截图贴出来让我看看，让我长长见识 +5 yuleib84 2026-08-26 6/300 2026-08-28 00:02 by yudaoqian88
[基金申请] 基金未中，这种答复是模板吗？ +5 zhaosm1982 2026-08-27 6/300 2026-08-27 16:00 by lfy8008
[基金申请] 看板上这么多中的，有点像50人群里49个人都是骗子的那种感觉…… +5 a089 2026-08-26 6/300 2026-08-27 14:05 by jonewore
[文学芳草园] 梦想 +3 myrtle 2026-08-26 3/150 2026-08-27 10:01 by angelyueyi
[基金申请] 为什么 国际(地区)合作与交流项目 没有放榜？ 10+3 majunge000 2026-08-26 11/550 2026-08-27 08:42 by 北京莱茵编辑
[基金申请] 为什么国自然不能直接公布 +4 bjdxyxy 2026-08-26 4/200 2026-08-26 13:12 by qingmu1201
[基金申请] 国际合作可查了，中了面上 (EPI+1)(金币+50) +18 Ldrop2023 2026-08-26 18/900 2026-08-26 11:15 by cmrandy
[基金申请] 项目信息和经费信息在系统里都可以看到了 +6 wittyboy 2026-08-26 14/700 2026-08-26 10:55 by wittyboy
[基金申请] 国合可查了 +3 paperzjh 2026-08-26 3/150 2026-08-26 10:41 by LemmonTr
[职场人生] 学生撞见辅导员送外卖，第二天全班都沉默了 +3 鲸鱼融金_浙江_� 2026-08-22 3/150 2026-08-26 09:01 by zzuzxg
[基金申请] 国合现在查不到了吗？ +10 chengyan1220 2026-08-24 20/1000 2026-08-26 08:57 by peasantsprig
[基金申请] 某些机构，以效率低为荣，以效率低作为存在感 +9 yuleib84 2026-08-25 10/500 2026-08-25 17:14 by alexon
[基金申请] 如果此刻你正在为国基感到焦虑，不妨来听听这首《基金之外》 +8 scalable 2026-08-24 8/400 2026-08-25 12:52 by jnhyjjm
信息提示
关闭
请填处理意见
关闭