| 查看: 702 | 回复: 2 | ||
[求助]
求助 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 tracepos.in |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有4人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有6人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有3人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有6人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有3人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求助：dushin程序输入文件无法读取！！！1
已经有10人回复
- 【求助】程序运行已经无错误，但是输入文件有问题，求教。
已经有23人回复
- 【求助】关于ansys读入荷载文件
已经有4人回复
- 【求助】菜鸟求助c语言读文件小问题
已经有5人回复
- 【求助】从文件读入数组遇到困难
已经有3人回复
- 【求助】求助帮助编一个读取TEXT文件画图的程序
已经有8人回复
- 【求助】如何读取输出文件中的键级
已经有4人回复
- 【求助】VB如何读取txt文件~~
已经有12人回复
- 【求助】Fortran 如何读取文件中特定行的内容
已经有16人回复
- 【求助】matlab读取fortran输出的txt文件【已解决】
已经有3人回复
- 【求助】求教对CIF文件中2个A类错误的解释
已经有8人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2012-09-12 21:39:28
3楼2012-09-13 13:44:21
10