double eshe1l(double*);