long idranp(double);
void idsta1(long[],long,long[],double[],long[],long,long);
void idsta2(long[],double[],long[],long,long);