float serf(float);
float serfc(float);
void sgami(float,float,float*,float*,long*);
void sgamik(float,float,float,long);