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