Fortran Coder»论坛 › 研讨区 › Fortran语法讨论 › 地震勘探SEG-Y格式文件Fortran90读写代码，献给物探初学 ...

地震勘探SEG-Y格式文件Fortran90读写代码，献给物探初学者！

查看数: 9855 | 评论数: 3 | 收藏 0

关灯 | 提示：支持键盘翻页<-左右->

帖子模式

yunhong125

发布时间: 2017-9-22 13:56

正文摘要:

本帖最后由 yunhong125 于 2017-9-22 13:57 编辑 SEG-Y文件是学物探地震勘探中经常打交道的数据格式，Fortran90以前的标准，要求每次读取文件长度要一致，使得在读取标准SGY文件时非常麻烦，Fortran90标准提出了 ...

yunhong125 发表于 2017-9-22 22:54:45

yunhong125 发表于 2017-9-22 22:41
谢谢指点，下来慢慢完善！
我查了一下INQUIRE函数，似乎没有Size属性，不能查询文件大小。请指点！
INQUI ...

试了一下可以，INQUIRE(FILE=filename,SIZE=file_size)，非常方便！

yunhong125 发表于 2017-9-22 22:41:50

fcode 发表于 2017-9-22 18:17
楼主可以学习一下结构体，用结构体读取卷头道头，就非常非常容易了。
此外，查询文件大小，不需要用 DFLib ...

谢谢指点，下来慢慢完善！
我查了一下INQUIRE函数，似乎没有Size属性，不能查询文件大小。请指点！
INQUIRE(UNIT=number, FILE=filename, IOSTAT=stat, ERR=label, EXIST=exist, OPENED=opened, NUMBER=number, NAMED=named, ACCESS=access, SEQUENTIAL=sequential, DIRECT=direct, FORM=form, FORMATTED=formatted, UNFORMATTED=unformatted, RECL=recl)

fcode 发表于 2017-9-22 18:17:49

楼主可以学习一下结构体，用结构体读取卷头道头，就非常非常容易了。
此外，查询文件大小，不需要用 DFLib 的扩展函数。标准的 Inquire( File = name , size = n ) 就可以了

地震勘探SEG-Y格式文件Fortran90读写代码，献给物探初学者！

正文摘要:

回复