void ddassfa(double*,double[],double[],double[],double[],long*,double*,long*,double[],long[]);
void ddassfb(double*,double[],double[],double[],double[],long*,double*,long*,double[],long[]);
void drddasl5(void);