user: Translate the below assembly code into C programming language:

```asm
<rifft8pt>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  mov    %rdi,-0x68(%rbp)
  movss  %xmm0,-0x6c(%rbp)
  movss  D5(%rip),%xmm0
  movss  %xmm0,-0x60(%rbp)
  movss  D19(%rip),%xmm0
  movss  %xmm0,-0x5c(%rbp)
  movss  D20(%rip),%xmm0
  movss  %xmm0,-0x58(%rbp)
  movss  D27(%rip),%xmm0
  movss  %xmm0,-0x54(%rbp)
  mov    -0x68(%rbp),%rax
  movss  (%rax),%xmm0
  movss  %xmm0,-0x50(%rbp)
  mov    -0x68(%rbp),%rax
  movss  0x4(%rax),%xmm0
  movss  %xmm0,-0x4c(%rbp)
  mov    -0x68(%rbp),%rax
  movss  0x8(%rax),%xmm0
  movss  %xmm0,-0x48(%rbp)
  mov    -0x68(%rbp),%rax
  movss  0xc(%rax),%xmm0
  movss  %xmm0,-0x44(%rbp)
  mov    -0x68(%rbp),%rax
  movss  0x10(%rax),%xmm0
  movss  %xmm0,-0x40(%rbp)
  mov    -0x68(%rbp),%rax
  movss  0x14(%rax),%xmm0
  movss  %xmm0,-0x3c(%rbp)
  mov    -0x68(%rbp),%rax
  movss  0x18(%rax),%xmm0
  movss  %xmm0,-0x38(%rbp)
  mov    -0x68(%rbp),%rax
  movss  0x1c(%rax),%xmm0
  movss  %xmm0,-0x34(%rbp)
  mov    -0x68(%rbp),%rax
  add    $0x20,%rax
  movss  (%rax),%xmm0
  movss  -0x54(%rbp),%xmm1
  mulss  %xmm1,%xmm0
  movss  %xmm0,-0x30(%rbp)
  mov    -0x68(%rbp),%rax
  add    $0x24,%rax
  movss  (%rax),%xmm0
  movss  -0x54(%rbp),%xmm1
  mulss  %xmm1,%xmm0
  movss  %xmm0,-0x2c(%rbp)
  mov    -0x68(%rbp),%rax
  movss  0x28(%rax),%xmm0
  movss  %xmm0,-0x28(%rbp)
  mov    -0x68(%rbp),%rax
  movss  0x2c(%rax),%xmm0
  movss  %xmm0,-0x24(%rbp)
  mov    -0x68(%rbp),%rax
  movss  0x30(%rax),%xmm0
  movss  %xmm0,-0x20(%rbp)
  mov    -0x68(%rbp),%rax
  movss  0x34(%rax),%xmm0
  movss  %xmm0,-0x1c(%rbp)
  mov    -0x68(%rbp),%rax
  movss  0x38(%rax),%xmm0
  movss  %xmm0,-0x18(%rbp)
  mov    -0x68(%rbp),%rax
  movss  0x3c(%rax),%xmm0
  movss  %xmm0,-0x14(%rbp)
  movss  -0x50(%rbp),%xmm0
  addss  -0x4c(%rbp),%xmm0
  movss  %xmm0,-0x10(%rbp)
  movss  -0x50(%rbp),%xmm0
  subss  -0x4c(%rbp),%xmm0
  movss  %xmm0,-0xc(%rbp)
  movss  -0x40(%rbp),%xmm0
  addss  -0x20(%rbp),%xmm0
  movss  %xmm0,-0x50(%rbp)
  movss  -0x3c(%rbp),%xmm0
  subss  -0x1c(%rbp),%xmm0
  movss  %xmm0,-0x4c(%rbp)
  movss  -0x40(%rbp),%xmm0
  subss  -0x20(%rbp),%xmm0
  movss  %xmm0,-0x8(%rbp)
  movss  -0x3c(%rbp),%xmm0
  addss  -0x1c(%rbp),%xmm0
  movss  %xmm0,-0x4(%rbp)
  movss  -0x60(%rbp),%xmm0
  movaps %xmm0,%xmm1
  mulss  -0x8(%rbp),%xmm1
  movss  -0x50(%rbp),%xmm0
  subss  %xmm1,%xmm0
  movss  -0x60(%rbp),%xmm1
  mulss  -0x4(%rbp),%xmm1
  subss  %xmm1,%xmm0
  movss  %xmm0,-0x40(%rbp)
  movss  -0x60(%rbp),%xmm0
  mulss  -0x8(%rbp),%xmm0
  addss  -0x4c(%rbp),%xmm0
  movss  -0x60(%rbp),%xmm1
  mulss  -0x4(%rbp),%xmm1
  subss  %xmm1,%xmm0
  movss  %xmm0,-0x3c(%rbp)
  movss  -0x54(%rbp),%xmm0
  mulss  -0x50(%rbp),%xmm0
  subss  -0x40(%rbp),%xmm0
  movss  %xmm0,-0x20(%rbp)
  movss  -0x54(%rbp),%xmm0
  movaps %xmm0,%xmm1
  mulss  -0x4c(%rbp),%xmm1
  movss  -0x3c(%rbp),%xmm0
  subss  %xmm1,%xmm0
  movss  %xmm0,-0x1c(%rbp)
  movss  -0x48(%rbp),%xmm0
  addss  -0x18(%rbp),%xmm0
  movss  %xmm0,-0x50(%rbp)
  movss  -0x44(%rbp),%xmm0
  subss  -0x14(%rbp),%xmm0
  movss  %xmm0,-0x4c(%rbp)
  movss  -0x48(%rbp),%xmm0
  subss  -0x18(%rbp),%xmm0
  movss  %xmm0,-0x8(%rbp)
  movss  -0x44(%rbp),%xmm0
  addss  -0x14(%rbp),%xmm0
  movss  %xmm0,-0x4(%rbp)
  movss  -0x58(%rbp),%xmm0
  movaps %xmm0,%xmm1
  mulss  -0x8(%rbp),%xmm1
  movss  -0x50(%rbp),%xmm0
  subss  %xmm1,%xmm0
  movss  -0x5c(%rbp),%xmm1
  mulss  -0x4(%rbp),%xmm1
  subss  %xmm1,%xmm0
  movss  %xmm0,-0x48(%rbp)
  movss  -0x5c(%rbp),%xmm0
  mulss  -0x8(%rbp),%xmm0
  addss  -0x4c(%rbp),%xmm0
  movss  -0x58(%rbp),%xmm1
  mulss  -0x4(%rbp),%xmm1
  subss  %xmm1,%xmm0
  movss  %xmm0,-0x44(%rbp)
  movss  -0x54(%rbp),%xmm0
  mulss  -0x50(%rbp),%xmm0
  subss  -0x48(%rbp),%xmm0
  movss  %xmm0,-0x18(%rbp)
  movss  -0x54(%rbp),%xmm0
  movaps %xmm0,%xmm1
  mulss  -0x4c(%rbp),%xmm1
  movss  -0x44(%rbp),%xmm0
  subss  %xmm1,%xmm0
  movss  %xmm0,-0x14(%rbp)
  movss  -0x38(%rbp),%xmm0
  addss  -0x28(%rbp),%xmm0
  movss  %xmm0,-0x50(%rbp)
  movss  -0x34(%rbp),%xmm0
  subss  -0x24(%rbp),%xmm0
  movss  %xmm0,-0x4c(%rbp)
  movss  -0x38(%rbp),%xmm0
  subss  -0x28(%rbp),%xmm0
  movss  %xmm0,-0x8(%rbp)
  movss  -0x34(%rbp),%xmm0
  addss  -0x24(%rbp),%xmm0
  movss  %xmm0,-0x4(%rbp)
  movss  -0x5c(%rbp),%xmm0
  movaps %xmm0,%xmm1
  mulss  -0x8(%rbp),%xmm1
  movss  -0x50(%rbp),%xmm0
  subss  %xmm1,%xmm0
  movss  -0x58(%rbp),%xmm1
  mulss  -0x4(%rbp),%xmm1
  subss  %xmm1,%xmm0
  movss  %xmm0,-0x38(%rbp)
  movss  -0x58(%rbp),%xmm0
  mulss  -0x8(%rbp),%xmm0
  addss  -0x4c(%rbp),%xmm0
  movss  -0x5c(%rbp),%xmm1
  mulss  -0x4(%rbp),%xmm1
  subss  %xmm1,%xmm0
  movss  %xmm0,-0x34(%rbp)
  movss  -0x54(%rbp),%xmm0
  mulss  -0x50(%rbp),%xmm0
  subss  -0x38(%rbp),%xmm0
  movss  %xmm0,-0x28(%rbp)
  movss  -0x54(%rbp),%xmm0
  movaps %xmm0,%xmm1
  mulss  -0x4c(%rbp),%xmm1
  movss  -0x34(%rbp),%xmm0
  subss  %xmm1,%xmm0
  movss  %xmm0,-0x24(%rbp)
  movss  -0x10(%rbp),%xmm0
  addss  -0x30(%rbp),%xmm0
  movss  %xmm0,-0x50(%rbp)
  movss  -0xc(%rbp),%xmm0
  subss  -0x2c(%rbp),%xmm0
  movss  %xmm0,-0x4c(%rbp)
  movss  -0x10(%rbp),%xmm0
  subss  -0x30(%rbp),%xmm0
  movss  %xmm0,-0x30(%rbp)
  movss  -0x2c(%rbp),%xmm0
  addss  -0xc(%rbp),%xmm0
  movss  %xmm0,-0x2c(%rbp)
  movss  -0x40(%rbp),%xmm0
  subss  -0x20(%rbp),%xmm0
  movss  %xmm0,-0x8(%rbp)
  movss  -0x3c(%rbp),%xmm0
  subss  -0x1c(%rbp),%xmm0
  movss  %xmm0,-0x4(%rbp)
  movss  -0x40(%rbp),%xmm0
  addss  -0x20(%rbp),%xmm0
  movss  %xmm0,-0x40(%rbp)
  movss  -0x3c(%rbp),%xmm0
  addss  -0x1c(%rbp),%xmm0
  movss  %xmm0,-0x3c(%rbp)
  movss  -0x50(%rbp),%xmm0
  addss  -0x40(%rbp),%xmm0
  movss  %xmm0,-0x10(%rbp)
  movss  -0x4c(%rbp),%xmm0
  addss  -0x3c(%rbp),%xmm0
  movss  %xmm0,-0xc(%rbp)
  movss  -0x50(%rbp),%xmm0
  subss  -0x40(%rbp),%xmm0
  movss  %xmm0,-0x40(%rbp)
  movss  -0x4c(%rbp),%xmm0
  subss  -0x3c(%rbp),%xmm0
  movss  %xmm0,-0x3c(%rbp)
  movss  -0x30(%rbp),%xmm0
  addss  -0x4(%rbp),%xmm0
  movss  %xmm0,-0x20(%rbp)
  movss  -0x2c(%rbp),%xmm0
  subss  -0x8(%rbp),%xmm0
  movss  %xmm0,-0x1c(%rbp)
  movss  -0x30(%rbp),%xmm0
  subss  -0x4(%rbp),%xmm0
  movss  %xmm0,-0x30(%rbp)
  movss  -0x2c(%rbp),%xmm0
  addss  -0x8(%rbp),%xmm0
  movss  %xmm0,-0x2c(%rbp)
  movss  -0x48(%rbp),%xmm0
  addss  -0x28(%rbp),%xmm0
  movss  %xmm0,-0x50(%rbp)
  movss  -0x44(%rbp),%xmm0
  addss  -0x24(%rbp),%xmm0
  movss  %xmm0,-0x4c(%rbp)
  movss  -0x48(%rbp),%xmm0
  subss  -0x28(%rbp),%xmm0
  movss  %xmm0,-0x28(%rbp)
  movss  -0x44(%rbp),%xmm0
  subss  -0x24(%rbp),%xmm0
  movss  %xmm0,-0x24(%rbp)
  movss  -0x38(%rbp),%xmm0
  subss  -0x18(%rbp),%xmm0
  movss  %xmm0,-0x8(%rbp)
  movss  -0x34(%rbp),%xmm0
  subss  -0x14(%rbp),%xmm0
  movss  %xmm0,-0x4(%rbp)
  movss  -0x38(%rbp),%xmm0
  addss  -0x18(%rbp),%xmm0
  movss  %xmm0,-0x38(%rbp)
  movss  -0x34(%rbp),%xmm0
  addss  -0x14(%rbp),%xmm0
  movss  %xmm0,-0x34(%rbp)
  movss  -0x50(%rbp),%xmm0
  addss  -0x38(%rbp),%xmm0
  movss  %xmm0,-0x48(%rbp)
  movss  -0x4c(%rbp),%xmm0
  addss  -0x34(%rbp),%xmm0
  movss  %xmm0,-0x44(%rbp)
  movss  -0x50(%rbp),%xmm0
  subss  -0x38(%rbp),%xmm0
  movss  %xmm0,-0x38(%rbp)
  movss  -0x4c(%rbp),%xmm0
  subss  -0x34(%rbp),%xmm0
  movss  %xmm0,-0x34(%rbp)
  movss  -0x28(%rbp),%xmm0
  addss  -0x4(%rbp),%xmm0
  movss  %xmm0,-0x18(%rbp)
  movss  -0x24(%rbp),%xmm0
  subss  -0x8(%rbp),%xmm0
  movss  %xmm0,-0x14(%rbp)
  movss  -0x28(%rbp),%xmm0
  subss  -0x4(%rbp),%xmm0
  movss  %xmm0,-0x28(%rbp)
  movss  -0x24(%rbp),%xmm0
  addss  -0x8(%rbp),%xmm0
  movss  %xmm0,-0x24(%rbp)
  movss  -0x10(%rbp),%xmm0
  subss  -0x48(%rbp),%xmm0
  movss  %xmm0,-0x50(%rbp)
  movss  -0xc(%rbp),%xmm0
  subss  -0x44(%rbp),%xmm0
  movss  %xmm0,-0x4c(%rbp)
  movss  -0x10(%rbp),%xmm0
  addss  -0x48(%rbp),%xmm0
  movss  %xmm0,-0x10(%rbp)
  movss  -0xc(%rbp),%xmm0
  addss  -0x44(%rbp),%xmm0
  movss  %xmm0,-0xc(%rbp)
  movss  -0x40(%rbp),%xmm0
  addss  -0x34(%rbp),%xmm0
  movss  %xmm0,-0x8(%rbp)
  movss  -0x3c(%rbp),%xmm0
  subss  -0x38(%rbp),%xmm0
  movss  %xmm0,-0x4(%rbp)
  movss  -0x40(%rbp),%xmm0
  subss  -0x34(%rbp),%xmm0
  movss  %xmm0,-0x40(%rbp)
  movss  -0x3c(%rbp),%xmm0
  addss  -0x38(%rbp),%xmm0
  movss  %xmm0,-0x3c(%rbp)
  movss  -0x28(%rbp),%xmm0
  movaps %xmm0,%xmm2
  mulss  -0x60(%rbp),%xmm2
  movss  -0x30(%rbp),%xmm0
  movaps %xmm0,%xmm1
  subss  %xmm2,%xmm1
  movss  -0x24(%rbp),%xmm0
  mulss  -0x60(%rbp),%xmm0
  addss  %xmm1,%xmm0
  movss  %xmm0,-0x48(%rbp)
  movss  -0x28(%rbp),%xmm0
  movaps %xmm0,%xmm1
  mulss  -0x60(%rbp),%xmm1
  movss  -0x2c(%rbp),%xmm0
  subss  %xmm1,%xmm0
  movss  -0x24(%rbp),%xmm1
  mulss  -0x60(%rbp),%xmm1
  subss  %xmm1,%xmm0
  movss  %xmm0,-0x44(%rbp)
  movss  -0x30(%rbp),%xmm0
  mulss  -0x54(%rbp),%xmm0
  subss  -0x48(%rbp),%xmm0
  movss  %xmm0,-0x30(%rbp)
  movss  -0x2c(%rbp),%xmm0
  mulss  -0x54(%rbp),%xmm0
  subss  -0x44(%rbp),%xmm0
  movss  %xmm0,-0x2c(%rbp)
  movss  -0x18(%rbp),%xmm0
  mulss  -0x60(%rbp),%xmm0
  movaps %xmm0,%xmm1
  addss  -0x20(%rbp),%xmm1
  movss  -0x14(%rbp),%xmm0
  mulss  -0x60(%rbp),%xmm0
  addss  %xmm1,%xmm0
  movss  %xmm0,-0x38(%rbp)
  movss  -0x18(%rbp),%xmm0
  movaps %xmm0,%xmm2
  mulss  -0x60(%rbp),%xmm2
  movss  -0x1c(%rbp),%xmm0
  movaps %xmm0,%xmm1
  subss  %xmm2,%xmm1
  movss  -0x14(%rbp),%xmm0
  mulss  -0x60(%rbp),%xmm0
  addss  %xmm1,%xmm0
  movss  %xmm0,-0x34(%rbp)
  movss  -0x20(%rbp),%xmm0
  mulss  -0x54(%rbp),%xmm0
  subss  -0x38(%rbp),%xmm0
  movss  %xmm0,-0x20(%rbp)
  movss  -0x1c(%rbp),%xmm0
  mulss  -0x54(%rbp),%xmm0
  subss  -0x34(%rbp),%xmm0
  movss  %xmm0,-0x1c(%rbp)
  movss  -0x6c(%rbp),%xmm0
  mulss  -0x10(%rbp),%xmm0
  mov    -0x68(%rbp),%rax
  movss  %xmm0,(%rax)
  mov    -0x68(%rbp),%rax
  add    $0x4,%rax
  movss  -0x6c(%rbp),%xmm0
  mulss  -0xc(%rbp),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x68(%rbp),%rax
  add    $0x8,%rax
  movss  -0x6c(%rbp),%xmm0
  mulss  -0x30(%rbp),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x68(%rbp),%rax
  add    $0xc,%rax
  movss  -0x6c(%rbp),%xmm0
  mulss  -0x2c(%rbp),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x68(%rbp),%rax
  add    $0x10,%rax
  movss  -0x6c(%rbp),%xmm0
  mulss  -0x40(%rbp),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x68(%rbp),%rax
  add    $0x14,%rax
  movss  -0x6c(%rbp),%xmm0
  mulss  -0x3c(%rbp),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x68(%rbp),%rax
  add    $0x18,%rax
  movss  -0x6c(%rbp),%xmm0
  mulss  -0x20(%rbp),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x68(%rbp),%rax
  add    $0x1c,%rax
  movss  -0x6c(%rbp),%xmm0
  mulss  -0x1c(%rbp),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x68(%rbp),%rax
  add    $0x20,%rax
  movss  -0x6c(%rbp),%xmm0
  mulss  -0x50(%rbp),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x68(%rbp),%rax
  add    $0x24,%rax
  movss  -0x6c(%rbp),%xmm0
  mulss  -0x4c(%rbp),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x68(%rbp),%rax
  add    $0x28,%rax
  movss  -0x6c(%rbp),%xmm0
  mulss  -0x48(%rbp),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x68(%rbp),%rax
  add    $0x2c,%rax
  movss  -0x6c(%rbp),%xmm0
  mulss  -0x44(%rbp),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x68(%rbp),%rax
  add    $0x30,%rax
  movss  -0x6c(%rbp),%xmm0
  mulss  -0x8(%rbp),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x68(%rbp),%rax
  add    $0x34,%rax
  movss  -0x6c(%rbp),%xmm0
  mulss  -0x4(%rbp),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x68(%rbp),%rax
  add    $0x38,%rax
  movss  -0x6c(%rbp),%xmm0
  mulss  -0x38(%rbp),%xmm0
  movss  %xmm0,(%rax)
  mov    -0x68(%rbp),%rax
  add    $0x3c,%rax
  movss  -0x6c(%rbp),%xmm0
  mulss  -0x34(%rbp),%xmm0
  movss  %xmm0,(%rax)
  nop
  pop    %rbp
  ret
```

tool_calls: name: read_data
arguments: tag: D5
datatype: byte[4]
name: read_data
arguments: tag: D19
datatype: f32
name: read_data
arguments: tag: D20
datatype: f32
name: read_data
arguments: tag: D27
datatype: f32

tool: {"D5": [0xf3,0x04,0x35,0x3f]}

tool: D19: 0.9238795325112867

tool: D20: 0.3826834323650898

tool: D27: 2

assistant: ```c
void rifft8pt(float *ioptr, float scale) {
  float w0r = (float)(1.0 / 1.414213562373095048801688724209698078569);
  float w1r = 0.9238795325112867561281831893967882868224;
  float w1i = 0.3826834323650897717284599840303988667613;
  float f0r, f0i, f1r, f1i, f2r, f2i, f3r, f3i;
  float f4r, f4i, f5r, f5i, f6r, f6i, f7r, f7i;
  float t0r, t0i, t1r, t1i;
  const float Two = 2.0;
  t0r = ioptr[0];
  t0i = ioptr[1];
  f4r = ioptr[2];
  f4i = ioptr[3];
  f2r = ioptr[4];
  f2i = ioptr[5];
  f6r = ioptr[6];
  f6i = ioptr[7];
  f1r = Two * ioptr[8];
  f1i = Two * ioptr[9];
  f5r = ioptr[10];
  f5i = ioptr[11];
  f3r = ioptr[12];
  f3i = ioptr[13];
  f7r = ioptr[14];
  f7i = ioptr[15];
  f0r = t0r + t0i;
  f0i = t0r - t0i;
  t0r = f2r + f3r;
  t0i = f2i - f3i;
  t1r = f2r - f3r;
  t1i = f2i + f3i;
  f2r = t0r - w0r * t1r - w0r * t1i;
  f2i = t0i + w0r * t1r - w0r * t1i;
  f3r = Two * t0r - f2r;
  f3i = f2i - Two * t0i;
  t0r = f4r + f7r;
  t0i = f4i - f7i;
  t1r = f4r - f7r;
  t1i = f4i + f7i;
  f4r = t0r - w1i * t1r - w1r * t1i;
  f4i = t0i + w1r * t1r - w1i * t1i;
  f7r = Two * t0r - f4r;
  f7i = f4i - Two * t0i;
  t0r = f6r + f5r;
  t0i = f6i - f5i;
  t1r = f6r - f5r;
  t1i = f6i + f5i;
  f6r = t0r - w1r * t1r - w1i * t1i;
  f6i = t0i + w1i * t1r - w1r * t1i;
  f5r = Two * t0r - f6r;
  f5i = f6i - Two * t0i;
  t0r = f0r + f1r;
  t0i = f0i - f1i;
  f1r = f0r - f1r;
  f1i = f0i + f1i;
  t1r = f2r - f3r;
  t1i = f2i - f3i;
  f2r = f2r + f3r;
  f2i = f2i + f3i;
  f0r = t0r + f2r;
  f0i = t0i + f2i;
  f2r = t0r - f2r;
  f2i = t0i - f2i;
  f3r = f1r + t1i;
  f3i = f1i - t1r;
  f1r = f1r - t1i;
  f1i = f1i + t1r;
  t0r = f4r + f5r;
  t0i = f4i + f5i;
  f5r = f4r - f5r;
  f5i = f4i - f5i;
  t1r = f6r - f7r;
  t1i = f6i - f7i;
  f6r = f6r + f7r;
  f6i = f6i + f7i;
  f4r = t0r + f6r;
  f4i = t0i + f6i;
  f6r = t0r - f6r;
  f6i = t0i - f6i;
  f7r = f5r + t1i;
  f7i = f5i - t1r;
  f5r = f5r - t1i;
  f5i = f5i + t1r;
  t0r = f0r - f4r;
  t0i = f0i - f4i;
  f0r = f0r + f4r;
  f0i = f0i + f4i;
  t1r = f2r + f6i;
  t1i = f2i - f6r;
  f2r = f2r - f6i;
  f2i = f2i + f6r;
  f4r = f1r - f5r * w0r + f5i * w0r;
  f4i = f1i - f5r * w0r - f5i * w0r;
  f1r = f1r * Two - f4r;
  f1i = f1i * Two - f4i;
  f6r = f3r + f7r * w0r + f7i * w0r;
  f6i = f3i - f7r * w0r + f7i * w0r;
  f3r = f3r * Two - f6r;
  f3i = f3i * Two - f6i;
  ioptr[0] = scale * f0r;
  ioptr[1] = scale * f0i;
  ioptr[2] = scale * f1r;
  ioptr[3] = scale * f1i;
  ioptr[4] = scale * f2r;
  ioptr[5] = scale * f2i;
  ioptr[6] = scale * f3r;
  ioptr[7] = scale * f3i;
  ioptr[8] = scale * t0r;
  ioptr[9] = scale * t0i;
  ioptr[10] = scale * f4r;
  ioptr[11] = scale * f4i;
  ioptr[12] = scale * t1r;
  ioptr[13] = scale * t1i;
  ioptr[14] = scale * f6r;
  ioptr[15] = scale * f6i;
}
```