Fortran读写不同格式的SGY文件代码

基于Intel Fortran，编写了读取地震数据SEGY（SGY）数据格式的读写代码，主要支持的格式有IBM工作站格式，IEEE格式，SU格式等，有一个例程，还添加了一个IIR滤波（50Hz带限），供相关技术人员参考！

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2018-05-25 08:52  ReadSgy\
     目录           0  2018-05-25 08:52  ReadSgy\ReadSgy\
     文件         887  2017-09-22 22:21  ReadSgy\ReadSgy.sln
     文件       23040  2017-12-08 17:38  ReadSgy\ReadSgy.suo
     文件       14308  2017-10-13 13:29  ReadSgy\ReadSgy\11.txt
     文件      725040  2017-10-23 14:18  ReadSgy\ReadSgy\2.sgy
     文件      725040  2017-10-23 14:19  ReadSgy\ReadSgy\3.sgy
     文件       55408  2017-12-08 14:23  ReadSgy\ReadSgy\360截图18180721408053.png
     文件      725040  2017-10-23 14:20  ReadSgy\ReadSgy\4.sgy
     文件      113424  2009-10-26 07:58  ReadSgy\ReadSgy\50.sgy
     文件      230960  2017-10-12 22:09  ReadSgy\ReadSgy\E20171012-1.sgy
     文件      230960  2017-10-12 22:09  ReadSgy\ReadSgy\E20171012-2.sgy
     文件      380400  2017-09-22 13:41  ReadSgy\ReadSgy\ld0057_file_00095_IBM.sgy
     文件      380400  2017-09-22 13:41  ReadSgy\ReadSgy\ld0057_file_00095_IEEE.sgy
     文件      376800  2017-09-22 13:41  ReadSgy\ReadSgy\ld0057_file_00095_无卷头PC.sgy
     文件         250  2017-12-08 17:38  ReadSgy\ReadSgy\ReadSgy.u2d
     文件        2063  2017-09-22 22:22  ReadSgy\ReadSgy\ReadSgy.vfproj
     文件        4056  2017-12-08 14:36  ReadSgy\ReadSgy\ReadsgyMain.f90
     文件        9418  2017-09-22 22:59  ReadSgy\ReadSgy\SGYModule.f90
     文件       53248  2017-12-08 14:31  ReadSgy\ReadSgy\vc100.pdb