Interface: trace_interp_real and trace_interp_complex

  These functions perform the time-axis transformation defined by the four arrays map, amp, first_samp, last_samp, and max_freq, that are initialized by the map_amp function. The function trace_interp_real is used for real traces, while the function trace_interp_complex is used for complex traces.

function trace_interp_real ( &
   adj, first_samp, last_samp, map, amp, inp, out) result (stat)
integer                 :: stat
logical, intent (in)    :: adj
integer, dimension(:,:) :: first_samp,last_samp
real,  dimension (:,:,:)  :: map,amp
real,  dimension (:,:)  :: inp, out

function trace_interp_complex ( &
   adj, first_samp, last_samp, map, amp, inp, out) result (stat)
integer                 :: stat
logical, intent (in)    :: adj
integer, dimension(:,:) :: first_samp,last_samp
complex,  dimension (:,:,:)  :: map,amp
complex,  dimension (:,:)  :: inp, out

Name Description

stat Status of the call. Set to 0 if successful

adj Pull interpolation (adj=.false.) vs. push interpolation (adj=.true.)

Name Description Shape

first_samp First valid output sample (1:n_tr_inp,1:n_tr_out)

last_samp Last valid output sample (1:n_tr_inp,1:n_tr_out)

map Mapping function (1:n_tz_out,1:n_tr_inp,1:n_tr_out)

amp Amplitude function (1:n_tz_out,1:n_tr_inp,1:n_tr_out)

max_freq Maximum frequency (1:n_tz_out,1:n_tr_inp,1:n_tr_out)

inp_bpass Bandpassed input traces (1:n_t_inp*oversamp_bpass,1:n_tr_inp)

out Output traces (1:n_tz_out,1:n_tr_out)