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