void dcopy(long,double[],long,double[],long);

.