void dcdpoi(long,double,double*,double*,long*);
void dgamik(double,double,double,long);