void scdpoi(long,float,float*,float*,long*);
void sgamik(float,float,float,long);