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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » fortan数据读写程序运行中断-attempt to read past end of file
31/1返回列表
查看: 4242  |  回复: 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的回帖

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的回帖

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的回帖
相关版块跳转 我要订阅楼主 hbyi 的主题更新
31/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 河北省自然科学基金 +5 Peterchao 2026-05-18 8/400 2026-05-24 11:58 by 晓晓爱翠翠
[基金申请] 西安交大新媒学院副院长用撤稿论文结题 +3 bjvtcliu 2026-05-24 5/250 2026-05-24 10:16 by kudofaye
[教师之家] 论文撤稿了 +3 bjvtcliu 2026-05-24 5/250 2026-05-24 10:06 by Equinoxhua
[教师之家] 某211大学教师把个人教师官方主页改成:我跑了我跑了我跑了!官宣跑路！ +4 zju2000 2026-05-21 5/250 2026-05-24 09:35 by songwz
[考博] 26/27申博自荐 10+4 ZXW0202 2026-05-22 9/450 2026-05-24 08:47 by bjvtcliu
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 hvkbtfonbv 2026-05-23 3/150 2026-05-24 08:01 by 9ps9vgkqva
[硕博家园] 售SCI一区T0P文章，我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 pmo95bazuy 2026-05-23 7/350 2026-05-24 06:35 by fpo5ljpv91
[基金申请] 揭秘青基评审内幕：几个A才能顺利中标 +3 国自然国社科中 2026-05-23 4/200 2026-05-23 15:37 by 2000zf36392
[基金申请] 青B发送上会通知了吗 +5 chemBioBro 2026-05-22 7/350 2026-05-23 12:35 by zhuifengzhy
[考博] 博士申请 +3 焦晓明 2026-05-21 3/150 2026-05-23 11:26 by mlc840311
[论文投稿] 投稿求助，期刊 +4 希冀，有书读 2026-05-20 8/400 2026-05-22 10:16 by 希冀，有书读
[文学芳草园] 献血感触 +7 呀呀好傻 2026-05-19 13/650 2026-05-21 20:15 by 呀呀好傻
[基金申请] 面上本子正文33页，违规吗？会被低分嘛？ +14 1234567wang 2026-05-17 16/800 2026-05-21 17:58 by 脆脆的饼干
[基金申请] 国自然评分 +4 无名者登山 2026-05-20 5/250 2026-05-21 16:35 by swuq
[基金申请] 国自然上会要求 +7 无名者登山 2026-05-18 11/550 2026-05-21 15:50 by draco1987
[基金申请] 提交了我也来说说感想 +9 fummck 2026-05-20 10/500 2026-05-21 14:17 by draco1987
[基金申请] 评审有感 +15 popular289 2026-05-18 26/1300 2026-05-21 10:35 by 西葫芦炒鸡蛋
[考博] 如果工作了想读博，可以边工作边读全日制嘛？ 30+3 铁达火车 2026-05-18 5/250 2026-05-20 09:33 by tfang
[考博] 博士申请 +5 星…… 2026-05-18 6/300 2026-05-18 23:49 by 糊糊涂涂好
[硕博家园] 我在等一个没有答案的答案 +3 Love_MH 2026-05-17 3/150 2026-05-18 02:22 by 竹林孤影
信息提示
关闭
请填处理意见
关闭