void selefi(float,float,float*,float*,long*);
void selpii(float,float,float,float*,long*);
void srcval(float,float,float*,long*);
void srdval(float,float,float,float*,long*);
void srfval(float,float,float,float*,long*);
void srjval(float,float,float,float,float*,long*);