pqc/crypto_kem/ntrulpr653/clean/crypto_encode_653x1541round.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_653x1541.h"
#include "crypto_encode_653x1541round.h"
#define int16 int16_t
#define p 653
void PQCLEAN_NTRULPR653_CLEAN_crypto_encode_653x1541round(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_NTRULPR653_CLEAN_crypto_encode_653x1541(out, x);
}