These files are MATLAB and Python wrappers for the Okada DC3D0 point source and the DC3D rectangular dislocation surface fortran subroutines. The Matlab wrappers are written using the MEX functions. The original subroutine was written by Y. Okada as part of the paper:
Okada, Y., 1992, Internal deformation due to shear and tensile faults in a half-space, Bull. Seism. Soc. Am., 82, 1018-1040.
The inputs and outputs here are slightly different from the okada implementation, though not in any substantial way. Look at the original documentation webpage here for more details
A different MATLAB mex wrapper for the Okada dislocation sources is available on Paul Segall's website.
Download the code::
git clone https://github.com/tbenthompson/okada_wrapper.git
Make sure that MATLAB has a properly configured compiler. This page on MATLAB's site has details. It seem like GCC is automatically found if it is installed.
Open matlab and run::
mex 'DC3D0wrapper.F'
mex 'DC3Dwrapper.F'
Then, DC3D0wrapper can be treated like any other MATLAB function::
[success, u, grad_u] = DC3D0wrapper(0.6, [1.0, 1.0, -1.0],-3.0,...
90, [1.0, 0.0, 0.0, 0.0]);
Five arguments are required:
- alpha = (lambda + mu) / (lambda + 2 * mu)
- xo = 3-vector representing the observation point (x, y, z in the original)
- depth = the depth of the slip plane
- dip = the dip-angle of the slip plane in degrees
- potency = 4-vector (POT1,2,3,4 in original)
- index 1 = strike-slip = Moment of double-couple / mu
- index 2 = dip-slip = Moment of double-couple / mu
- index 3 = inflation = Intensity of isotropic part / lambda
- index 4 = tensile = Intensity of linear dipole / mu
Three outputs are provided:
- success - a return code from DC3D0=0 if normal, 1 if singular, 2 if a positive z value for the observation point was given
- u - 3-vector representing the displacement at the observation point. for example, u(2) = u_y
- grad_u = the 3x3 tensor representing the partial derivatives of the displacement, for example, grad_u(1, 2) = d(u_x)/dy
DC3Dwrapper can also be used for rectangular dislocation sources
[success, u, grad_u] = DC3Dwrapper(0.6, [1.0, 1.0, -1.0], 3.0,...
90, [-0.7, 0.7], [-0.7, 0.7],...
[1.0, 0.0, 0.0]);
Seven arguments are required:
- alpha = (lambda + mu) / (lambda + 2 * mu)
- xo = 3-vector representing the observation point (x, y, z in the original)
- depth = the depth of the fault origin
- dip = the dip-angle of the rectangular dislocation surface
- strike_width = the along-strike range of the surface (al1,al2 in the original)
- dip_width = the along-dip range of the surface (aw1, aw2 in the original)
- dislocation = 3-vector representing the direction of motion on the surface (DISL1, DISL2, DISL3)
The outputs are identical to DC3D0wrapper
NEW: You can install okada_wrapper
directly from the PyPI by running::
pip install okada_wrapper
For the old, manual installation method, download the code::
git clone https://github.com/tbenthompson/okada_wrapper.git
Make sure that a Fortran compiler is installed. The wrappers are tested using gcc/gfortran, but should hopefully work with other fortran compilers.
Then, run the install script::
python setup.py install
The syntax is almost identical to the MATLAB version::
from okada_wrapper import dc3d0wrapper, dc3dwrapper
success, u, grad_u = dc3d0wrapper(0.6, [1.0, 1.0, -1.0], 3.0,
1.0, [1.0, 0.0, 0.0, 0.0])
success, u, grad_u = dc3dwrapper(0.6, [1.0, 1.0, -1.0],
3.0, 90, [-0.7, 0.7], [-0.7, 0.7],
[1.0, 0.0, 0.0])
The arguments and outputs are identical to the MATLAB version.
To run the tests, from the root directory in MATLAB type::
test_okada.m
or, for python::
python test_okada.py