long isranp(float);
void issta1(long[],long,long[],float[],long[],long,long);
void issta2(long[],float[],long[],long,long);