$Id: pwl_nearest.f90 3093 2008-04-22 14:51:09Z sfilippo $
Description: Given an array X_DATA and a scalar X returns the subscripts of the two nearest elements in the data series.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=psb_dpk_), | intent(in) | :: | x | |||
real(kind=psb_dpk_), | intent(in) | :: | x_data(:) | |||
integer, | intent(out) | :: | i1 | |||
integer, | intent(out) | :: | i2 |