文件列表:

focal.data (534, 2003-03-31)
disper-sinc.f (2322, 2003-03-31)
disper-sta-phase.f (2344, 2003-03-31)
disper-string.f (3369, 2003-03-31)
eigen2.f (9393, 2003-03-31)
fftsub.f (13589, 2003-03-31)
caustic.f (2615, 2003-03-31)
focalplot.f (15069, 2003-03-31)
helix.f (5062, 2003-03-31)
hilbert.f (5579, 2003-03-31)
layer-sh-ray.f (9699, 2003-03-31)
love.f (7877, 2003-03-31)
motion-pnt-src.f (2888, 2003-03-31)
nodplane-sub.f (1150, 2003-03-31)
pbt-sub.f (2819, 2003-03-31)
p-free-s.f (4605, 2003-03-31)
p-sv-layer.f (13294, 2003-03-31)
rad_dble_cple.m (1905, 2003-03-31)
rad_pnt_src.m (1437, 2003-03-31)
rad_sing_cple.m (1308, 2003-03-31)
rad-31-1331.f (10662, 2003-03-31)
rad-pnt-src.f (2941, 2003-03-31)
radproj-n.f (19306, 2003-03-31)
rad-sing-cple.f (3306, 2003-03-31)
sh-layer.model (87, 2003-03-31)
sh-layer-q.f (6994, 2003-03-31)
sv-free-s.f (8965, 2003-03-31)
synth-mom-tensor.f (10024, 2003-03-31)
synth-mt.dat (847, 2003-03-31)
synth-pnt-src.f (5113, 2003-03-31)
zoep.in (197, 2003-03-31)
zoep-p.f (8626, 2003-03-31)
zoep-sv.f (9249, 2003-03-31)

PROGRAMS USED TO GENERATE SOME OF THE FIGURES IN THE BOOK: Seismic wave propagation and generation in seismology by J. Pujol, Cambridge University Press, 2003. PERMISSION TO USE: These programs are provided for academic purposes only. Commercial use is not allowed. The software may not be sold, rented, or reproduced, without the express written permission from the author. DISCLAIMER: The reader planning to use the software should note that, from the legal point of view, there is no warranty, expressed or implied, that the programs are free of error or will prove suitable for a particular application; by using the software the reader accepts full responsibility for the results produced, and the author and publisher disclaim all liability from any consequences arising from use of the software. The software should not be relied upon for solving a problem whose incorrect solution could result in injury to a person or loss of property. If you do use the programs in such a manner, it is at your own risk. The authors and publisher disclaim all liability for direct or consequential damages resulting from your use of the programs. The author will appreciate if any errors found in the programs are brought to his attention (e-mail: jpujol@memphis.edu) ============================================================================= Figure Number Program ------------- ------------------- Fig. 6.2 p-free-s.f Fig. *** sv-free-s.f Fig. 6.5 hilbert.f Fig. 6.7 zoep-p.f Fig. 6.8 zoep-p.f Fig. 6.9 zoep-sv.f Fig. 6.10 zoep-sv.f Fig. 6.12 sh-layer-q.f Fig. 6.13 p-sv-layer.f Fig. 6.14 p-sv-layer.f Fig. 6.15 p-sv-layer.f Fig. 7.2 love.f Fig. 7.7 disper-sinc.f Fig. 7.8 disper-sta-phase.f Fig. 7.9 disper-string.f Fig. 8.3 helix.f Fig. 8.8 caustic.f Fig. 8.9 layer-sh-ray.f Fig. 8.10 layer-sh-ray.f Fig. 8.11 layer-sh-ray.f Fig. 9.4 synth-pnt-src.f Fig. 9.5a,b rad-pnt-src.f Fig. 9.5c,d rad_pnt_src.m Fig. 9.6 motion-pnt-src.f Fig. 9.12a,b rad-sing-cple.f Fig. 9.12c,d rad_sing_cple.m Fig. 9.13 rad_dble_cple.m Fig. 10.6 rad-31-1331.f Fig. 10.7 rad-31-1331.f Fig. 10.8 radproj-n.f Fig. 10.9 radproj-n.f Fig. 10.10 radproj-n.f Fig. 10.11 focalplot.f Fig. 10.13 synth-mom-tensor.f Also included are the following subroutines eigen2.f (eigenvalues and eigenvectors of a symmetric matrix) fftsub.f (fast Fourier transform) pbt-sub.f (given fault parameters, find the P, B, T axes) nodplane-sub.f (given fault parameters, find the parameters of the conjugate plane) The programs for most of the figures require the NCAR Graphics package, which is available for free. To download it go to http://ngwww.ucar.edu/ng4.3/index.html and click on Download or purchase For the NCAR Graphics documentation go to http://ngwww.ucar.edu/ngdoc/ng4.3/fund/fundhome.html The file .bashrc (Linux) should include the following lines PATH=$PATH:/usr/local/ncarg/bin export PATH NCARG_ROOT=/usr/local/ncarg export NCARG_ROOT (There should be similar lines in .cshrc in Unix) To compile and link the program myprogram.f enter: ncargf77 -w myprogram.f -o myprogram (see NOTE at the end) Execution of myprogram generates an output file named gmeta. To create a PostScript file enter: ctrans -d ps.mono gmeta >out.ps (black and white) OR ctrans -d ps.color gmeta >out.ps (color) NCAR has two coordinate systems. One of them, called the normalized device coordinate system, has lower left corner (0, 0) and upper right corner (1,1) and corresponds to the largest square that can be plotted in a given device. The other coordinate system is defined by the user. To select the area of the paper or screen where a plot will be placed four numbers are used: WL and WR (left and right limits along the horizontal axis) and WB and WT (bottom and top limits along the vertical axis) in the normalized coordinate system (these four numbers must be between zero and one). For the user coordinates the corresponding numbers are XL and XR and YB and YT. The following call establishes the correspondence between the two coordinate systems: CALL SET(WL,WR,WB,WT,XL,XR,YB,YT,1) These parameters can be changed within a program and this option has been used to produce more than one plot in the same figure. The basic plotting routines are: plchhq: plots characters curve, curved: plot a curve (continuous or dashed) line, lined: plot a straight line (continuous or dashed) NOTE: The NCAR programs were written using an earlier version of the package on a SUN machine and compiled and linked without warnings. However, the same programs with a new version of NCAR running on a PC with the Linux operating system generate a warning when the same subroutine is called more than once and some of the arguments are not of the same type in all the calls. The -w is used to avoid the warnings.

近期下载者：

相关文件：

评论：[我要评论] [举报此文件]

收藏者：