| 查看: 1394 | 回复: 3 | ||
200620304069新虫 (初入文坛)
|
[求助]
用fortran将文本数据写成segy格式 已有1人参与
|
|
文本中所有数据是按1列存放的 程序如下：program main !该程序是将数据按列存放的文本数据写成segy格式 real,allocatable::x(:,  integer m,n integer (2) head(120) m=2048 !采样点数 n=60 !道数 allocate(x(m,n)) open(10,file='2.txt',status='old') do j=1,n !先是道循环 do i=1,m read(10,*) x(i,j) end do end do open(11,file='positive1.sgy',form='formatted',access='direct', &recl=240+m*4) head=0 head(58)=2048 !采样点数 head(59)=500 !采样间隔(us) do i=1,n write(11,rec=i)head,(x(i,j),j=1,m) end do close(11) close(10) deallocate(x) end program 运行后有错误  W4T~@]L3TL$D$4663ND$KC2.jpg |
回复此楼» 猜你喜欢
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有6人回复
-
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有6人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有6人回复
-
这样的filecode谁见过
已经有7人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有5人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有5人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有5人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有5人回复
-
国基金的申报应该改成非等额制，评价高的钱多评价低的钱少，但是增加资助率
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- fortran中计算数据写入文本为 NAN的问题
已经有4人回复
- Fortran数据读入格式的修改
已经有5人回复
- Intel Visual Fortran应用程序开发
已经有259人回复
- 物理模拟是用c语言好还是fortran好？
已经有30人回复
- fortran程序怎样调用lapack库进行矩阵对角化？
已经有7人回复
- 如何用fortran编写高斯白噪声程序
已经有6人回复
- 求初学者能用的fortran编译器
已经有6人回复
- 【求助】matlab数据导入Fortran
已经有9人回复
- 【求助】读文本数据出现段错误[fortran]
已经有14人回复
- 【求助】FORTRAN读取文本文件
已经有9人回复
- 【求助】用fortran怎么描述下面这样的情况，我是新手，请大家帮忙
已经有8人回复
- 【求助】求高手关于Fortran数据读写的问题。【已完结】
已经有12人回复
- 请教fortran导txt数据进origin问题
已经有1人回复
- 【分享】C/C++常用算法设计方法,fortran其他语言编程也可以参考下
已经有8人回复
baobiao007
木虫 (职业作家)
中国特色
- 应助: 201 (大学生)
- 金币: 6484.2
- 散金: 557
- 红花: 40
- 帖子: 3050
- 在线: 1009.9小时
- 虫号: 505962
- 注册: 2008-02-18
- 专业: 应用地球物理学
2楼2012-09-02 18:30:04
3楼2012-09-22 09:40:56
4楼2018-08-27 16:00:49
