void dvecp(double[],long,STRING);
void ivecp(long[],long,STRING);
void svecp(float[],long,STRING);