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