pqc/crypto_kem/ntrulpr761/clean/crypto_encode_761x1531round.c
John M. Schanck 431dbada45 Add sntrup{653,761,857} and ntrulpr{653,761,857}
Exported from SUPERCOP-20200826 using the scripts at:
https://github.com/jschanck/pqclean-package-ntruprime
2021-03-24 21:02:46 +00:00

18 lines
413 B
C

#include "crypto_encode_761x1531.h"
#include "crypto_encode_761x1531round.h"
#define int16 int16_t
#define p 761
void PQCLEAN_NTRULPR761_CLEAN_crypto_encode_761x1531round(unsigned char *out, const void *v) {
const int16 *a = v;
int16 x[p];
int i;
for (i = 0; i < p; ++i) {
x[i] = 3 * ((10923 * a[i] + 16384) >> 15);
}
PQCLEAN_NTRULPR761_CLEAN_crypto_encode_761x1531(out, x);
}