float Fdisk(vr, vp, vz, R, z)
float vr, vp, vz, R, z;
{
  float vr0, vp0, vz0, R0, z0;
  float diskdf5ez_();
  vr0 = vr;
  vp0 = vp;
  vz0 = vz;
  R0 = R;
  z0 = z;
  return diskdf5ez_(&vr0, &vp0, &vz0, &R0, &z0);
}


x86 assembly (clang, -O0):
<Fdisk>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
movsd  %xmm4,-0x30(%rbp)
movsd  %xmm3,-0x38(%rbp)
movaps %xmm1,%xmm3
movsd  -0x38(%rbp),%xmm1
movaps %xmm0,%xmm4
movsd  -0x30(%rbp),%xmm0
cvtsd2ss %xmm4,%xmm4
cvtsd2ss %xmm3,%xmm3
cvtsd2ss %xmm2,%xmm2
cvtsd2ss %xmm1,%xmm1
cvtsd2ss %xmm0,%xmm0
movss  %xmm4,-0x4(%rbp)
movss  %xmm3,-0x8(%rbp)
movss  %xmm2,-0xc(%rbp)
movss  %xmm1,-0x10(%rbp)
movss  %xmm0,-0x14(%rbp)
movss  -0x4(%rbp),%xmm0
movss  %xmm0,-0x18(%rbp)
movss  -0x8(%rbp),%xmm0
movss  %xmm0,-0x1c(%rbp)
movss  -0xc(%rbp),%xmm0
movss  %xmm0,-0x20(%rbp)
movss  -0x10(%rbp),%xmm0
movss  %xmm0,-0x24(%rbp)
movss  -0x14(%rbp),%xmm0
movss  %xmm0,-0x28(%rbp)
lea    -0x18(%rbp),%rdi
lea    -0x1c(%rbp),%rsi
lea    -0x20(%rbp),%rdx
lea    -0x24(%rbp),%rcx
lea    -0x28(%rbp),%r8
mov    $0x0,%al
call   1030 <diskdf5ez_@plt>
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<Fdisk>:
sub    $0x18,%rsp
cvtsd2ss %xmm0,%xmm0
cvtsd2ss %xmm1,%xmm1
cvtsd2ss %xmm2,%xmm2
cvtsd2ss %xmm3,%xmm3
cvtsd2ss %xmm4,%xmm4
movss  %xmm0,0x14(%rsp)
movss  %xmm1,0x10(%rsp)
movss  %xmm2,0xc(%rsp)
movss  %xmm3,0x8(%rsp)
movss  %xmm4,0x4(%rsp)
lea    0x14(%rsp),%rdi
lea    0x10(%rsp),%rsi
lea    0xc(%rsp),%rdx
lea    0x8(%rsp),%rcx
lea    0x4(%rsp),%r8
xor    %eax,%eax
call   1030 <diskdf5ez_@plt>
add    $0x18,%rsp
ret

LLVM IR (-O0):
define float @Fdisk(double %0, double %1, double %2, double %3, double %4) {
%6 = alloca float
%7 = alloca float
%8 = alloca float
%9 = alloca float
%10 = alloca float
%11 = alloca float
%12 = alloca float
%13 = alloca float
%14 = alloca float
%15 = alloca float
%16 = fptrunc double %0 to float
%17 = fptrunc double %1 to float
%18 = fptrunc double %2 to float
%19 = fptrunc double %3 to float
%20 = fptrunc double %4 to float
store float %16, float* %6
store float %17, float* %7
store float %18, float* %8
store float %19, float* %9
store float %20, float* %10
%21 = load float, float* %6
store float %21, float* %11
%22 = load float, float* %7
store float %22, float* %12
%23 = load float, float* %8
store float %23, float* %13
%24 = load float, float* %9
store float %24, float* %14
%25 = load float, float* %10
store float %25, float* %15
%26 = call float (float*, float*, float*, float*, float*, ...) bitcast (float (...)* @diskdf5ez_ to float (float*, float*, float*, float*, float*, ...)*)(float* %11, float* %12, float* %13, float* %14, float* %15)
ret float %26
}

LLVM IR (-O2):
define float @Fdisk(double %0, double %1, double %2, double %3, double %4) {
%6 = alloca float
%7 = alloca float
%8 = alloca float
%9 = alloca float
%10 = alloca float
%11 = fptrunc double %0 to float
%12 = fptrunc double %1 to float
%13 = fptrunc double %2 to float
%14 = fptrunc double %3 to float
%15 = fptrunc double %4 to float
%16 = bitcast float* %6 to i8*
%17 = bitcast float* %7 to i8*
%18 = bitcast float* %8 to i8*
%19 = bitcast float* %9 to i8*
%20 = bitcast float* %10 to i8*
store float %11, float* %6
store float %12, float* %7
store float %13, float* %8
store float %14, float* %9
store float %15, float* %10
%21 = call float (float*, float*, float*, float*, float*, ...) bitcast (float (...)* @diskdf5ez_ to float (float*, float*, float*, float*, float*, ...)*)(float* %6, float* %7, float* %8, float* %9, float* %10)
ret float %21
}