First Arrival Seismic Tomography(FAST)是一隻能夠計算二維/三維first arrival tomography的小程式，雖然他已經13歲了(1998年first release)，不過到現在還是非常實用。
請下載FAST主程式，也必須下載for g77的patch檔。
請注意這個patch檔(十分感謝Drew Brenders提供這個patch)是必要的，因為作者Colin Zelt當初是在Sun Solaris上開發這隻程式的，沒有這個patch檔將無法在linux上成功編譯。
1. 準備好編譯器以及所需的libraries
- For Debian/Ubuntu users:
- For CentOS/Fedora users: 以我自己的Fedora14為例，套件名稱會像下面這樣：
- For OpenSuSE users: 以我自己的OpenSuSE 11.4為例，套件名稱會像下面這樣：
aptitude install fort77 libf2c make -y
ln -s /usr/bin/f77 /usr/bin/g77
yum install compat-libf2c-34 compat-gcc-34-g77-3.4.6-20.fc14.i686 make -y如果你的版本不同，你需要用yum search找確切的套件名稱。你或許會發現兩套linux對於fortran77的稱呼剛好相反。
ln -s /usr/bin/g77 /usr/bin/f77
ln -s /usr/lib/libg2c.so.0 /usr/lib/libf2c.so.2
yum install -y gcc33-fortran make libg2c33
ln -s /usr/bin/g77-3.3 /usr/bin/g77
ln -s /usr/bin/g77-3.3 /usr/bin/f77
ln -s /usr/lib/libg2c.so.0 /usr/lib/libf2c.so.2
2. 下載FAST以及其patch
cd ; wget -c http://www.glacier.rice.edu/department/faculty/zelt/fast.tar.gz
wget -c http://www.glacier.rice.edu/department/faculty/zelt/fast_g77_patch.tar.gz
tar zxvf fast.tar.gz && mv fast fast_g77
tar zxvf fast_g77_patch.tar.gz
rsync -av fast/2d_example_linux/ fast_g77/2d_example/
3. 開始編譯:
我覺得COMPILE_FAST.csh實在寫得很爛，決定寫一個更好一點的script，所以在此先刪除他。
cd fast打完patch應該顯示下列結果：
rm -f COMPILE_FAST.csh
patch -p0 < fast_g77.diff
patching file ../fast_g77/fd/fd.com patching file ../fast_g77/fd/fd.par patching file ../fast_g77/fd/findiff.f patching file ../fast_g77/fd/main.f patching file ../fast_g77/fd/Makefile patching file ../fast_g77/fd/misc.f patching file ../fast_g77/misc/1dvel2.f patching file ../fast_g77/misc/1dvel.f patching file ../fast_g77/misc/2dvel.f patching file ../fast_g77/misc/add2.f patching file ../fast_g77/misc/add.f patching file ../fast_g77/misc/ave2.f patching file ../fast_g77/misc/ave4.f patching file ../fast_g77/misc/ave.f patching file ../fast_g77/misc/difference2.f patching file ../fast_g77/misc/difference.f patching file ../fast_g77/misc/gmtslice_2d.f patching file ../fast_g77/misc/gmtslice.f patching file ../fast_g77/misc/gmtslicep.f patching file ../fast_g77/misc/h2z.f patching file ../fast_g77/misc/inverse_2d.f patching file ../fast_g77/misc/inverse.f patching file ../fast_g77/misc/lambda3.f patching file ../fast_g77/misc/latave.f patching file ../fast_g77/misc/ray.par patching file ../fast_g77/misc/real2int.f patching file ../fast_g77/misc/rec_ascii.f patching file ../fast_g77/misc/rec_binary.f patching file ../fast_g77/misc/rec_deci.f patching file ../fast_g77/misc/rec_diff.f patching file ../fast_g77/misc/rec_noise2.f patching file ../fast_g77/misc/rec_noise.f patching file ../fast_g77/misc/rec_offset.f patching file ../fast_g77/misc/regrid_2d.f patching file ../fast_g77/misc/regrid.f patching file ../fast_g77/misc/resamp.f patching file ../fast_g77/misc/smodel.f patching file ../fast_g77/misc/vz.f patching file ../fast_g77/misc/z2h.f patching file ../fast_g77/ray/blkdat.f patching file ../fast_g77/ray/main.f patching file ../fast_g77/ray/Makefile patching file ../fast_g77/ray/ray.com patching file ../fast_g77/ray/ray.par patching file ../fast_g77/ray/tomo.f patching file ../fast_g77/zslice/main.f patching file ../fast_g77/zslice/Makefile由於個人因素，我覺得作者的Makefile寫得很不好，因此我自己寫了一個小script，開始進行自動編譯：
cd ../fast_g77這個COMPILE_FAST.sh威力強大，能自動產生正確的Makefile並進行編譯(if you can't download the script from it, check the source code of this page)。通常只有misc資料夾下的小程式會出現問題，你可以參考misc.log來檢視是否有任何錯誤發生，而這類fortran的問題我無法解決。如果有編譯上的困難，請千萬不要問我，我很討厭fortran。
find . -name Makefile -exec rm {} \;
wget -c http://iesdebian.twbbs.org/progs/COMPILE_FAST.sh
bash COMPILE_FAST.sh
4. 設定環境變數：
至此你已經完成編譯。現在你只需要把這東西放到/opt裡，再設定環境變數即可：
cd ..; rsync -av fast_g77 /opt/新增(append)幾行到/etc/profile裡：
export FAST="/opt/fast_g77" export PATH="$PATH:$FAST/bin"然後重新登入(re-login)，就可以快樂的使用這些指令了。關於fast的操作，請參考Traveltime calculation using FAST.
| Share this Link |
