gfortran -o f90_tunnel f90_tunnel.f90

./f90_tunnel a_gmt_HT1.txt fig_eps_HT1.eps 0 8200 550 0 6000 100 100
./f90_tunnel a_gmt_HT2.txt fig_eps_HT2.eps 0 6100 550 0 5000 100 100
./f90_tunnel a_gmt_PS1.txt fig_eps_PS1.eps 1 5400 600 300 5000 100 100
./f90_tunnel a_gmt_PS2.txt fig_eps_PS2.eps 1 3000 500 100 3000 100 100

rm _*