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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » fortan数据读写程序运行中断-attempt to read past end of file
51/1返回列表
查看: 4333  |  回复: 2
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

hbyi

金虫 (小有名气)

[求助] fortan数据读写程序运行中断-attempt to read past end of file

错误信息：
PGFIO-F-217/formatted read/unit=20/attempt to read past end of file.
File name = revcon.dat    formatted, sequential access   record = 15601
In source file rw.f, at line number 11

代码：
CODE:
        program datarw

        implicit none
        real cpp(100000,3)
        character(len=70) atom(10000)
        integer mm,nn,i
        open (unit=20,file='revcon.dat',status='OLD')
            mm=1
            nn=1
        do  i=1,100000
            read (20,"(A60)") atom(mm)
            write (21,"(A60)") atom(mm)
            mm=mm+1
            read (20,*) cpp(nn,1),cpp(nn,2),cpp(nn,3)
            write (21,'(1X,70f25.12)') cpp(nn,1),cpp(nn,2),cpp(nn,3)
            nn=nn+1
            read (20,*)
            read (20,*)
        enddo

        end

[b]所读取的数据：[/b]
Li+              1
     2.746803216         12.55330094        -12.99248420
     10.66618940        0.3223086867         3.778856268
    -310.2131566        -239.3087786        -1156.167949
OW               2
     5.018759444        -13.73254722        -10.42497717
    -6.792120468         6.684578080        0.8270499669
    -10012.33517         1517.067066        -1730.305606
HW               3
     5.238233676        -14.20991259        -9.574122673
    -2.210386016        0.4942204612        -3.827830367
     4207.269462        -4704.110533         1081.427173
HW               4
     5.861095418        -13.55235241        -10.93291412
    -11.27024952        -5.811575868        -11.03237547
     7199.223146         1181.695230         962.2304789
OW               5
   -0.1579831608E-01     14.46257939         13.84156632
     2.714915221        0.3512805832         3.644804605
    -9629.957237         3494.442578        -7514.307295
HW               6
    0.5887639543        -14.74543957         13.92683356
     3.120055032        -1.032759705         13.62768740
     6113.811128         2702.933269        -302.2261157
HW               7
    0.4557842376         13.64590271         14.17420593
     2.276057422        -4.072649809        -6.594359606
     6373.187526        -6552.602197         5661.626838
OW               8
    -8.119643322         14.40506213        -4.729075754
    -8.877414205         8.048914337        -1.524141547
    -25.17597014         12014.46622        -2810.302761
HW               9
    -7.670578465         13.51541147        -4.811915797
    -2.745808245         11.89401813        -9.579632369
    -543.6076008        -9834.986593         1200.939832
HW              10
    -8.175062137         14.66191861        -3.764216432
   -0.1109329961         4.326463756       -0.2965383891E-01
    -416.7378548        -1787.752553         1136.372317
OW              11
     5.081441489         6.984758637         13.66853357
     2.243570789        -1.790733782         7.088075843
     13976.16390         12874.79148        -2145.396165

[ Last edited by jjdg on 2013-8-31 at 00:46 ]
回复此楼

» 猜你喜欢
1楼 2013-08-29 16:49:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zeppe

金虫 (小有名气)

【答案】应助回帖

★
感谢参与，应助指数 +1
jjdg: 金币+1, 感谢参与 2013-08-31 00:46:35
出错信息已经提示问题是读取文件时出的错，结合程序其实就是你的do循环次数太多，超过了文件的行数还想读。
解决办法是
第一种方法： 把   do  i=1,100000中100000改成正确的文件行数
第二种方法：      
do  i=1,100000改成 do
read(20,*)改成 read(20,*,End=1000) 表示读到底部就跳转到1000号语句，
然后在          end do下面加一行
1000          close(20)
这样就实现了读到文件底部就不读了。
希望对你有帮助。
赞一下(1人) 回复此楼
3楼2013-08-30 09:55:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 3 个回答

dongdong_xmc

木虫 (小有名气)

【答案】应助回帖

★
感谢参与，应助指数 +1
jjdg: 金币+1, 感谢参与 2013-08-31 00:46:29
你的atom维数是10,000，但是do循环从1到100,000？
赞一下 回复此楼
2楼2013-08-30 04:05:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 3 个回答
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[论文投稿] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +3 E4V9bALS54sj 2026-09-19 4/200 2026-09-20 07:24 by 9i7PCSZyMzot
[硕博家园] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +3 E4V9bALS54sj 2026-09-19 4/200 2026-09-20 07:12 by 9i7PCSZyMzot
[博后之家] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +3 E4V9bALS54sj 2026-09-19 4/200 2026-09-20 07:12 by 9i7PCSZyMzot
[公派出国] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +3 E4V9bALS54sj 2026-09-19 4/200 2026-09-20 07:06 by 9i7PCSZyMzot
[考博] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +3 E4V9bALS54sj 2026-09-19 4/200 2026-09-20 07:01 by 9i7PCSZyMzot
[基金申请] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +3 E4V9bALS54sj 2026-09-19 4/200 2026-09-20 07:01 by 9i7PCSZyMzot
[论文投稿] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +3 E4V9bALS54sj 2026-09-19 4/200 2026-09-20 06:55 by 9i7PCSZyMzot
[考研] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +3 4pRyVGCVerAA 2026-09-19 3/150 2026-09-20 00:15 by 9i7PCSZyMzot
[硕博家园] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +3 4pRyVGCVerAA 2026-09-19 3/150 2026-09-20 00:03 by 9i7PCSZyMzot
[找工作] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4 4pRyVGCVerAA 2026-09-19 4/200 2026-09-20 00:03 by 9i7PCSZyMzot
[考博] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +3 4pRyVGCVerAA 2026-09-19 4/200 2026-09-19 23:51 by 9i7PCSZyMzot
[论文投稿] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +3 4pRyVGCVerAA 2026-09-19 4/200 2026-09-19 23:27 by 9i7PCSZyMzot
[考博] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +3 4pRyVGCVerAA 2026-09-19 4/200 2026-09-19 23:03 by 9i7PCSZyMzot
[公派出国] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +3 4pRyVGCVerAA 2026-09-18 7/350 2026-09-19 21:03 by 9i7PCSZyMzot
[教师之家] 现代”学阀”该如何界定 +3 iaeyuan 2026-09-19 3/150 2026-09-19 20:52 by 没昵称呀
[基金申请] 国社科系统bug了，是不是要放榜了？ +7 kynobel 2026-09-16 9/450 2026-09-19 14:52 by 接好运婷
[考博] 申博发邮件 +8 Lmengk 2026-09-15 9/450 2026-09-19 09:27 by 中间体超市
[有机交流] 各位大神，目前国内有哪些比较好用的逆合成软件？ 20+3 zapen 2026-09-15 9/450 2026-09-18 18:17 by zapen
[考博] 上海工程技术大学激光智能制造课题组｜2027级博士研究生招生公告 +7 水士口 2026-09-16 8/400 2026-09-16 13:47 by kkklens
[考博] 上海工程技术大学激光智能制造课题组招收博士研究生 +8 两三岁ss 2026-09-14 8/400 2026-09-16 09:46 by 水士口
信息提示
关闭
请填处理意见
关闭