1 /* 2 * R : A Computer Language for Statistical Data Analysis 3 * Copyright (C) 2005-2020 The R Core Team 4 * 5 * This program is free software; you can redistribute it and/or modify 6 * it under the terms of the GNU General Public License as published by 7 * the Free Software Foundation; either version 2 of the License, or 8 * (at your option) any later version. 9 * 10 * This program is distributed in the hope that it will be useful, 11 * but WITHOUT ANY WARRANTY; without even the implied warranty of 12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 * GNU General Public License for more details. 14 * 15 * You should have received a copy of the GNU General Public License 16 * along with this program; if not, a copy is available at 17 * https://www.R-project.org/Licenses/ 18 */ 19 20 #ifndef R_STATS_H 21 #define R_STATS_H 22 23 /* definitions not involving SEXPs, including those for .Fortran. */ 24 25 #ifdef ENABLE_NLS 26 #include <libintl.h> 27 #define _(String) dgettext ("stats", String) 28 #else 29 #define _(String) (String) 30 #endif 31 32 #include <R_ext/RS.h> 33 34 /* A starting point to extract such prototypes for .Fortran calls is 35 36 gfortran -c -fc-prototypes-external hclust.f 37 38 for gfortran >= 9, replacing hclust_ with the macro call. */ 39 40 void 41 F77_NAME(hclust)(int *n, int *len, int *iopt, int *ia, int *ib, 42 double *crit, double *membr, int *nn, 43 double *disnn, double *diss); 44 45 void 46 F77_NAME(hcass2)(int *n, int *ia, int *ib, int *iorder, int *iia, int *iib); 47 48 void 49 F77_NAME(kmns)(double *a, int *m, int *n, double *c, int *k, 50 int *ic1, int *ic2, int *nc, double * an1, double *an2, 51 int *ncp, double *d, int *itran, 52 int *live, int *iter, double *wss, int *ifault); 53 54 void F77_NAME(lminfl)(double *x, int *ldx, int *n, int *k, int *q, 55 double *qraux, double *resid, double *hat, 56 double *sigma, double *tol); 57 58 void rcont2(int nrow, int ncol, const int nrowt[], const int ncolt[], int ntotal, 59 const double fact[], int *jwork, int *matrix); 60 61 double R_zeroin2(double ax, double bx, double fa, double fb, 62 double (*f)(double x, void *info), void *info, 63 double *Tol, int *Maxit); 64 65 66 #endif 67