remove long-obsolete dchdc.f

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

Author: ripley

src/appl/Makefile.in

@@ -13,7 +13,7 @@ include $(top_builddir)/Makeconf
 SOURCES_C = \
 	integrate.c interv.c maxcol.c optim.c pretty.c uncmin.c
 SOURCES_F = \
-	dchdc.f dpbfa.f dpbsl.f dpoco.f dpodi.f dpofa.f dposl.f dqrdc.f \
+	dpbfa.f dpbsl.f dpoco.f dpodi.f dpofa.f dposl.f dqrdc.f \
 	dqrdc2.f dqrls.f dqrsl.f dqrutl.f dsvdc.f dtrco.f dtrsl.f
 DEPENDS = $(SOURCES_C:.c=.d)
 OBJECTS_BLAS = @USE_EXTERNAL_BLAS_FALSE@ blas.o @COMPILE_FORTRAN_DOUBLE_COMPLEX_FALSE@ cmplxblas.o

src/appl/Makefile.win

@@ -5,7 +5,7 @@ CPPFLAGS = -I../include -DHAVE_CONFIG_H -DR_DLL_BUILD
 CSOURCES = \
 	integrate.c interv.c maxcol.c optim.c pretty.c uncmin.c
 FSOURCES = \
-	dchdc.f dpbfa.f dpbsl.f dpoco.f dpodi.f dpofa.f dposl.f dqrdc.f \
+	dpbfa.f dpbsl.f dpoco.f dpodi.f dpofa.f dposl.f dqrdc.f \
 	dqrdc2.f dqrls.f dqrsl.f dqrutl.f dsvdc.f dtrco.f dtrsl.f
 OBJS = $(CSOURCES:.c=.o) $(FSOURCES:.f=.o)
 

src/appl/dchdc.f

@@ -1,7 +1,7 @@
 #  File src/library/base/baseloader.R
 #  Part of the R package, https://www.R-project.org
 #
-#  Copyright (C) 1995-2020 The R Core Team
+#  Copyright (C) 1995-2025 The R Core Team
 #
 #  This program is free software; you can redistribute it and/or modify
 #  it under the terms of the GNU General Public License as published by
@@ -107,8 +107,7 @@ is.name <- is.symbol
 ## populate C/Fortran symbols
 local({
     routines <- getDLLRegisteredRoutines("base")
-    for (i in c("dchdc", # chol, deprecated
-                "dqrcf", "dqrdc2", "dqrqty", "dqrqy", "dqrrsd", "dqrxb", # qr
+    for (i in c("dqrcf", "dqrdc2", "dqrqty", "dqrqy", "dqrrsd", "dqrxb", # qr
                 "dtrco")) # .kappa_tri
         assign(paste0(".F_", i), routines[[3]][[i]], envir = .BaseNamespaceEnv)
     for(i in 1:2)

src/library/base/baseloader.R

@@ -1,6 +1,6 @@
 % File src/library/base/man/base-internal.Rd
 % Part of the R package, https://www.R-project.org
-% Copyright 1995-2023 R Core Team
+% Copyright 1995-2025 R Core Team
 % Distributed under GPL 2 or later
 
 \name{base-internal}
@@ -38,7 +38,7 @@
 \alias{.C_R_addTaskCallback}
 \alias{.C_R_getTaskCallbackNames}
 \alias{.C_R_removeTaskCallback}
-\alias{.F_dchdc}
+%\alias{.F_dchdc} long defunct, removed in R 4.6.0
 \alias{.F_dqrcf}
 \alias{.F_dqrdc2}
 \alias{.F_dqrqty}

src/library/base/man/base-internal.Rd

@@ -245,7 +245,7 @@ List of 3
 +     "\n\t starting with 'is.' :\t  ",
 +     sum(grepl("^is\\.", ls.base[base.is.f])), "\n", sep = "")
 
-Number of all base objects:	1405
+Number of all base objects:	1404
 Number of functions from these:	1360
 	 starting with 'is.' :	  53