seinst1 - Einstein function E1(x)

#include <msca.h> 
 
double seinst1 (double x); 
float  seinst1f(float x);

Given a value $x$ this function computes the first Einstein function

x2ex E1(x)=(ex-1)2