void dcopy(long,double[],long,double[],long);
void ddasco(double*,long,long,double[],double[]);
void ddasdb(long,long,double,double[],double[],long[],double[],
	long[],long,double[],double[]);
void ddasf(double,double[],double[],double[],double[],long,double,
	long,double[],long[]);
void ddasgh(double,double,double*,double,double*,double);
void ddasin(double,double,double[],double[],long,long,double*,
	double[]);
void ddasj(long,long*,double*,double[],double[],double[],double,double[],double[],double[],long[],double[],
          void(*)(double*,double[],double[],double[],double[],long*,double*,long*,double[],long[]),long[],long*);
void ddaslv(long,long*,double*,double[],double[],double[],
          void(*)(double*,double[],double[],double[],double[],long*,double*,long*,double[],long[]),long[],long[],double[]);
double ddasnm(long,double[],double[],double[],long[]);
void ddastp(double*,double[],double[],long,long*,
          void(*)(double*,double[],double[],double[],double[],long*,double*,long*,double[],long[]),long[],double*,double[],long*,
          double*,double[],double[],double[],long[],double[],double[],double[],double[],double[],double[],long*);
double dnrm2(long,double[],long);