void sged(float*,long,long,long[],float[]);
void sgefs(float*,long,long,float*,long,long,long[],long*);
void sgei(float*,long,long,long[],float[]);
void sgeslt(float*,long,long,long[],float[]);
void smatp(float*,long,long,long,STRING);