void sintf(float*,float[],long[]);
void sint1(float,float,float*,float[],long[]);