Fortran Coder

查看: 4579|回复: 4

[其他行业算法] 求助!!SEG-Y地震格式

[复制链接]

3

帖子

1

主题

0

精华

入门

F 币
45 元
贡献
13 点
发表于 2015-3-17 21:45:05 | 显示全部楼层 |阅读模式
    如何用Fortran程序读取SEG-Y格式的地震记录?
脾气永远不要大于本事!

1955

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1327 元
贡献
559 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2015-3-17 22:10:46 来自移动端 | 显示全部楼层
这可不是几句话的事情。有很多朋友写过代码来读写segy。包括我。seg也有发布标准的格式说明。

3

帖子

1

主题

0

精华

入门

F 币
45 元
贡献
13 点
 楼主| 发表于 2015-3-25 10:38:26 | 显示全部楼层
fcode 发表于 2015-3-17 22:10
这可不是几句话的事情。有很多朋友写过代码来读写segy。包括我。seg也有发布标准的格式说明。 ...

这个问题解决了,其实也不难,SEG-Y格式的文件存储格式为二进制有格式储层,对于没有卷头的地震记录,道头占240个字节,可以定义一个kind=2的可储存120个元素的整型数组来接收道头信息,再用一个kind=4的大小为每道采样点数N的实型数组接收采样点值,把第二个实型数组输入到文本文件里面就可以看到地震记录了。
脾气永远不要大于本事!

1955

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1327 元
贡献
559 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2015-3-25 10:45:09 | 显示全部楼层
非也,SEG-Y 是二进制无格式存储的。

我建议你用 stream 来读写二进制文件。你可参考 http://fcode.cn/guide-86-1.html

道头和卷头,直接定义一个 Type 派生类型,一个语句全部读进来,简单 easy

3

帖子

1

主题

0

精华

入门

F 币
45 元
贡献
13 点
 楼主| 发表于 2015-3-25 10:53:30 | 显示全部楼层
fcode 发表于 2015-3-25 10:45
非也,SEG-Y 是二进制无格式存储的。

我建议你用 stream 来读写二进制文件。你可参考 http://fcode.cn/gui ...

好的学长,我是长安大学2011届勘查的!我下去看看!
脾气永远不要大于本事!
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-4-16 18:38

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表