#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
double fabs(double);
int /*<<< orphan*/ force(double *, double *, double *, int);
double len(double *);
double pow(double, int);
double jacobi(double *x, double *v, double *par, int potential, double Mcl) {
  int i;
  double R, om, dpot, delta, r;
  double omega[3], x1[3], x2[3], a1[3], a2[3], dx[3];
  r = len(x);
  omega[0] = x[1] * v[2] - x[2] * v[1];
  omega[1] = x[2] * v[0] - x[0] * v[2];
  omega[2] = x[0] * v[1] - x[1] * v[0];
  om = len(omega) / (r * r);
  delta = 0.02 * 3.08567758e19;
  for (i = 0; i < 3; i++) {
    x1[i] = x[i] / r * (r - delta);
    x2[i] = x[i] / r * (r + delta);
  }
  force(x1, a1, par, potential);
  force(x2, a2, par, potential);
  for (i = 0; i < 3; i++) {
    dx[i] = x1[i] - x2[i];
  }
  dpot = (len(a1) - len(a2)) / len(dx);
  R = pow(6.67e-11 * Mcl / fabs(om * om + dpot), 1. / 3.);
  return R;
}


x86 assembly (clang, -O0):
<jacobi>:
push   %rbp
mov    %rsp,%rbp
sub    $0x120,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
movsd  %xmm0,-0x28(%rbp)
mov    -0x8(%rbp),%rdi
call   1030 <len@plt>
movsd  %xmm0,-0x58(%rbp)
mov    -0x8(%rbp),%rax
movsd  0x8(%rax),%xmm0
mov    -0x10(%rbp),%rax
movsd  0x10(%rax),%xmm2
mov    -0x8(%rbp),%rax
movsd  0x10(%rax),%xmm1
mov    -0x10(%rbp),%rax
mulsd  0x8(%rax),%xmm1
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x70(%rbp)
mov    -0x8(%rbp),%rax
movsd  0x10(%rax),%xmm0
mov    -0x10(%rbp),%rax
movsd  (%rax),%xmm2
mov    -0x8(%rbp),%rax
movsd  (%rax),%xmm1
mov    -0x10(%rbp),%rax
mulsd  0x10(%rax),%xmm1
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x68(%rbp)
mov    -0x8(%rbp),%rax
movsd  (%rax),%xmm0
mov    -0x10(%rbp),%rax
movsd  0x8(%rax),%xmm2
mov    -0x8(%rbp),%rax
movsd  0x8(%rax),%xmm1
mov    -0x10(%rbp),%rax
mulsd  (%rax),%xmm1
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x60(%rbp)
lea    -0x70(%rbp),%rdi
call   1030 <len@plt>
movsd  -0x58(%rbp),%xmm1
mulsd  -0x58(%rbp),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  0xdab(%rip),%xmm0
movsd  %xmm0,-0x50(%rbp)
movl   $0x0,-0x2c(%rbp)
cmpl   $0x3,-0x2c(%rbp)
jge    12d3 <jacobi+0x1a3>
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
divsd  -0x58(%rbp),%xmm0
movsd  -0x58(%rbp),%xmm1
subsd  -0x50(%rbp),%xmm1
mulsd  %xmm1,%xmm0
movslq -0x2c(%rbp),%rax
movsd  %xmm0,-0x90(%rbp,%rax,8)
ff ff
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
divsd  -0x58(%rbp),%xmm0
movsd  -0x58(%rbp),%xmm1
addsd  -0x50(%rbp),%xmm1
mulsd  %xmm1,%xmm0
movslq -0x2c(%rbp),%rax
movsd  %xmm0,-0xb0(%rbp,%rax,8)
ff ff
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1261 <jacobi+0x131>
lea    -0x90(%rbp),%rdi
lea    -0xd0(%rbp),%rsi
mov    -0x18(%rbp),%rdx
mov    -0x1c(%rbp),%ecx
call   1040 <force@plt>
lea    -0xb0(%rbp),%rdi
lea    -0xf0(%rbp),%rsi
mov    -0x18(%rbp),%rdx
mov    -0x1c(%rbp),%ecx
call   1040 <force@plt>
movl   $0x0,-0x2c(%rbp)
cmpl   $0x3,-0x2c(%rbp)
jge    134d <jacobi+0x21d>
movslq -0x2c(%rbp),%rax
movsd  -0x90(%rbp,%rax,8),%xmm0
ff ff
movslq -0x2c(%rbp),%rax
subsd  -0xb0(%rbp,%rax,8),%xmm0
ff ff
movslq -0x2c(%rbp),%rax
movsd  %xmm0,-0x110(%rbp,%rax,8)
ff ff
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    130e <jacobi+0x1de>
lea    -0xd0(%rbp),%rdi
call   1030 <len@plt>
movsd  %xmm0,-0x120(%rbp)
ff
lea    -0xf0(%rbp),%rdi
call   1030 <len@plt>
movaps %xmm0,%xmm1
movsd  -0x120(%rbp),%xmm0
ff
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x118(%rbp)
ff
lea    -0x110(%rbp),%rdi
call   1030 <len@plt>
movaps %xmm0,%xmm1
movsd  -0x118(%rbp),%xmm0
ff
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x48(%rbp)
movsd  0xc5c(%rip),%xmm0
mulsd  -0x28(%rbp),%xmm0
movsd  -0x40(%rbp),%xmm1
movsd  -0x40(%rbp),%xmm3
movsd  -0x48(%rbp),%xmm2
mulsd  %xmm3,%xmm1
addsd  %xmm2,%xmm1
movaps 0xc41(%rip),%xmm2
pand   %xmm2,%xmm1
divsd  %xmm1,%xmm0
xor    %edi,%edi
call   1050 <pow@plt>
movsd  %xmm0,-0x38(%rbp)
movsd  -0x38(%rbp),%xmm0
add    $0x120,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<jacobi>:
push   %rbp
push   %r15
push   %r14
push   %rbx
sub    $0xe8,%rsp
movsd  %xmm0,0x28(%rsp)
mov    %ecx,%r14d
mov    %rdx,%r15
mov    %rsi,%rbx
mov    %rdi,%rbp
call   1030 <len@plt>
movaps %xmm0,(%rsp)
movupd 0x8(%rbp),%xmm0
movupd 0x8(%rbx),%xmm1
movsd  (%rbx),%xmm2
movsd  0x0(%rbp),%xmm3
movapd %xmm0,%xmm4
shufpd $0x1,%xmm3,%xmm4
mulpd  %xmm1,%xmm4
mulsd  %xmm1,%xmm3
shufpd $0x1,%xmm2,%xmm1
mulpd  %xmm0,%xmm1
subpd  %xmm4,%xmm1
movapd %xmm1,0x90(%rsp)
mulsd  %xmm0,%xmm2
subsd  %xmm2,%xmm3
movsd  %xmm3,0xa0(%rsp)
lea    0x90(%rsp),%rdi
call   1030 <len@plt>
movapd %xmm0,0x10(%rsp)
movsd  0xe42(%rip),%xmm0
movapd (%rsp),%xmm4
addsd  %xmm4,%xmm0
movsd  0xe39(%rip),%xmm1
addsd  %xmm4,%xmm1
movupd 0x0(%rbp),%xmm2
movapd %xmm4,%xmm3
unpcklpd %xmm4,%xmm3
divpd  %xmm3,%xmm2
movapd %xmm0,%xmm3
unpcklpd %xmm0,%xmm3
mulpd  %xmm2,%xmm3
movapd %xmm3,0x50(%rsp)
movapd %xmm1,%xmm3
unpcklpd %xmm1,%xmm3
mulpd  %xmm2,%xmm3
movapd %xmm3,0x30(%rsp)
movsd  0x10(%rbp),%xmm2
divsd  %xmm4,%xmm2
mulsd  %xmm2,%xmm0
movsd  %xmm0,0x60(%rsp)
mulsd  %xmm1,%xmm2
movsd  %xmm2,0x40(%rsp)
lea    0x50(%rsp),%rdi
lea    0xd0(%rsp),%rbx
mov    %rbx,%rsi
mov    %r15,%rdx
mov    %r14d,%ecx
call   1040 <force@plt>
lea    0x30(%rsp),%rdi
lea    0xb0(%rsp),%rbp
mov    %rbp,%rsi
mov    %r15,%rdx
mov    %r14d,%ecx
call   1040 <force@plt>
movapd 0x50(%rsp),%xmm0
subpd  0x30(%rsp),%xmm0
movsd  0x60(%rsp),%xmm1
subsd  0x40(%rsp),%xmm1
movapd %xmm0,0x70(%rsp)
movsd  %xmm1,0x80(%rsp)
movapd (%rsp),%xmm1
mulsd  %xmm1,%xmm1
movapd 0x10(%rsp),%xmm0
divsd  %xmm1,%xmm0
movapd %xmm0,0x10(%rsp)
mov    %rbx,%rdi
call   1030 <len@plt>
movsd  %xmm0,(%rsp)
mov    %rbp,%rdi
call   1030 <len@plt>
movsd  (%rsp),%xmm1
subsd  %xmm0,%xmm1
movsd  %xmm1,(%rsp)
lea    0x70(%rsp),%rdi
call   1030 <len@plt>
movsd  (%rsp),%xmm2
divsd  %xmm0,%xmm2
movsd  0x28(%rsp),%xmm0
mulsd  0xd31(%rip),%xmm0
movapd 0x10(%rsp),%xmm1
mulsd  %xmm1,%xmm1
addsd  %xmm2,%xmm1
andpd  0xd2b(%rip),%xmm1
divsd  %xmm1,%xmm0
xor    %edi,%edi
call   1050 <pow@plt>
add    $0xe8,%rsp
pop    %rbx
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define double @jacobi(double* %0, double* %1, double* %2, i32 %3, double %4) {
%6 = alloca double*
%7 = alloca double*
%8 = alloca double*
%9 = alloca i32
%10 = alloca double
%11 = alloca i32
%12 = alloca double
%13 = alloca double
%14 = alloca double
%15 = alloca double
%16 = alloca double
%17 = alloca [3 x double]
%18 = alloca [3 x double]
%19 = alloca [3 x double]
%20 = alloca [3 x double]
%21 = alloca [3 x double]
%22 = alloca [3 x double]
store double* %0, double** %6
store double* %1, double** %7
store double* %2, double** %8
store i32 %3, i32* %9
store double %4, double* %10
%23 = load double*, double** %6
%24 = call double @len(double* %23)
store double %24, double* %16
%25 = load double*, double** %6
%26 = getelementptr inbounds double, double* %25, i64 1
%27 = load double, double* %26
%28 = load double*, double** %7
%29 = getelementptr inbounds double, double* %28, i64 2
%30 = load double, double* %29
%31 = load double*, double** %6
%32 = getelementptr inbounds double, double* %31, i64 2
%33 = load double, double* %32
%34 = load double*, double** %7
%35 = getelementptr inbounds double, double* %34, i64 1
%36 = load double, double* %35
%37 = fmul double %33, %36
%38 = fneg double %37
%39 = call double @llvm.fmuladd.f64(double %27, double %30, double %38)
%40 = getelementptr inbounds [3 x double], [3 x double]* %17, i64 0, i64 0
store double %39, double* %40
%41 = load double*, double** %6
%42 = getelementptr inbounds double, double* %41, i64 2
%43 = load double, double* %42
%44 = load double*, double** %7
%45 = getelementptr inbounds double, double* %44, i64 0
%46 = load double, double* %45
%47 = load double*, double** %6
%48 = getelementptr inbounds double, double* %47, i64 0
%49 = load double, double* %48
%50 = load double*, double** %7
%51 = getelementptr inbounds double, double* %50, i64 2
%52 = load double, double* %51
%53 = fmul double %49, %52
%54 = fneg double %53
%55 = call double @llvm.fmuladd.f64(double %43, double %46, double %54)
%56 = getelementptr inbounds [3 x double], [3 x double]* %17, i64 0, i64 1
store double %55, double* %56
%57 = load double*, double** %6
%58 = getelementptr inbounds double, double* %57, i64 0
%59 = load double, double* %58
%60 = load double*, double** %7
%61 = getelementptr inbounds double, double* %60, i64 1
%62 = load double, double* %61
%63 = load double*, double** %6
%64 = getelementptr inbounds double, double* %63, i64 1
%65 = load double, double* %64
%66 = load double*, double** %7
%67 = getelementptr inbounds double, double* %66, i64 0
%68 = load double, double* %67
%69 = fmul double %65, %68
%70 = fneg double %69
%71 = call double @llvm.fmuladd.f64(double %59, double %62, double %70)
%72 = getelementptr inbounds [3 x double], [3 x double]* %17, i64 0, i64 2
store double %71, double* %72
%73 = getelementptr inbounds [3 x double], [3 x double]* %17, i64 0, i64 0
%74 = call double @len(double* %73)
%75 = load double, double* %16
%76 = load double, double* %16
%77 = fmul double %75, %76
%78 = fdiv double %74, %77
store double %78, double* %13
store double 0x43A12102F6D2EA30, double* %15
store i32 0, i32* %11
br label %79
79: ; preds = %111, %5
%80 = load i32, i32* %11
%81 = icmp slt i32 %80, 3
br i1 %81, label %82, label %114
82: ; preds = %79
%83 = load double*, double** %6
%84 = load i32, i32* %11
%85 = sext i32 %84 to i64
%86 = getelementptr inbounds double, double* %83, i64 %85
%87 = load double, double* %86
%88 = load double, double* %16
%89 = fdiv double %87, %88
%90 = load double, double* %16
%91 = load double, double* %15
%92 = fsub double %90, %91
%93 = fmul double %89, %92
%94 = load i32, i32* %11
%95 = sext i32 %94 to i64
%96 = getelementptr inbounds [3 x double], [3 x double]* %18, i64 0, i64 %95
store double %93, double* %96
%97 = load double*, double** %6
%98 = load i32, i32* %11
%99 = sext i32 %98 to i64
%100 = getelementptr inbounds double, double* %97, i64 %99
%101 = load double, double* %100
%102 = load double, double* %16
%103 = fdiv double %101, %102
%104 = load double, double* %16
%105 = load double, double* %15
%106 = fadd double %104, %105
%107 = fmul double %103, %106
%108 = load i32, i32* %11
%109 = sext i32 %108 to i64
%110 = getelementptr inbounds [3 x double], [3 x double]* %19, i64 0, i64 %109
store double %107, double* %110
br label %111
111: ; preds = %82
%112 = load i32, i32* %11
%113 = add nsw i32 %112, 1
store i32 %113, i32* %11
br label %79
114: ; preds = %79
%115 = getelementptr inbounds [3 x double], [3 x double]* %18, i64 0, i64 0
%116 = getelementptr inbounds [3 x double], [3 x double]* %20, i64 0, i64 0
%117 = load double*, double** %8
%118 = load i32, i32* %9
%119 = call i32 @force(double* %115, double* %116, double* %117, i32 %118)
%120 = getelementptr inbounds [3 x double], [3 x double]* %19, i64 0, i64 0
%121 = getelementptr inbounds [3 x double], [3 x double]* %21, i64 0, i64 0
%122 = load double*, double** %8
%123 = load i32, i32* %9
%124 = call i32 @force(double* %120, double* %121, double* %122, i32 %123)
store i32 0, i32* %11
br label %125
125: ; preds = %141, %114
%126 = load i32, i32* %11
%127 = icmp slt i32 %126, 3
br i1 %127, label %128, label %144
128: ; preds = %125
%129 = load i32, i32* %11
%130 = sext i32 %129 to i64
%131 = getelementptr inbounds [3 x double], [3 x double]* %18, i64 0, i64 %130
%132 = load double, double* %131
%133 = load i32, i32* %11
%134 = sext i32 %133 to i64
%135 = getelementptr inbounds [3 x double], [3 x double]* %19, i64 0, i64 %134
%136 = load double, double* %135
%137 = fsub double %132, %136
%138 = load i32, i32* %11
%139 = sext i32 %138 to i64
%140 = getelementptr inbounds [3 x double], [3 x double]* %22, i64 0, i64 %139
store double %137, double* %140
br label %141
141: ; preds = %128
%142 = load i32, i32* %11
%143 = add nsw i32 %142, 1
store i32 %143, i32* %11
br label %125
144: ; preds = %125
%145 = getelementptr inbounds [3 x double], [3 x double]* %20, i64 0, i64 0
%146 = call double @len(double* %145)
%147 = getelementptr inbounds [3 x double], [3 x double]* %21, i64 0, i64 0
%148 = call double @len(double* %147)
%149 = fsub double %146, %148
%150 = getelementptr inbounds [3 x double], [3 x double]* %22, i64 0, i64 0
%151 = call double @len(double* %150)
%152 = fdiv double %149, %151
store double %152, double* %14
%153 = load double, double* %10
%154 = fmul double 6.670000e-11, %153
%155 = load double, double* %13
%156 = load double, double* %13
%157 = load double, double* %14
%158 = call double @llvm.fmuladd.f64(double %155, double %156, double %157)
%159 = call double @llvm.fabs.f64(double %158)
%160 = fdiv double %154, %159
%161 = call double @pow(double %160, i32 0)
store double %161, double* %12
%162 = load double, double* %12
ret double %162
}

LLVM IR (-O2):
define double @jacobi(double* %0, double* nocapture %1, double* %2, i32 %3, double %4) {
%6 = alloca [3 x double]
%7 = alloca [3 x double]
%8 = alloca [3 x double]
%9 = alloca [3 x double]
%10 = alloca [3 x double]
%11 = alloca [3 x double]
%12 = bitcast [3 x double]* %6 to i8*
%13 = bitcast [3 x double]* %7 to i8*
%14 = bitcast [3 x double]* %8 to i8*
%15 = bitcast [3 x double]* %9 to i8*
%16 = bitcast [3 x double]* %10 to i8*
%17 = bitcast [3 x double]* %11 to i8*
%18 = tail call double @len(double* %0)
%19 = getelementptr inbounds double, double* %0, i64 1
%20 = getelementptr inbounds double, double* %0, i64 2
%21 = bitcast double* %19 to <2 x double>*
%22 = load <2 x double>, <2 x double>* %21
%23 = getelementptr inbounds double, double* %1, i64 1
%24 = bitcast double* %23 to <2 x double>*
%25 = load <2 x double>, <2 x double>* %24
%26 = getelementptr inbounds [3 x double], [3 x double]* %6, i64 0, i64 0
%27 = load double, double* %1
%28 = load double, double* %0
%29 = insertelement <2 x double> %22, double %28, i64 0
%30 = fneg <2 x double> %29
%31 = shufflevector <2 x double> %30, <2 x double> poison, <2 x i32> <i32 1, i32 0>
%32 = fmul <2 x double> %25, %31
%33 = extractelement <2 x double> %25, i64 1
%34 = insertelement <2 x double> poison, double %33, i64 0
%35 = insertelement <2 x double> %34, double %27, i64 1
%36 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %22, <2 x double> %35, <2 x double> %32)
%37 = bitcast [3 x double]* %6 to <2 x double>*
store <2 x double> %36, <2 x double>* %37
%38 = extractelement <2 x double> %22, i64 0
%39 = fneg double %38
%40 = fmul double %27, %39
%41 = extractelement <2 x double> %25, i64 0
%42 = tail call double @llvm.fmuladd.f64(double %28, double %41, double %40)
%43 = getelementptr inbounds [3 x double], [3 x double]* %6, i64 0, i64 2
store double %42, double* %43
%44 = call double @len(double* %26)
%45 = fadd double %18, 0xC3A12102F6D2EA30
%46 = fadd double %18, 0x43A12102F6D2EA30
%47 = getelementptr inbounds [3 x double], [3 x double]* %7, i64 0, i64 0
%48 = bitcast double* %0 to <2 x double>*
%49 = load <2 x double>, <2 x double>* %48
%50 = insertelement <2 x double> poison, double %18, i64 0
%51 = shufflevector <2 x double> %50, <2 x double> poison, <2 x i32> zeroinitializer
%52 = fdiv <2 x double> %49, %51
%53 = getelementptr inbounds [3 x double], [3 x double]* %8, i64 0, i64 0
%54 = insertelement <2 x double> poison, double %45, i64 0
%55 = shufflevector <2 x double> %54, <2 x double> poison, <2 x i32> zeroinitializer
%56 = fmul <2 x double> %55, %52
%57 = bitcast [3 x double]* %7 to <2 x double>*
store <2 x double> %56, <2 x double>* %57
%58 = insertelement <2 x double> poison, double %46, i64 0
%59 = shufflevector <2 x double> %58, <2 x double> poison, <2 x i32> zeroinitializer
%60 = fmul <2 x double> %59, %52
%61 = bitcast [3 x double]* %8 to <2 x double>*
store <2 x double> %60, <2 x double>* %61
%62 = load double, double* %20
%63 = fdiv double %62, %18
%64 = fmul double %45, %63
%65 = getelementptr inbounds [3 x double], [3 x double]* %7, i64 0, i64 2
store double %64, double* %65
%66 = fmul double %46, %63
%67 = getelementptr inbounds [3 x double], [3 x double]* %8, i64 0, i64 2
store double %66, double* %67
%68 = getelementptr inbounds [3 x double], [3 x double]* %9, i64 0, i64 0
%69 = call i32 @force(double* %47, double* %68, double* %2, i32 %3)
%70 = getelementptr inbounds [3 x double], [3 x double]* %10, i64 0, i64 0
%71 = call i32 @force(double* %53, double* %70, double* %2, i32 %3)
%72 = getelementptr inbounds [3 x double], [3 x double]* %11, i64 0, i64 0
%73 = bitcast [3 x double]* %7 to <2 x double>*
%74 = load <2 x double>, <2 x double>* %73
%75 = bitcast [3 x double]* %8 to <2 x double>*
%76 = load <2 x double>, <2 x double>* %75
%77 = fsub <2 x double> %74, %76
%78 = bitcast [3 x double]* %11 to <2 x double>*
store <2 x double> %77, <2 x double>* %78
%79 = load double, double* %65
%80 = load double, double* %67
%81 = fsub double %79, %80
%82 = getelementptr inbounds [3 x double], [3 x double]* %11, i64 0, i64 2
store double %81, double* %82
%83 = fmul double %18, %18
%84 = fdiv double %44, %83
%85 = call double @len(double* %68)
%86 = call double @len(double* %70)
%87 = fsub double %85, %86
%88 = call double @len(double* %72)
%89 = fdiv double %87, %88
%90 = fmul double %4, 6.670000e-11
%91 = call double @llvm.fmuladd.f64(double %84, double %84, double %89)
%92 = call double @llvm.fabs.f64(double %91)
%93 = fdiv double %90, %92
%94 = call double @pow(double %93, i32 0)
ret double %94
}