double F77_SUB(dlnrm)(double *x, double *logmean, double *logsd, int *give_log)
{
return dlnorm(*x, *logmean, *logsd, *give_log);
}
// normal measurement model density
void _gompertz_normal_dmeasure (double *lik, double *y, double *x, double *p, int give_log,
int *obsindex, int *stateindex, int *parindex, int *covindex,
int ncovars, double *covars, double t) {
*lik = dlnorm(Y,log(X),TAU,give_log);
}
