void sgefsc(float*,long,long,float*,long,long,long[],float*,float[]);
void smatp(float*,long,long,long,STRING);