1 2
void dcdchi(double,double,double*,double*,long*); void dgami(double,double,double*,double*,long*);