copy_parameters.m

基于Matlab的地震数据处理显示和测井数据显示于处理的小程序

function structout=copy_parameters(structin,structout)
% Function copies all parameters of a log structure, seismic structure, or table  
% structure to another (parameter in a structure can be identified by an entry 
% in the 'parameter_info' field (cell array) of the structure); if a parameter 
% exists already in the output structure it will be overwritten.
% Written by: E. R.: October 6, 2005
% Last updated:
%
%            structout=copy_parameters(structin,structout)
% INPUT
% structin   structure from which the parameters are to be copied
% structout  structure to which the parameters are to be copied
% OUTPUT
% structout  structure to which the parameters are to be copied

if ~isstruct(structin)
   error(' First input data set must be a structure')
end

if ~isfield(structin,'parameter_info')
   return
end
params=structin.parameter_info(:,1);

for ii=1:length(params)
   structout=add_parameter(structout,getfield(structin,params{ii}), ...
                           structin.parameter_info(ii,:));
end