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

#include "rtlooksrc.h"


/* Function: ==================================================
 * Abstract:
 *   Linear 1-D interpolation of a table, with extrapolation.
 */
real_T rt_Intrp1LinXd(const int_T    bpIndex,
                      const real_T   lambda,
                      const real_T * const tableData,
                      const int_T    maxIndex)
{
  real_T normLambda = lambda;
  int_T  normIdx;

  if (bpIndex < 0) {
    normIdx = 0;
    if (!(lambda < (real_T)(bpIndex))) {
      normLambda = (real_T)bpIndex;
    }
  } else if (bpIndex >= maxIndex) {
    normIdx = (maxIndex - 1);
    if (!(lambda > (real_T)(bpIndex - maxIndex))) {
      normLambda = (real_T)(bpIndex - maxIndex);
    }
  } else {
    normIdx = bpIndex;
  }
    
  return(tableData[normIdx] + 
         normLambda * (tableData[normIdx+1] - tableData[normIdx]));
} /* [EOF] rt_intrp1linxd.c */