double loki_trait_simple_peelop(const struct Simple_Element *,const int,const int,double **,struct R_Func *,trait_pen_func *,struct peel_mem *);
double loki_trait_simple_sample(const struct Simple_Element *,const int,const int,double **,struct R_Func *,trait_pen_func *,struct peel_mem *);
