void dged(double*,long,long,long[],double[]);
void dgefs(double*,long,long,double*,long,long,long[],long*);
void dgei(double*,long,long,long[],double[]);
void dgeslt(double*,long,long,long[],double[]);
void dmatp(double*,long,long,long,STRING);