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