void prgm_(void);
float smxdif(long,float[],long,float[],long);