%% $RCSfile: sdspfrmconv.tlc,v $
%% $Revision: 1.2 $ 
%% $Date: 2000/04/11 21:26:14 $
%%
%% R. Mani
%% August 10, 1999
%% Copyright (c) 1995-1999 The MathWorks, Inc. All Rights Reserved.
%%
%% Abstract: Frame Status Conversion

%implements sdspfrmconv "C"

%% Function: Outputs ==========================================================
%%
%function Outputs(block, system) Output
  /* Frame Status Conversion (%<ParamSettings.FunctionName>) - %<Name> */
  %%
  %assign INPORT  = 0
  %assign OUTPORT = 0
  %%
  %% NOTE: The following only works for SL built-in types (i.e. not for custom types)
  %assign outDtypeId          = LibBlockOutputSignalDataTypeId(OUTPORT)
  %assign numBytesPerRealElmt = SLibGetDataTypeSizeFromId(outDtypeId)
  %assign numBytesPerCplxElmt = 2 * numBytesPerRealElmt
  %%
  %assign in_place    = (LibBlockInputSignalBufferDstPort(INPORT) == OUTPORT)
  %assign OUT_COMPLEX = LibBlockOutputSignalIsComplex(OUTPORT)
  %assign outDims    = LibBlockOutputSignalDimensions(OUTPORT)
  %%
  %%
  %if !in_place
    %%
    %if OUT_COMPLEX
        %assign numBytesPerInputMatrix = LibBlockInputSignalWidth(INPORT) * numBytesPerCplxElmt
    %else
        %assign numBytesPerInputMatrix = LibBlockInputSignalWidth(INPORT) * numBytesPerRealElmt
    %endif
    %%
    memcpy( (byte_T *)%<LibBlockOutputSignalAddr(OUTPORT, "", "", 0)>, \
            (byte_T *)%<LibBlockInputSignalAddr(INPORT,"","",0)>, %<numBytesPerInputMatrix> ); \
            /* [%<outDims[0]>x%<outDims[1]>] */
    %%
  %elseif (ShowEliminatedStatements)
    /* No action necessary for this block since input buffer is reused at output. */
  %endif
  
%endfunction

%% [EOF] sdspfrmconv.tlc