void dckder(long*,long,long,double[],double[],double*,long,double*,long*,long*,
      double*);