SUSTRIP and SUPASTE - Strip and Paste SU Headers

% sustrip < data.su head=data.head > data.strip
... other processing that doesn't change the number of traces ...
% supaste < datanew.strip head=data.head > datanew.su

See the discussion of sustrip and supaste above.