void dcdchi(double,double,double*,double*,long*);