void i7copy(long,long[],long[]);
void i7pnvr(long,long[],long[]);
void i7shft(long,long,long[]);