float srang(void);
void srangv(float*,long,long,float[],float[],LOGICAL32*,long*);