#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 */
int /*<<< orphan*/ palDeuler(char *, double, double, double, double **);
int /*<<< orphan*/ palNutc(double, double *, double *, double *);
void palNut(double date, double rmatn[3][3]) {
  double dpsi, deps, eps0;
  palNutc(date, &dpsi, &deps, &eps0);
  palDeuler("XZX", eps0, -dpsi, -(eps0 + deps), rmatn);
}


x86 assembly (clang, -O0):
<palNut>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
movsd  %xmm0,-0x8(%rbp)
mov    %rdi,-0x10(%rbp)
movsd  -0x8(%rbp),%xmm0
lea    -0x18(%rbp),%rdi
lea    -0x20(%rbp),%rsi
lea    -0x28(%rbp),%rdx
call   1040 <palNutc@plt>
movsd  -0x28(%rbp),%xmm0
movsd  -0x18(%rbp),%xmm1
movq   %xmm1,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm1
movsd  -0x28(%rbp),%xmm2
addsd  -0x20(%rbp),%xmm2
movq   %xmm2,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm2
mov    -0x10(%rbp),%rsi
lea    0xe6c(%rip),%rdi
call   1030 <palDeuler@plt>
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<palNut>:
push   %rbx
sub    $0x20,%rsp
mov    %rdi,%rbx
lea    0x18(%rsp),%rdi
lea    0x10(%rsp),%rsi
lea    0x8(%rsp),%rdx
call   1040 <palNutc@plt>
movsd  0x8(%rsp),%xmm0
movsd  0x18(%rsp),%xmm1
movapd 0xeb0(%rip),%xmm3
xorpd  %xmm3,%xmm1
movsd  0x10(%rsp),%xmm2
addsd  %xmm0,%xmm2
xorpd  %xmm3,%xmm2
lea    0xea7(%rip),%rdi
mov    %rbx,%rsi
call   1030 <palDeuler@plt>
add    $0x20,%rsp
pop    %rbx
ret

LLVM IR (-O0):
@.str = [4 x i8] c"XZX\00"
define void @palNut(double %0, [3 x double]* %1) {
%3 = alloca double
%4 = alloca [3 x double]*
%5 = alloca double
%6 = alloca double
%7 = alloca double
store double %0, double* %3
store [3 x double]* %1, [3 x double]** %4
%8 = load double, double* %3
%9 = call i32 @palNutc(double %8, double* %5, double* %6, double* %7)
%10 = load double, double* %7
%11 = load double, double* %5
%12 = fneg double %11
%13 = load double, double* %7
%14 = load double, double* %6
%15 = fadd double %13, %14
%16 = fneg double %15
%17 = load [3 x double]*, [3 x double]** %4
%18 = bitcast [3 x double]* %17 to double**
%19 = call i32 @palDeuler(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), double %10, double %12, double %16, double** %18)
ret void
}

LLVM IR (-O2):
@.str = [4 x i8] c"XZX\00"
define void @palNut(double %0, [3 x double]* %1) {
%3 = alloca double
%4 = alloca double
%5 = alloca double
%6 = bitcast double* %3 to i8*
%7 = bitcast double* %4 to i8*
%8 = bitcast double* %5 to i8*
%9 = call i32 @palNutc(double %0, double* %3, double* %4, double* %5)
%10 = load double, double* %5
%11 = load double, double* %3
%12 = fneg double %11
%13 = load double, double* %4
%14 = fadd double %10, %13
%15 = fneg double %14
%16 = bitcast [3 x double]* %1 to double**
%17 = call i32 @palDeuler(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), double %10, double %12, double %15, double** %16)
ret void
}