void insrtx(
          void(*)(long,long,long,long*),long,long[],long*);