pqc/crypto_kem/sntrup761/clean/crypto_encode_761x1531round.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_761x1531.h"
#include "crypto_encode_761x1531round.h"
#define int16 int16_t
#define p 761
void PQCLEAN_SNTRUP761_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_SNTRUP761_CLEAN_crypto_encode_761x1531(out, x);
}