U.新・地震動のスペクトル解析入門のfortranプログラム

地震波解析に参考資料とされる「新・地震動のスペクトル解析入門 大崎順彦」のプログラムソースを掲載します。

入力ファイルに「test_wave.txt」とあるものは、地震波形が必須、「内部」はソースにデータが記述されています。
また、「13 DIFR」は、「14 INFR」と対になりますので、「14 INFR」にまとめてあります。
なお、「22 WGEN」には、"FUNCTION RAND" が必要になりますが、お使いのコンパイラのライブラリ等をご使用ください。

プログラム一覧
No. 名称 内   容 ソース 入力ファイル 出力ファイル
1 PERD 周期-頻度分布 perd.for test_wave.txt perd_out.txt
2 PROD 確率密度分布 prod.for test_wave.txt prod_out.txt
3 FOUC 有限フーリエ係数 fouc.for 内部 fouc_out.txt
4 FAST 高速フーリエ変換 fast.for 内部 fast_out.txt
5 AUTO 自己相関係数 auto.for 内部 auto_out.txt
6 FPAC フーリエ・スペクトル、パワ・スペクトル、自己相関係数 fpac.for test_wave.txt fpac_out.txt
7 LWIN ラグ・ウィンドウによるスペクトルの平滑化 lwin.for test_wave.txt lwin_out.txt
8 SWIN スペクトル・ウィンドウによるスペクトルの平滑化 swin.for test_wave.txt swin_out.txt
9 RESP 1質点減衰系の地震応答 resp.for test_wave.txt resp_out.txt
10 IACC 加速度時刻歴の積分 iacc.for test_wave.txt iacc_out.txt
11 CRAC 加速度記録の基線補正 crac.for test_wave.txt crac_out.txt
12 ERES 地震応答スペクトル eres.for test_wave.txt eres_out.txt
13 DIFR フーリエ変換による微分 difr.for
14 INFR フーリエ変換による積分 infr.for test_wave.txt infr_out.txt
15 FESP 地盤の周波数応答関数 fesp.for test_wave.txt fesp_out.txt
16 NAFR 地盤の固有振動数 nafr.for test_wave.txt nafr_out.txt
17 SRES 地盤の地震応答 sres.for test_wave.txt sres_out.txt
18 ENVL 地震動の包絡曲線 envl.for 内部 envl_out.txt
19 OWAC 地震動の最大加速度 owac.for 内部 owac_out.txt
20 VELK 地震動の最大速度 velk.for 内部 velk_out.txt
21 OHSP 大崎スペクトル ohsp.for 内部 ohsp_out.txt
22 WGEN 模擬地震動の作成 wgen.for 内部 wgen_out.txt
23 LAIN ラグランジェ法による内挿 lain.for 内部 lain_out.txt

Oosaki-Yorihiko_Programs.zip