subroutine genkir3d(param,out_geom, out_geom_block, &
trace_interp_real,trace_interp_complex, &
spat_interp_real, spat_interp_complex, &
map_amp, map_amp_pre, map_amp_post, &
oper_domain)
type(genkir3d_param_type), intent (in) :: param
type(seis3d_geom_type), optional, intent (in) :: out_geom,out_geom_block
external trace_interp_real,trace_interp_complex
external spat_interp_real,spat_interp_complex
external map_amp,map_amp_pre,map_amp_post
external oper_domain
optional trace_interp_real,trace_interp_complex
optional spat_interp_real,spat_interp_complex
optional map_amp,map_amp_pre,map_amp_post
optional oper_domain
3|c|Derived-type arguments | ||
---|---|---|
Name | Description | Remarks |
param | Processing parameter structure | |
out_geom | Geometry of whole output space | Spraying or |
gathering | ||
out_geom_block | Geometry of output space block | Spraying or |
gathering |
2|c|External procedures | |
---|---|
Name | Description |
trace_interp_real | Real-trace interpolation |
trace_interp_complex | Complex-trace interpolation |
spat_interp_real | Real spatial interpolation |
spat_interp_complex | Complex spatial interpolation |
map_amp | Operator transformation |
map_amp_pre | Trace-to-trace transformation applied before map_amp |
map_amp_post | Trace-to-trace transformation applied after map_amp |
oper_domain | Operator domain |