void ddassf0(double*,double[],double[],double[],double[],long*,double*,long*,double[],long[]);
void ddassf1(double*,double[],double[],double[],double[],long*,double*,long*,double[],long[]);
void drddasl1(void);