remove incorrect C declaration for F77_SUB(interv)

git-svn-id: https://svn.r-project.org/R/trunk@87947 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: ripley

doc/NEWS.Rd

@@ -418,6 +418,11 @@
       \item Header \file{R_exts/Error.h} now ensures that
       \code{Rf_error} and similar are given a \code{noreturn}
       attribute when used from C++ under all compilers.
+
+      \item Header \file{R_exts/Utils.h} no longer contains a
+      declaration for \code{77_SUB(interv)}.  This is intended to be
+      called from Fortran and was wrongly declared: \code{LOGICAL} in
+      Fortran corresponds to \code{int *} not \code{Rboolean *}.
     }
   }
 

src/appl/interv.c

@@ -27,12 +27,17 @@
 #include <R_ext/Boolean.h>
 #include <R_ext/Utils.h>
 
-/* In API headers R_ext/Applic.h and R_ext/Utils.h
+/* Was in API header R_ext/Utils.h
 
-   This is called from stats/src/bvalue.f, 3 x stats/src/s*.f for smooth.spline()
-   and packages gam and mda */
+   This is called from Fortran in stats/src/bvalue.f,
+   3x stats/src/s*.f for smooth.spline() 
+   and packages gam and mda.
+
+   Was Rboolean *. but that is not possible from Fortran.  Since it is
+   inteneded to be called from C it should not be in a C header.
+*/
 int F77_SUB(interv)(double *xt, int *n, double *x,
-		    Rboolean *rightmost_closed, Rboolean *all_inside,
+		    int *rightmost_closed, int *all_inside,
 		    int *ilo, int *mflag)
 {
   return findInterval(xt, *n, *x, *rightmost_closed, *all_inside, *ilo, mflag);

src/include/R_ext/Utils.h

@@ -1,6 +1,6 @@
 /*
  *  R : A Computer Language for Statistical Data Analysis
- *  Copyright (C) 1998-2024    The R Core Team
+ *  Copyright (C) 1998-2025    The R Core Team
  *
  *  This header file is free software; you can redistribute it and/or modify
  *  it under the terms of the GNU Lesser General Public License as published by
@@ -107,7 +107,7 @@ void R_CheckStack(void);
 void R_CheckStack2(R_SIZE_T);
 
 
-/* ../../appl/interv.c: first also in Applic.h 
+/* ../../appl/interv.c: first and also in Applic.h 
    Both are API
 */
 int findInterval(double *xt, int n, double x,
@@ -116,11 +116,15 @@ int findInterval(double *xt, int n, double x,
 int findInterval2(double *xt, int n, double x,
 		  Rboolean rightmost_closed,  Rboolean all_inside, Rboolean left_open,
 		  int ilo, int *mflag);
+/* Removed in 4.5.0
 #ifdef R_RS_H
+// Was Rboolean*, but that is not possible in Fortran.
 int F77_SUB(interv)(double *xt, int *n, double *x,
-		    Rboolean *rightmost_closed, Rboolean *all_inside,
+		    int *rightmost_closed, int *all_inside,
 		    int *ilo, int *mflag);
 #endif
+*/
+ 
 /* not API, no longer in R
 void find_interv_vec(double *xt, int *n,	double *x,   int *nx,
 		     int *rightmost_closed, int *all_inside, int *indx);