Function xsum_large_negate

xs/sources/xsum.c:1983–1989

/* NEGATE THE VALUE IN A LARGE ACCUMULATOR. */

void xsum_large_negate (xsum_large_accumulator *restrict lacc)
{
  if (xsum_debug) c_printf("\nNEGATING A LARGE ACCUMULATOR\n");

  xsum_large_transfer_to_small (lacc);
  xsum_small_negate (&lacc->sacc);
}