#include <R_ext/RS.h>

void F77_SUB(loglik)( double * Y0, 
		      double * X0,
		      double * Tentr0,
		      double * Tevt0,
		      int * Devt0,
		      int * ind_survint0,
		      int * idea0,
		      int * idg0,
		      int * idcor0,
		      int * idcontr0,
		      int * idsurv0,
		      int * idtdv0,
		      int * typrisq0,
		      int * nz0,
		      double * zi0,
		      int * nbevt0,
		      int * idtrunc0,
		      int * logspecif0,
		      int * ny0,
		      int * ns0,
		      int * nv0,
		      int * nobs0,
		      int * nmes0,
		      int * idiag0,
		      int * ncor0,
		      int * nalea0,
		      int * npm0,
		      double * b0,
		      int * nfix0,
		      double * bfix0,
		      double * epsY0,
		      int * idlink0,
		      int * nbzitr0,
		      double * zitr0,
		      double * uniqueY0,
		      int * indiceY0,
		      int * indiceYinf0,
		      int * nvalSPLORD0,
		      int * fix0,
		      int * methInteg0,
		      int * nMC0,
		      int * dimMC0,
		      double * seqMC0,
		      int * idst0,
		      int * nXcl0,
		      double * Xcl_Ti0,
		      double * Xcl_GK0,
		      double * Xcs_Ti0,
		      double * Xcs_GK0,
		      int * nonlin0,
		      double * centerpoly0,
		      int * expectancy0,
		      double * loglik_res);

void F77_SUB(reconddensity)(double * ui0,
			    double * Y0, 
			    double * X0,
			    double * Tentr0,
			    double * Tevt0,
			    int * Devt0,
			    int * ind_survint0,
			    int * idea0,
			    int * idg0,
			    int * idcor0,
			    int * idcontr0,
			    int * idsurv0,
			    int * idtdv0,
			    int * typrisq0,
			    int * nz0,
			    double * zi0,
			    int * nbevt0,
			    int * idtrunc0,
			    int * logspecif0,
			    int * ny0,
			    int * nv0,
			    int * nobs0,
			    int * nmes0,
			    int * idiag0,
			    int * ncor0,
			    int * nalea0,
			    int * npm0,
			    double * b0,
			    double * epsY0,
			    int * idlink0,
			    int * nbzitr0,
			    double * zitr0,
			    double * uniqueY0,
			    int * indiceY0,
			    int * nvalSPLORD0,
			    int * idst0,
			    int * nXcl0,
			    double * Xcl_Ti0,
			    double * Xcl_GK0,
			    double * Xcs_Ti0,
			    double * Xcs_GK0,
			    int * nonlin0,
			    double * centerpoly0,
			    double * loglik);
