void drangv(double*,long,long,double[],double[],LOGICAL32*,long*);