void sinta(float*,float[],long[]);
void sintm(long,float*,float[],long,long[]);
void sintma(float*,float[],long[]);