/*
 * File : rt_intrp1flatcd.c generated from file
 *       gentablefuncs, Revision: 1.7.4.6 
 * 
 *   Copyright 1994-2003 The MathWorks, Inc.
 *
 *
 */

#include "rtlooksrc.h"


/* Function: ==================================================
 * Abstract:
 *   Flat 1-D interpolation of a table, with clipping.
 */
real_T rt_Intrp1FlatCd(const int_T          bpIndex,
		       const real_T         lambda,
		       const real_T * const tableData,
		       const int_T          maxIndex)
{
  if (bpIndex < 0) {
    return(tableData[0]);
  } else if (bpIndex >= maxIndex) {
    return(tableData[maxIndex]);
  } else {
    int_T idx = bpIndex + (int_T)(((int_T)lambda) > 0);
    return(tableData[idx]);
  }
} /* [EOF] rt_intrp1flatcd.c */