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