void prgm_(void);
void sxlogx(long,float[],float*,float[],LOGICAL32*);