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