#======================================================================

#                    . I N T E R P . F I L L N A N 

#                    doc: Tue Sep 18 16:36:28 2012

#                    dlm: Tue Sep 18 16:43:36 2012

#                    (c) 2012 A.M. Thurnherr

#                    uE-Info: 34 5 NIL 0 0 72 10 2 4 NIL ofnI

#======================================================================

# fill missing with nans

# HISTORY:

#	Sep 18, 2012: - adapted from [.interp.nnbr]

# see [.interp.linear] for documentation of interface

$IS_opts = "";

$IS_optsUsage = "";

sub IS_usage() {}

sub IS_init($$$$) {}

sub IS_interpolate($$$$$$)

{

	my($bR,$idR,$xf,$xv,$xi,$f) = @_;

	if ($f == $xf) {

		return $xv;

    } elsif ($bR->[$xi][$xf] == $xv) {

		return $bR->[$xi][$f];

    } elsif ($bR->[$xi+1][$xf] == $xv) {

		return $bR->[$xi+1][$f];

	} else {

		return nan;

	}

}

1;