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