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

#include "rtlooksrc.h"


/* Function: ===============================================
 * Abstract:
 *    Integrated index search function with extrapolation  
 *    and direct calculations for both index and interval 
 *    fraction (lambda) for evenly spaced data.
 */
int_T    rt_PLookEvnXd(const real_T         u,
		       real_T * const lambda,
		       const real_T * const bpData,
		       const int_T          maxIndex)
{
  const real_T invSpacing = 1.0/(bpData[1] - bpData[0]);
  int_T bpIndex;

  if (u <= bpData[0]) {
    bpIndex = 0;
  } else if (u >= bpData[maxIndex]) {
    bpIndex = maxIndex - 1;
  } else {
    bpIndex = (int_T)((u - bpData[0]) * invSpacing);
  }

  *lambda = (u - bpData[bpIndex]) * invSpacing;
  return(bpIndex);
} /* [EOF] rt_plookevnxd.c */