void scdchi(float,float,float*,float*,long*);
void sgami(float,float,float*,float*,long*);