void dvecpr(double[],long,STRING,long,long,long);
void ivecpr(long[],long,STRING,long,long);
void svecpr(float[],long,STRING,long,long,long);