The R Project SVN R

Rev

Rev 87947 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 87947 Rev 87948
Line 38... Line 38...
38 
*/
 38 
*/
39 
int F77_SUB(interv)(double *xt, int *n, double *x,
 39 
int F77_SUB(interv)(double *xt, int *n, double *x,
40 
		    int *rightmost_closed, int *all_inside,
 40 
		    int *rightmost_closed, int *all_inside,
41 
		    int *ilo, int *mflag)
 41 
		    int *ilo, int *mflag)
42 
{
 42 
{
- 
 
 43 
    // This has an int return value which is ignored here
43 
  return findInterval(xt, *n, *x, *rightmost_closed, *all_inside, *ilo, mflag);
 44 
    return findInterval(xt, *n, *x,
- 
 
 45 
			(Rboolean) *rightmost_closed,
- 
 
 46 
			(Rboolean) *all_inside,
- 
 
 47 
			*ilo, mflag);
44 
}
 48 
}
45 
 
 49 
 
46 
/* In API header R_ext/Utils.h */
 50 
/* In API header R_ext/Utils.h */
47 
int findInterval2(double *xt, int n, double x,
 51 
int findInterval2(double *xt, int n, double x,
48 
		  Rboolean rightmost_closed, Rboolean all_inside,
 52 
		  Rboolean rightmost_closed, Rboolean all_inside,