void sevun(float*,long,long,float[],float[],long[]);
void svecp(float[],long,STRING);