pqc/crypto_kem/sntrup653/clean/crypto_encode_653x1541round.c
John M. Schanck 70543bba37 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
2020-08-28 20:22:56 -04:00

18 lines
411 B
C

#include "crypto_encode_653x1541.h"
#include "crypto_encode_653x1541round.h"
#define int16 int16_t
#define p 653
void PQCLEAN_SNTRUP653_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_SNTRUP653_CLEAN_crypto_encode_653x1541(out, x);
}