| 查看: 623 | 回复: 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 |
回复此楼» 猜你喜欢
288求调剂 一志愿哈工大 材料与化工
已经有31人回复
-
一志愿北京科技大学085601材料工程英一数二初试总分335求调剂
已经有5人回复
-
085801 总分275 本科新能源 求调剂
已经有17人回复
-
324求调剂
已经有6人回复
-
学硕化学工程与技术，一志愿中国海洋大学320+求调剂
已经有7人回复
-
材料调剂
已经有5人回复
-
初试301，代码085701环境工程，本硕一致，四六级已过，有二区一作，共发表5篇论文
已经有6人回复
-
化学308分调剂
已经有15人回复
-
346求调剂
已经有3人回复
-
环境285分，过六级，求调剂
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 求助：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
