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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 求助 ivf 读文件错误
31/1返回列表
查看: 715  |  回复: 2
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

赌ml

铜虫 (初入文坛)

[求助] 求助 ivf 读文件错误

刚接触fortran，急需实现一个模型正演，但是程序无法完成调试，一到read函数就触发断点，程序部分如下，不知道是否是read函数写错了，麻烦大家看看。
      OPEN(10, file='aku2d.in',Form = 'formatted', ERR=801)
      READ(10,*,ERR=801) ! Inputfile for 'AKU2D.X' by Joachim Falk, July 1996
      READ(10,*,ERR=801) ! Do NOT change the order of the values and lines !
      READ(10,*,ERR=801)
      READ(10,*,ERR=801) nx, nz, dx, dz
      READ(10,*,ERR=801)
      IF ((nx.gt.nxmax) .OR. (nz.gt.nzmax)) GOTO 821
      READ(10,*,ERR=801) dt , tmax, timeint
      IF ( (timeint.ne.2) .AND. (timeint.ne.4) ) GOTO 823
      READ(10,*,ERR=801)
      READ(10,*,ERR=801) r_spx ,r_spz
      READ(10,*,ERR=801)
      READ(10,*,ERR=801) f_cent, wtype
      READ(10,*,ERR=801)
      READ(10,*,ERR=801) ws
      READ(10,*,ERR=801)
      READ(10,*,ERR=801) rsnap ,rdsnap
      READ(10,*,ERR=801)
      READ(10,*,ERR=801) freesurf
      READ(10,*,ERR=801)
      READ(10,*,ERR=801) rec_file
      CLOSE(10)

读入文件内容如下  为文本文件
C TEST Inputfile for "AKU2D" by Joachim Falk, 12. Sep. 1996
C !ATTENTION!  Do NOT change the order of the values and lines !
C- nx {INT} -- nz {INT} -- dx [m] -- dz [m] ---- ! grid parameters
    1000       300          5.0       5.0
C- dt [s] -- tmax [s] -- timeint {INT} --------- ! time parameters
   0.0005      1.8          4
C- spx [m] - spz [m] --------------------------- ! source coordinates
    2500       0
C- f_cent [Hz} -- wtype {INT} ------------------ ! wavelet
   40             3
C- write each sample {INT} --------------------- ! sample-int seismograms
   4
C- snap [s] ----- dsnap [s]--------------------- ! snapshots
   460.0            1.0
C- free surface {INT} -------------------------- ! top grid edge
   0
C- inputfile ------------------------ ! receiver locations
   tracepos.in
回复此楼

» 猜你喜欢

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

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

感谢参与，应助指数 +1
read 中的 * 号不是随便用的，它默认的类型是 real....

所以，
READ(10,*,ERR=801) ! Inputfile for 'AKU2D.X' by Joachim Falk, July 1996
应该改为
read(10,'(A)',ERR=801)!....
其它读注释的行都应该是这个样子的
读文本的行，比如最后一行，也应该是这个样子的……
赞一下 回复此楼
2楼2012-09-12 21:39:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

赌ml

铜虫 (初入文坛)
引用回帖:
2楼: Originally posted by snoopyzhao at 2012-09-12 21:39:28
read 中的 * 号不是随便用的，它默认的类型是 real....

所以，
READ(10,*,ERR=801) ! Inputfile for 'AKU2D.X' by Joachim Falk, July 1996
应该改为
read(10,'(A)',ERR=801)!....
其它读注释的行都应该是这 ...

谢谢解答
回复此楼
3楼2012-09-13 13:44:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 赌ml 的主题更新
31/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[硕博家园] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +3 X5bHxOULxFqb 2026-10-30 14/700 2026-10-31 22:46 by YXM1FDCSE8Bn
[考博] 售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急 +4 X5bHxOULxFqb 2026-10-30 19/950 2026-10-31 22:44 by YXM1FDCSE8Bn
[论文投稿] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +4 X5bHxOULxFqb 2026-10-30 24/1200 2026-10-31 22:39 by YXM1FDCSE8Bn
[硕博家园] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +4 X5bHxOULxFqb 2026-10-30 11/550 2026-10-31 22:39 by YXM1FDCSE8Bn
[考研] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +3 xvJS1BYDxvBS 2026-10-31 5/250 2026-10-31 21:59 by YXM1FDCSE8Bn
[找工作] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 1uaZt2kAZj2S 2026-10-31 4/200 2026-10-31 21:54 by YXM1FDCSE8Bn
[公派出国] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-31 4/200 2026-10-31 21:51 by YXM1FDCSE8Bn
[考博] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-31 4/200 2026-10-31 21:51 by YXM1FDCSE8Bn
[考研] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +3 1uaZt2kAZj2S 2026-10-31 5/250 2026-10-31 21:47 by YXM1FDCSE8Bn
[考研] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-30 10/500 2026-10-31 21:41 by YXM1FDCSE8Bn
[基金申请] 售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急 +3 1uaZt2kAZj2S 2026-10-30 9/450 2026-10-31 21:34 by YXM1FDCSE8Bn
[考博] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 1uaZt2kAZj2S 2026-10-30 11/550 2026-10-31 21:25 by YXM1FDCSE8Bn
[教师之家] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +3 X5bHxOULxFqb 2026-10-30 13/650 2026-10-31 17:12 by hKe7U1kad5Sg
[基金申请] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +4 X5bHxOULxFqb 2026-10-30 18/900 2026-10-31 17:05 by hKe7U1kad5Sg
[考博] 2027博士申请-临床检验诊断学、病原生物学、微生物方向 50+3 yyh@ 2026-10-28 4/200 2026-10-31 12:47 by 可淡不可忘
[硕博家园] 越来越担心硕士毕业后没有竞争力了 +8 zuesli 2026-10-27 14/700 2026-10-30 22:44 by 好运连连公主
[基金申请] 论文的挂名怎么评判贡献？基金申请中，排名第一的挂名文章 +3 biily 2026-10-25 3/150 2026-10-30 18:33 by 旁观2020
[硕博家园] 申博自荐 2篇一区TOP+1篇EI+2公开发明专利 2027博士申请 +3 小小阿光 2026-10-27 3/150 2026-10-29 23:56 by 起风了的快乐
[文学芳草园] 闲聊 +3 myrtle 2026-10-25 6/300 2026-10-29 15:28 by myrtle
[考博] 申博求助 20+3 Katrinae 2026-10-26 4/200 2026-10-27 09:56 by 北京莱茵编辑
信息提示
关闭
请填处理意见
关闭