void silup(float,float*,long,float[],float[],long,long*,long[],float[]);