user: Converte this assembly snippet into its equivalent C code:

```asm
<HO_50>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x178,%rsp
  movsd  %xmm1,0x8(%rsp)
  movsd  D313(%rip),%xmm1
  movsd  %xmm0,0x10(%rsp)
  call   <pow@plt>
  movsd  0x8(%rsp),%xmm3
  movsd  D597(%rip),%xmm6
  movapd %xmm0,%xmm1
  mulsd  %xmm3,%xmm6
  movapd %xmm6,%xmm0
  mulsd  %xmm3,%xmm0
  mulsd  %xmm1,%xmm0
  call   <exp@plt>
  movsd  D766(%rip),%xmm1
  movq   %xmm0,%rbx
  movsd  0x10(%rsp),%xmm0
  call   <pow@plt>
  movsd  D180(%rip),%xmm4
  movsd  %xmm0,0x18(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm4,%xmm1
  call   <pow@plt>
  movsd  D142(%rip),%xmm5
  movq   %xmm0,%r14
  movsd  0x10(%rsp),%xmm0
  movapd %xmm5,%xmm1
  call   <pow@plt>
  movsd  D608(%rip),%xmm2
  movsd  %xmm0,0x20(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm2,%xmm1
  call   <pow@plt>
  movsd  D620(%rip),%xmm3
  movq   %xmm0,%r15
  movsd  0x10(%rsp),%xmm0
  movapd %xmm3,%xmm1
  call   <pow@plt>
  mov    D13(%rip),%rax
  movsd  %xmm0,0x28(%rsp)
  movsd  0x8(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D700(%rip),%rax
  movq   %xmm0,%rbp
  movsd  0x10(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D632(%rip),%rax
  movsd  %xmm0,0x30(%rsp)
  movsd  0x8(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D417(%rip),%rax
  movq   %xmm0,%r12
  movsd  0x10(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  movsd  D15(%rip),%xmm10
  movsd  %xmm0,0x38(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm10,%xmm1
  call   <pow@plt>
  movsd  D565(%rip),%xmm11
  movq   %xmm0,%r13
  movsd  0x10(%rsp),%xmm0
  movapd %xmm11,%xmm1
  call   <pow@plt>
  movsd  D152(%rip),%xmm12
  movsd  %xmm0,0x40(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm12,%xmm1
  call   <pow@plt>
  movsd  D553(%rip),%xmm13
  movsd  %xmm0,0x48(%rsp)
  movsd  0x10(%rsp),%xmm0
  movapd %xmm13,%xmm1
  call   <pow@plt>
  movsd  D617(%rip),%xmm8
  movsd  %xmm0,0x50(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm8,%xmm1
  call   <pow@plt>
  movsd  D455(%rip),%xmm9
  movsd  %xmm0,0x58(%rsp)
  movsd  0x10(%rsp),%xmm0
  movapd %xmm9,%xmm1
  call   <pow@plt>
  movsd  D83(%rip),%xmm14
  movsd  %xmm0,0x60(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm14,%xmm1
  call   <pow@plt>
  movsd  D226(%rip),%xmm15
  movsd  %xmm0,0x68(%rsp)
  movsd  0x10(%rsp),%xmm0
  movapd %xmm15,%xmm1
  call   <pow@plt>
  movsd  D155(%rip),%xmm6
  movsd  %xmm0,0x70(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm6,%xmm1
  call   <pow@plt>
  movsd  D758(%rip),%xmm7
  movsd  %xmm0,0x78(%rsp)
  movsd  0x10(%rsp),%xmm0
  movapd %xmm7,%xmm1
  call   <pow@plt>
  mov    D226(%rip),%rax
  movsd  %xmm0,0x80(%rsp)
  movsd  0x8(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D83(%rip),%rax
  movsd  %xmm0,0x168(%rsp)
  movsd  0x10(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D553(%rip),%rax
  movsd  %xmm0,0x88(%rsp)
  movsd  0x8(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D152(%rip),%rax
  movsd  %xmm0,0x160(%rsp)
  movsd  0x10(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D565(%rip),%rax
  movsd  %xmm0,0x90(%rsp)
  movsd  0x8(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D15(%rip),%rax
  movsd  %xmm0,0x158(%rsp)
  movsd  0x10(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  movsd  D507(%rip),%xmm10
  movsd  %xmm0,0x98(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm10,%xmm1
  call   <pow@plt>
  movsd  D559(%rip),%xmm11
  movsd  %xmm0,0x150(%rsp)
  movsd  0x10(%rsp),%xmm0
  movapd %xmm11,%xmm1
  call   <pow@plt>
  mov    D455(%rip),%rax
  movsd  %xmm0,0xa0(%rsp)
  movsd  0x8(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D617(%rip),%rax
  movsd  %xmm0,0x148(%rsp)
  movsd  0x10(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D758(%rip),%rax
  movsd  %xmm0,0xa8(%rsp)
  movsd  0x8(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D155(%rip),%rax
  movsd  %xmm0,0x140(%rsp)
  movsd  0x10(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  movsd  D562(%rip),%xmm6
  movsd  %xmm0,0xb0(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm6,%xmm1
  call   <pow@plt>
  mov    D142(%rip),%rax
  movsd  %xmm0,0x138(%rsp)
  movsd  0x8(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D180(%rip),%rax
  movsd  %xmm0,0xb8(%rsp)
  movsd  0x10(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  movsd  D357(%rip),%xmm4
  movsd  %xmm0,0xc0(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm4,%xmm1
  call   <pow@plt>
  movsd  D386(%rip),%xmm5
  movsd  %xmm0,0xc8(%rsp)
  movsd  0x10(%rsp),%xmm0
  movapd %xmm5,%xmm1
  call   <pow@plt>
  mov    D620(%rip),%rax
  movsd  %xmm0,0xd0(%rsp)
  movsd  0x8(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D608(%rip),%rax
  movsd  %xmm0,0x130(%rsp)
  movsd  0x10(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D700(%rip),%rax
  movsd  %xmm0,0xd8(%rsp)
  movsd  0x8(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D13(%rip),%rax
  movsd  %xmm0,0xe0(%rsp)
  movsd  0x10(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D417(%rip),%rax
  movsd  %xmm0,0xe8(%rsp)
  movsd  0x8(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D632(%rip),%rax
  movsd  %xmm0,0xf0(%rsp)
  movsd  0x10(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D559(%rip),%rax
  movsd  %xmm0,0xf8(%rsp)
  movsd  0x8(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D507(%rip),%rax
  movsd  %xmm0,0x128(%rsp)
  movsd  0x10(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D386(%rip),%rax
  movsd  %xmm0,0x100(%rsp)
  movsd  0x8(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D357(%rip),%rax
  movsd  %xmm0,0x120(%rsp)
  movsd  0x10(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D562(%rip),%rax
  movsd  %xmm0,0x108(%rsp)
  movsd  0x10(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  movsd  D185(%rip),%xmm1
  movsd  %xmm0,0x110(%rsp)
  movsd  0x8(%rsp),%xmm0
  call   <pow@plt>
  mov    D185(%rip),%rax
  movsd  %xmm0,0x118(%rsp)
  movsd  0x10(%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  movq   %r14,%xmm1
  movq   %r15,%xmm2
  movsd  0x168(%rsp),%xmm15
  mulsd  D538(%rip),%xmm1
  movsd  0x160(%rsp),%xmm13
  movsd  0x158(%rsp),%xmm12
  mulsd  0x20(%rsp),%xmm1
  mulsd  D491(%rip),%xmm2
  movsd  0x150(%rsp),%xmm14
  mulsd  0x28(%rsp),%xmm2
  mulsd  D402(%rip),%xmm15
  mulsd  0x88(%rsp),%xmm15
  mulsd  D524(%rip),%xmm12
  mulsd  0x98(%rsp),%xmm12
  addsd  %xmm2,%xmm1
  movq   %rbp,%xmm2
  mulsd  D126(%rip),%xmm2
  mulsd  0x30(%rsp),%xmm2
  subsd  %xmm2,%xmm1
  movq   %r12,%xmm2
  mulsd  D140(%rip),%xmm2
  mulsd  0x38(%rsp),%xmm2
  addsd  %xmm2,%xmm1
  movq   %r13,%xmm2
  mulsd  D530(%rip),%xmm2
  mulsd  0x40(%rsp),%xmm2
  subsd  %xmm2,%xmm1
  movsd  0x48(%rsp),%xmm2
  mulsd  D661(%rip),%xmm2
  mulsd  0x50(%rsp),%xmm2
  addsd  %xmm2,%xmm1
  movsd  0x58(%rsp),%xmm2
  mulsd  D456(%rip),%xmm2
  mulsd  0x60(%rsp),%xmm2
  subsd  %xmm2,%xmm1
  movsd  0x68(%rsp),%xmm2
  mulsd  D762(%rip),%xmm2
  mulsd  0x70(%rsp),%xmm2
  addsd  %xmm2,%xmm1
  movsd  0x78(%rsp),%xmm2
  mulsd  D445(%rip),%xmm2
  mulsd  0x80(%rsp),%xmm2
  subsd  %xmm2,%xmm1
  movsd  D537(%rip),%xmm2
  mulsd  %xmm13,%xmm2
  mulsd  0x90(%rsp),%xmm2
  subsd  %xmm15,%xmm1
  mulsd  D534(%rip),%xmm14
  movsd  0x148(%rsp),%xmm9
  mulsd  0xa0(%rsp),%xmm14
  movsd  0x140(%rsp),%xmm7
  mulsd  D271(%rip),%xmm9
  movsd  0x138(%rsp),%xmm8
  mulsd  0xa8(%rsp),%xmm9
  movsd  0x130(%rsp),%xmm3
  subsd  %xmm2,%xmm1
  mulsd  D279(%rip),%xmm7
  movsd  0xb8(%rsp),%xmm2
  mulsd  0xb0(%rsp),%xmm7
  movsd  0x128(%rsp),%xmm11
  mulsd  D184(%rip),%xmm8
  movsd  0x120(%rsp),%xmm5
  addsd  %xmm12,%xmm1
  mulsd  D268(%rip),%xmm2
  mulsd  0xc0(%rsp),%xmm2
  mulsd  D167(%rip),%xmm3
  subsd  %xmm14,%xmm1
  mulsd  D564(%rip),%xmm5
  mulsd  0xd8(%rsp),%xmm3
  mulsd  D55(%rip),%xmm11
  mulsd  0x100(%rsp),%xmm11
  addsd  %xmm9,%xmm1
  mulsd  0x108(%rsp),%xmm5
  addsd  %xmm7,%xmm1
  movsd  0x10(%rsp),%xmm7
  mulsd  %xmm7,%xmm8
  mulsd  %xmm7,%xmm8
  addsd  %xmm8,%xmm1
  subsd  %xmm2,%xmm1
  movsd  0xc8(%rsp),%xmm2
  mulsd  D177(%rip),%xmm2
  mulsd  0xd0(%rsp),%xmm2
  addsd  %xmm2,%xmm1
  movsd  0xe0(%rsp),%xmm2
  mulsd  D220(%rip),%xmm2
  mulsd  0xe8(%rsp),%xmm2
  subsd  %xmm3,%xmm1
  addsd  %xmm2,%xmm1
  movsd  0xf0(%rsp),%xmm2
  mulsd  D688(%rip),%xmm2
  mulsd  0xf8(%rsp),%xmm2
  movsd  0x8(%rsp),%xmm6
  movsd  0x118(%rsp),%xmm4
  mulsd  D377(%rip),%xmm4
  subsd  %xmm2,%xmm1
  movsd  D399(%rip),%xmm2
  mulsd  %xmm6,%xmm2
  addsd  %xmm11,%xmm1
  subsd  %xmm5,%xmm1
  mulsd  %xmm6,%xmm2
  mulsd  0x110(%rsp),%xmm2
  subsd  %xmm2,%xmm1
  subsd  %xmm4,%xmm1
  movq   %rbx,%xmm4
  mulsd  D767(%rip),%xmm4
  addsd  %xmm0,%xmm1
  movsd  0x18(%rsp),%xmm0
  add    $0x178,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  mulsd  %xmm4,%xmm0
  pop    %r14
  pop    %r15
  mulsd  %xmm1,%xmm0
  ret
```

tool_calls: name: extract_symbolic_data
arguments: tag: D313
datatype: byte[8]
name: extract_symbolic_data
arguments: tag: D597
datatype: byte[8]
name: extract_symbolic_data
arguments: tag: D766
datatype: byte[8]
name: extract_symbolic_data
arguments: tag: D180
datatype: f64
name: extract_symbolic_data
arguments: tag: D142
datatype: f64
name: extract_symbolic_data
arguments: tag: D608
datatype: f64
name: extract_symbolic_data
arguments: tag: D620
datatype: f64
name: extract_symbolic_data
arguments: tag: D13
datatype: f64
name: extract_symbolic_data
arguments: tag: D700
datatype: f64
name: extract_symbolic_data
arguments: tag: D632
datatype: f64
name: extract_symbolic_data
arguments: tag: D417
datatype: f64
name: extract_symbolic_data
arguments: tag: D15
datatype: f64
name: extract_symbolic_data
arguments: tag: D565
datatype: f64
name: extract_symbolic_data
arguments: tag: D152
datatype: f64
name: extract_symbolic_data
arguments: tag: D553
datatype: f64
name: extract_symbolic_data
arguments: tag: D617
datatype: f64
name: extract_symbolic_data
arguments: tag: D455
datatype: f64
name: extract_symbolic_data
arguments: tag: D83
datatype: f64
name: extract_symbolic_data
arguments: tag: D226
datatype: f64
name: extract_symbolic_data
arguments: tag: D155
datatype: f64
name: extract_symbolic_data
arguments: tag: D758
datatype: f64
name: extract_symbolic_data
arguments: tag: D507
datatype: f64
name: extract_symbolic_data
arguments: tag: D559
datatype: f64
name: extract_symbolic_data
arguments: tag: D562
datatype: f64
name: extract_symbolic_data
arguments: tag: D357
datatype: f64
name: extract_symbolic_data
arguments: tag: D386
datatype: f64
name: extract_symbolic_data
arguments: tag: D185
datatype: f64
name: extract_symbolic_data
arguments: tag: D538
datatype: f64
name: extract_symbolic_data
arguments: tag: D491
datatype: f64
name: extract_symbolic_data
arguments: tag: D402
datatype: f64
name: extract_symbolic_data
arguments: tag: D524
datatype: f64
name: extract_symbolic_data
arguments: tag: D126
datatype: f64
name: extract_symbolic_data
arguments: tag: D140
datatype: f64
name: extract_symbolic_data
arguments: tag: D530
datatype: byte[8]
name: extract_symbolic_data
arguments: tag: D661
datatype: byte[8]
name: extract_symbolic_data
arguments: tag: D456
datatype: byte[8]
name: extract_symbolic_data
arguments: tag: D762
datatype: byte[8]
name: extract_symbolic_data
arguments: tag: D445
datatype: byte[8]
name: extract_symbolic_data
arguments: tag: D537
datatype: f64
name: extract_symbolic_data
arguments: tag: D534
datatype: f64
name: extract_symbolic_data
arguments: tag: D271
datatype: f64
name: extract_symbolic_data
arguments: tag: D279
datatype: byte[8]
name: extract_symbolic_data
arguments: tag: D184
datatype: byte[8]
name: extract_symbolic_data
arguments: tag: D268
datatype: byte[8]
name: extract_symbolic_data
arguments: tag: D167
datatype: byte[8]
name: extract_symbolic_data
arguments: tag: D564
datatype: f64
name: extract_symbolic_data
arguments: tag: D55
datatype: byte[8]
name: extract_symbolic_data
arguments: tag: D177
datatype: byte[8]
name: extract_symbolic_data
arguments: tag: D220
datatype: byte[8]
name: extract_symbolic_data
arguments: tag: D688
datatype: byte[8]
name: extract_symbolic_data
arguments: tag: D377
datatype: byte[8]
name: extract_symbolic_data
arguments: tag: D399
datatype: f64
name: extract_symbolic_data
arguments: tag: D767
datatype: byte[8]

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

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

tool: {"D766": [0x00,0x00,0x00,0x00,0x00,0x40,0x49,0xc0]}

tool: D180: 4

tool: D142: 46

tool: D608: 8

tool: D620: 42

tool: D13: 10

tool: D700: 40

tool: D632: 12

tool: D417: 38

tool: D15: 34

tool: D565: 16

tool: D152: 32

tool: D553: 18

tool: D617: 30

tool: D455: 20

tool: D83: 28

tool: D226: 22

tool: D155: 26

tool: D758: 24

tool: D507: 14

tool: D559: 36

tool: D562: 48

tool: D357: 44

tool: D386: 6

tool: D185: 50

tool: D538: 400.0000009

tool: D491: 1927.619048

tool: D402: 0.6639427594

tool: D524: 136.5958486

tool: D126: 1799.11111

tool: D140: 1090.37037

tool: {"D530": [0x63,0xad,0xf8,0xde,0x78,0x09,0x58,0x3e]}

tool: {"D661": [0xb6,0x5b,0x26,0xb9,0x39,0x69,0xa7,0x3e]}

tool: {"D456": [0x9e,0x96,0x65,0xef,0xbf,0x24,0xf2,0x3e]}

tool: {"D762": [0xfa,0x0e,0x53,0xeb,0xf5,0x6b,0x36,0x3f]}

tool: {"D445": [0x1d,0xac,0xb8,0x13,0x46,0x12,0x76,0x3f]}

tool: D537: 30.35463302

tool: D534: 455.3194953

tool: D271: 5.112359247

tool: {"D279": [0x07,0x88,0x5a,0xbf,0x46,0x3e,0xb1,0x3f]}

tool: {"D184": [0x76,0x4d,0xc7,0x59,0xef,0x92,0x7a,0x3b]}

tool: {"D268": [0x87,0xda,0xd7,0xa8,0xdb,0x45,0xfd,0x3b]}

tool: {"D167": [0x96,0x30,0x40,0xda,0xef,0x38,0xe2,0x3c]}

tool: D564: 1226.666668

tool: {"D55": [0x9e,0xd6,0xb7,0xc3,0xea,0x88,0x03,0x3e]}

tool: {"D177": [0x94,0x7a,0x35,0x83,0x92,0xb9,0x73,0x3c]}

tool: {"D220": [0xde,0x65,0xce,0x46,0xcc,0x83,0x48,0x3d]}

tool: {"D688": [0x46,0xad,0xb5,0x77,0xdb,0xe5,0xa8,0x3d]}

tool: {"D377": [0xb2,0x9b,0x7f,0xc2,0xb2,0x36,0xe6,0x3a]}

tool: D399: 50.00000006

tool: {"D767": [0x6b,0x1d,0x2e,0x7a,0x06,0x50,0x81,0xc6]}

assistant: ```c
double HO_50(const double L, const double x) {
  double retval = -0.4389265261e32 * exp(-0.5000000000e0 * x * x * pow(L, -0.2e1)) * pow(L, -0.101e3 / 0.2e1) * (0.4000000009e3 * pow(x, 0.4e1) * pow(L, 0.46e2) + 0.1927619048e4 * pow(x, 0.8e1) * pow(L, 0.42e2) - 0.1799111110e4 * pow(x, 0.10e2) * pow(L, 0.40e2) + 0.1090370370e4 * pow(x, 0.12e2) * pow(L, 0.38e2) - 0.2238620128e-7 * pow(x, 0.34e2) * pow(L, 0.16e2) + 0.6977032732e-6 * pow(x, 0.32e2) * pow(L, 0.18e2) - 0.1730304117e-4 * pow(x, 0.30e2) * pow(L, 0.20e2) + 0.3421283139e-3 * pow(x, 0.28e2) * pow(L, 0.22e2) - 0.5388520945e-2 * pow(x, 0.26e2) * pow(L, 0.24e2) - 0.6639427594e0 * pow(x, 0.22e2) * pow(L, 0.28e2) - 0.3035463302e2 * pow(x, 0.18e2) * pow(L, 0.32e2) + 0.1365958486e3 * pow(x, 0.16e2) * pow(L, 0.34e2) - 0.4553194953e3 * pow(x, 0.14e2) * pow(L, 0.36e2) + 0.5112359247e1 * pow(x, 0.20e2) * pow(L, 0.30e2) + 0.6735651180e-1 * pow(x, 0.24e2) * pow(L, 0.26e2) + 0.3517034944e-21 * pow(x, 0.48e2) * L * L - 0.9918038541e-19 * pow(x, 0.46e2) * pow(L, 0.4e1) + 0.1710861648e-16 * pow(x, 0.44e2) * pow(L, 0.6e1) - 0.2023093899e-14 * pow(x, 0.42e2) * pow(L, 0.8e1) + 0.1741883847e-12 * pow(x, 0.40e2) * pow(L, 0.10e2) - 0.1132224500e-10 * pow(x, 0.38e2) * pow(L, 0.12e2) + 0.5685384450e-9 * pow(x, 0.36e2) * pow(L, 0.14e2) - 0.1226666668e4 * pow(x, 0.6e1) * pow(L, 0.44e2) - 0.5000000006e2 * x * x * pow(L, 0.48e2) - 0.5742097860e-24 * pow(x, 0.50e2) + 0.1000000000e1 * pow(L, 0.50e2));
  return retval;
}
```