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