void dged(double*,long,long,long[],double[]);