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