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