user: Please show me the C implementation that matches the assembly code listed below:

```asm
<HO_47>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x40,%rsp
  movsd  %xmm0,-0x18(%rbp)
  movsd  %xmm1,-0x20(%rbp)
  movsd  -0x20(%rbp),%xmm1
  movsd  D537(%rip),%xmm0
  mulsd  %xmm0,%xmm1
  movsd  %xmm1,-0x28(%rbp)
  movsd  -0x20(%rbp),%xmm1
  movsd  D441(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  mulsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,-0x30(%rbp)
  movsd  D452(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movapd %xmm0,%xmm3
  mulsd  -0x30(%rbp),%xmm3
  movq   %xmm3,%rax
  movq   %rax,%xmm0
  call   <exp@plt>
  mulsd  -0x28(%rbp),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movsd  D626(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movapd %xmm0,%xmm4
  mulsd  -0x28(%rbp),%xmm4
  movsd  %xmm4,-0x28(%rbp)
  movsd  D451(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  %xmm0,-0x30(%rbp)
  movsd  D589(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D362(%rip),%xmm1
  movapd %xmm0,%xmm7
  mulsd  %xmm1,%xmm7
  movsd  %xmm7,-0x38(%rbp)
  movsd  D22(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  mulsd  -0x38(%rbp),%xmm0
  movapd %xmm0,%xmm4
  addsd  -0x30(%rbp),%xmm4
  movsd  %xmm4,-0x30(%rbp)
  movsd  D285(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D616(%rip),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  movsd  D604(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  mulsd  -0x38(%rbp),%xmm0
  movsd  -0x30(%rbp),%xmm4
  subsd  %xmm0,%xmm4
  movsd  %xmm4,-0x30(%rbp)
  movsd  D326(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D65(%rip),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  movsd  D41(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  mulsd  -0x38(%rbp),%xmm0
  addsd  -0x30(%rbp),%xmm0
  movsd  %xmm0,-0x30(%rbp)
  movsd  D37(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D557(%rip),%xmm1
  movapd %xmm0,%xmm2
  mulsd  %xmm1,%xmm2
  movsd  %xmm2,-0x38(%rbp)
  movsd  D601(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  mulsd  -0x38(%rbp),%xmm0
  movsd  -0x30(%rbp),%xmm5
  subsd  %xmm0,%xmm5
  movsd  %xmm5,-0x30(%rbp)
  movsd  D683(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D319(%rip),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  movsd  D457(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  mulsd  -0x38(%rbp),%xmm0
  addsd  -0x30(%rbp),%xmm0
  movsd  %xmm0,-0x30(%rbp)
  movsd  D264(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D377(%rip),%xmm1
  movapd %xmm0,%xmm5
  mulsd  %xmm1,%xmm5
  movsd  %xmm5,-0x38(%rbp)
  movsd  D142(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  mulsd  -0x38(%rbp),%xmm0
  movsd  -0x30(%rbp),%xmm6
  subsd  %xmm0,%xmm6
  movsd  %xmm6,-0x30(%rbp)
  movsd  D393(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D545(%rip),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  movsd  D68(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  mulsd  -0x38(%rbp),%xmm0
  addsd  -0x30(%rbp),%xmm0
  movsd  %xmm0,-0x30(%rbp)
  movsd  D68(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D341(%rip),%xmm1
  movapd %xmm0,%xmm6
  mulsd  %xmm1,%xmm6
  movsd  %xmm6,-0x38(%rbp)
  movsd  D393(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  mulsd  -0x38(%rbp),%xmm0
  movsd  -0x30(%rbp),%xmm2
  subsd  %xmm0,%xmm2
  movsd  %xmm2,-0x30(%rbp)
  movsd  D457(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D671(%rip),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  movsd  D683(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  mulsd  -0x38(%rbp),%xmm0
  movsd  -0x30(%rbp),%xmm2
  subsd  %xmm0,%xmm2
  movsd  %xmm2,-0x30(%rbp)
  movsd  D563(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D11(%rip),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  movsd  D80(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  mulsd  -0x38(%rbp),%xmm0
  movsd  -0x30(%rbp),%xmm2
  subsd  %xmm0,%xmm2
  movsd  %xmm2,-0x30(%rbp)
  movsd  D510(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D40(%rip),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  movsd  D292(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  mulsd  -0x38(%rbp),%xmm0
  addsd  -0x30(%rbp),%xmm0
  movsd  %xmm0,-0x30(%rbp)
  movsd  D318(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D652(%rip),%xmm1
  movapd %xmm0,%xmm2
  mulsd  %xmm1,%xmm2
  movsd  %xmm2,-0x38(%rbp)
  movsd  D576(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  mulsd  -0x38(%rbp),%xmm0
  movsd  -0x30(%rbp),%xmm7
  subsd  %xmm0,%xmm7
  movsd  %xmm7,-0x30(%rbp)
  movsd  D601(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D340(%rip),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  movsd  D37(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  mulsd  -0x38(%rbp),%xmm0
  addsd  -0x30(%rbp),%xmm0
  movsd  %xmm0,-0x30(%rbp)
  movsd  D142(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D152(%rip),%xmm1
  movapd %xmm0,%xmm6
  mulsd  %xmm1,%xmm6
  movsd  %xmm6,-0x38(%rbp)
  movsd  D264(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  mulsd  -0x38(%rbp),%xmm0
  movapd %xmm0,%xmm7
  addsd  -0x30(%rbp),%xmm7
  movsd  %xmm7,-0x30(%rbp)
  movsd  D586(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D695(%rip),%xmm1
  mulsd  %xmm1,%xmm0
  mulsd  -0x18(%rbp),%xmm0
  mulsd  -0x18(%rbp),%xmm0
  addsd  -0x30(%rbp),%xmm0
  movsd  %xmm0,-0x30(%rbp)
  movsd  D22(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D190(%rip),%xmm1
  movapd %xmm0,%xmm5
  mulsd  %xmm1,%xmm5
  movsd  %xmm5,-0x38(%rbp)
  movsd  D589(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  mulsd  -0x38(%rbp),%xmm0
  movsd  -0x30(%rbp),%xmm3
  subsd  %xmm0,%xmm3
  movsd  %xmm3,-0x30(%rbp)
  movsd  D604(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D70(%rip),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  movsd  D285(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  mulsd  -0x38(%rbp),%xmm0
  addsd  -0x30(%rbp),%xmm0
  movsd  %xmm0,-0x30(%rbp)
  movsd  D41(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D149(%rip),%xmm1
  movapd %xmm0,%xmm3
  mulsd  %xmm1,%xmm3
  movsd  %xmm3,-0x38(%rbp)
  movsd  D326(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  mulsd  -0x38(%rbp),%xmm0
  movsd  -0x30(%rbp),%xmm5
  subsd  %xmm0,%xmm5
  movsd  %xmm5,-0x30(%rbp)
  movsd  D576(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D219(%rip),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  movsd  D318(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  mulsd  -0x38(%rbp),%xmm0
  addsd  -0x30(%rbp),%xmm0
  movsd  %xmm0,-0x30(%rbp)
  movsd  D292(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D4(%rip),%xmm1
  movapd %xmm0,%xmm2
  mulsd  %xmm1,%xmm2
  movsd  %xmm2,-0x38(%rbp)
  movsd  D510(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  mulsd  -0x38(%rbp),%xmm0
  movsd  -0x30(%rbp),%xmm6
  subsd  %xmm0,%xmm6
  movsd  %xmm6,-0x30(%rbp)
  movsd  D80(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D63(%rip),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  movsd  D563(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  mulsd  -0x38(%rbp),%xmm0
  addsd  -0x30(%rbp),%xmm0
  movsd  %xmm0,-0x30(%rbp)
  movsd  -0x20(%rbp),%xmm1
  movsd  D306(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  movapd %xmm0,%xmm5
  mulsd  -0x20(%rbp),%xmm5
  movsd  %xmm5,-0x38(%rbp)
  movsd  D586(%rip),%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  mulsd  -0x38(%rbp),%xmm0
  movsd  -0x30(%rbp),%xmm3
  subsd  %xmm0,%xmm3
  movsd  %xmm3,-0x30(%rbp)
  movsd  D451(%rip),%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pow@plt>
  movsd  D703(%rip),%xmm1
  mulsd  %xmm0,%xmm1
  movsd  -0x30(%rbp),%xmm0
  subsd  %xmm1,%xmm0
  mulsd  -0x28(%rbp),%xmm0
  movsd  %xmm0,-0x8(%rbp)
  movsd  -0x8(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  leave
  ret
```

tool_calls: name: parse_data
arguments: data_label: D537
type: byte[8]
name: parse_data
arguments: data_label: D441
type: byte[8]
name: parse_data
arguments: data_label: D452
type: byte[8]
name: parse_data
arguments: data_label: D626
type: byte[8]
name: parse_data
arguments: data_label: D451
type: f64
name: parse_data
arguments: data_label: D589
type: f64
name: parse_data
arguments: data_label: D362
type: f64
name: parse_data
arguments: data_label: D22
type: f64
name: parse_data
arguments: data_label: D285
type: f64
name: parse_data
arguments: data_label: D616
type: f64
name: parse_data
arguments: data_label: D604
type: f64
name: parse_data
arguments: data_label: D326
type: f64
name: parse_data
arguments: data_label: D65
type: f64
name: parse_data
arguments: data_label: D41
type: f64
name: parse_data
arguments: data_label: D37
type: f64
name: parse_data
arguments: data_label: D557
type: byte[8]
name: parse_data
arguments: data_label: D601
type: f64
name: parse_data
arguments: data_label: D683
type: f64
name: parse_data
arguments: data_label: D319
type: byte[8]
name: parse_data
arguments: data_label: D457
type: f64
name: parse_data
arguments: data_label: D264
type: f64
name: parse_data
arguments: data_label: D377
type: byte[8]
name: parse_data
arguments: data_label: D142
type: f64
name: parse_data
arguments: data_label: D393
type: f64
name: parse_data
arguments: data_label: D545
type: byte[8]
name: parse_data
arguments: data_label: D68
type: f64
name: parse_data
arguments: data_label: D341
type: byte[8]
name: parse_data
arguments: data_label: D671
type: f64
name: parse_data
arguments: data_label: D563
type: f64
name: parse_data
arguments: data_label: D11
type: f64
name: parse_data
arguments: data_label: D80
type: f64
name: parse_data
arguments: data_label: D510
type: f64
name: parse_data
arguments: data_label: D40
type: f64
name: parse_data
arguments: data_label: D292
type: f64
name: parse_data
arguments: data_label: D318
type: f64
name: parse_data
arguments: data_label: D652
type: f64
name: parse_data
arguments: data_label: D576
type: f64
name: parse_data
arguments: data_label: D340
type: f64
name: parse_data
arguments: data_label: D152
type: byte[8]
name: parse_data
arguments: data_label: D586
type: f64
name: parse_data
arguments: data_label: D695
type: byte[8]
name: parse_data
arguments: data_label: D190
type: byte[8]
name: parse_data
arguments: data_label: D70
type: byte[8]
name: parse_data
arguments: data_label: D149
type: byte[8]
name: parse_data
arguments: data_label: D219
type: byte[8]
name: parse_data
arguments: data_label: D4
type: byte[8]
name: parse_data
arguments: data_label: D63
type: byte[8]
name: parse_data
arguments: data_label: D306
type: f64
name: parse_data
arguments: data_label: D703
type: byte[8]

tool: {"D537": [0x04,0x6e,0xaa,0xca,0x8d,0xfa,0x2f,0xc6]}

tool: {"D441": [0x00,0x00,0x00,0x00,0x00,0x00,0xe0,0xbf]}

tool: {"D452": [0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xc0]}

tool: {"D626": [0x00,0x00,0x00,0x00,0x00,0xc0,0x47,0xc0]}

tool: D451: 46

tool: D589: 4

tool: D362: 67.46666656

tool: D22: 42

tool: D285: 6

tool: D616: 134.9333332

tool: D604: 40

tool: D326: 8

tool: D65: 149.9259255

tool: D41: 38

tool: D37: 30

tool: {"D557": [0x46,0x19,0x2e,0x17,0x7f,0x79,0x76,0x3e]}

tool: D601: 16

tool: D683: 28

tool: {"D319": [0xea,0x6f,0xa8,0xee,0xbf,0x24,0xc2,0x3e]}

tool: D457: 18

tool: D264: 26

tool: {"D377": [0xef,0xec,0xc6,0xb6,0x06,0x05,0x07,0x3f]}

tool: D142: 20

tool: D393: 24

tool: {"D545": [0x0b,0x0e,0x4b,0xe0,0x48,0xf4,0x46,0x3f]}

tool: D68: 22

tool: {"D341": [0x45,0x6c,0x59,0xef,0xd8,0xee,0x81,0x3f]}

tool: D671: 0.6390449039

tool: D563: 14

tool: D11: 15.4808628

tool: D80: 32

tool: D510: 12

tool: D40: 47.80854687

tool: D292: 34

tool: D318: 10

tool: D652: 103.5851848

tool: D576: 36

tool: D340: 3.642555951

tool: {"D152": [0xb4,0x89,0x67,0x40,0x0f,0xd0,0xb5,0x3f]}

tool: D586: 44

tool: {"D695": [0x61,0x9e,0xc9,0xa0,0x3b,0xf4,0xb1,0x3b]}

tool: {"D190": [0x34,0xcb,0xeb,0xa5,0x9f,0x5b,0x31,0x3c]}

tool: {"D70": [0x32,0x0e,0xf6,0xb5,0xba,0x68,0xa4,0x3c]}

tool: {"D149": [0xf1,0xfd,0xaf,0x83,0xdd,0x57,0x10,0x3d]}

tool: {"D219": [0x92,0x8f,0x03,0xac,0x21,0xec,0x72,0x3d]}

tool: {"D4": [0xcc,0x32,0x18,0x33,0xc5,0x68,0xd0,0x3d]}

tool: {"D63": [0x1f,0x0d,0xe9,0xe7,0x25,0xcb,0x25,0x3e]}

tool: D306: 15.3333333

tool: {"D703": [0xf6,0x46,0x72,0xdc,0xe0,0x01,0x21,0x3b]}

assistant: ```c
double HO_47(const double L, const double x) {
  double retval = -0.1266807853e31 * x * exp(-0.5000000000e0 * x * x * pow(L, -0.2e1)) * pow(L, -0.95e2 / 0.2e1) * (0.1000000000e1 * pow(L, 0.46e2) + 0.6746666656e2 * pow(x, 0.4e1) * pow(L, 0.42e2) - 0.1349333332e3 * pow(x, 0.6e1) * pow(L, 0.40e2) + 0.1499259255e3 * pow(x, 0.8e1) * pow(L, 0.38e2) - 0.8372439257e-7 * pow(x, 0.30e2) * pow(L, 0.16e2) + 0.2162880141e-5 * pow(x, 0.28e2) * pow(L, 0.18e2) - 0.4390646686e-4 * pow(x, 0.26e2) * pow(L, 0.20e2) + 0.7005077210e-3 * pow(x, 0.24e2) * pow(L, 0.22e2) - 0.8756346516e-2 * pow(x, 0.22e2) * pow(L, 0.24e2) - 0.6390449039e0 * pow(x, 0.18e2) * pow(L, 0.28e2) - 0.1548086280e2 * pow(x, 0.14e2) * pow(L, 0.32e2) + 0.4780854687e2 * pow(x, 0.12e2) * pow(L, 0.34e2) - 0.1035851848e3 * pow(x, 0.10e2) * pow(L, 0.36e2) + 0.3642555951e1 * pow(x, 0.16e2) * pow(L, 0.30e2) + 0.8520598719e-1 * pow(x, 0.20e2) * pow(L, 0.26e2) + 0.3801914764e-20 * pow(x, 0.44e2) * L * L - 0.9409739040e-18 * pow(x, 0.42e2) * pow(L, 0.4e1) + 0.1416165725e-15 * pow(x, 0.40e2) * pow(L, 0.6e1) - 0.1451569868e-13 * pow(x, 0.38e2) * pow(L, 0.8e1) + 0.1075613272e-11 * pow(x, 0.36e2) * pow(L, 0.10e2) - 0.5969653658e-10 * pow(x, 0.34e2) * pow(L, 0.12e2) + 0.2537102805e-8 * pow(x, 0.32e2) * pow(L, 0.14e2) - 0.1533333330e2 * x * x * pow(L, 0.44e2) - 0.7034069867e-23 * pow(x, 0.46e2));
  return retval;
}
```