-rw-r--r-- 848 libntruprime-20240825/crypto_core/scale3sntrup1013/ref/core.c raw
#include "crypto_core.h"

#define p 1013
#define q 7177

#include "crypto_decode_1013xint16.h"
#define crypto_decode_pxint16 crypto_decode_1013xint16
#include "crypto_encode_1013xint16.h"
#define crypto_encode_pxint16 crypto_encode_1013xint16

#include "crypto_int16.h"
typedef crypto_int16 Fq;

/* out = 3*in in Rq */
void crypto_core(unsigned char *outbytes,const unsigned char *inbytes,const unsigned char *kbytes,const unsigned char *cbytes)
{
  Fq f[p];
  int i;

  crypto_decode_pxint16(f,inbytes);
  for (i = 0;i < p;++i) {
    Fq x = f[i];
    x *= 3; /* (-3q+3)/2 ... (3q-3)/2 */
    x -= (q+1)/2; /* -2q+1 ... q-2 */
    x += q&crypto_int16_negative_mask(x); /* -q+1 ... q-1 */
    x += q&crypto_int16_negative_mask(x); /* 0 ... q-1 */
    x -= (q-1)/2; /* -(q-1)/2 ... (q-1)/2 */
    f[i] = x;
  }
  crypto_encode_pxint16(outbytes,f);
}