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