void dbacc(double*,long,long,long*,long,long,long*,long*);
void dbsol(long,double*,long,long,long,long,double[],long,double*,long*);