void dvecp(double[],long,STRING);