define real number_spikes
define real dummy_signal /like signal
let dummy_signal signal
despike /iter 3 /inter
let dummy_signal dummy_signal-signal
let dummy_signal 1 /where dummy_signal.ne.0
compute number_spikes mean dummy_signal
let number_spikes nint(number_spikes*nrecord*nchan)
say " Command was: DESPIKE /ITERATE 3 /INTERPOLATE"
if (number_spikes.lt.1) then
  say " No spikes found"
 else
  say " Number of spikes removed: "'number_spikes'
  @ p_signal
endif
del /var dummy_signal number_spikes
let type "MDB"