%% $RCSfile: sdsp2col.tlc,v $
%% $Revision: 1.1 $
%% $Date: 2000/05/23 21:45:30 $
%%
%% Copyright 1995-2000 The MathWorks, Inc.
%%

%implements sdsp2col "C"


%% Function: Outputs ==========================================================
%%
%function Outputs(block, system) Output


  %% Only generate code if output buffer does not share the input buffer space.
  %%
  %assign INPORT  = 0
  %assign OUTPORT = 0
  %%
  %assign need_copy = (LibBlockInputSignalBufferDstPort(INPORT) != OUTPORT)
  %assign inWidth   = LibBlockInputSignalWidth(INPORT)
  %%
  %assign COMPLEX   = LibBlockOutputSignalIsComplex(OUTPORT)
  %assign DTYPE_ID  = LibBlockOutputSignalDataTypeId(OUTPORT)
  %assign BYTES_PER_ELEMENT = (1 + COMPLEX) * SLibGetDataTypeSizeFromId(DTYPE_ID)  
  %%
  %if need_copy
    %%
    /* DSP Blockset convert vector to column (%<ParamSettings.FunctionName>) - %<Name> */

    memcpy( (byte_T *)%<LibBlockOutputSignalAddr(OUTPORT, "", "", 0)>, \
            (byte_T *)%<LibBlockInputSignalAddr(INPORT, "", "", 0)>, \
            %<inWidth * BYTES_PER_ELEMENT> );
    %%
  %endif

%endfunction

%% [EOF] sdsp2col.tlc