#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 */
struct icom {
  int dummy;
};

/* Variables and functions */
int /*<<< orphan*/ imaddhistf(struct icom *, char *, float, float);
int imget_fits_float_value(struct icom *, char *, float *);
int /*<<< orphan*/ imupdate_fitsf(struct icom *, char *, char *, float, char *);
int imc_scale_WCS2(struct icom *icom, float scalex, float scaley) {
  float crpix1, crpix2;
  float cdelt1, cdelt2;
  float cd11, cd12, cd21, cd22;
  if (scalex <= 0 || scaley <= 0)
    return 0;
  if (imget_fits_float_value(icom, "CRPIX1", &crpix1) == 1 &&
      imget_fits_float_value(icom, "CRPIX2", &crpix2) == 1) {
    imupdate_fitsf(icom, "CRPIX1", "%20.8f / %-47.47s", crpix1 * scalex, "");
    imupdate_fitsf(icom, "CRPIX2", "%20.8f / %-47.47s", crpix2 * scaley, "");
    if (imget_fits_float_value(icom, "CDELT1", &cdelt1) == 1 &&
        imget_fits_float_value(icom, "CDELT2", &cdelt2) == 1) {
      imupdate_fitsf(icom, "CDELT1", "%20.8f / %-47.47s", cdelt1 / scalex, "");
      imupdate_fitsf(icom, "CDELT2", "%20.8f / %-47.47s", cdelt2 / scaley, "");
    }
    if ((imget_fits_float_value(icom, "CD1_1", &cd11) +
         imget_fits_float_value(icom, "CD1_2", &cd12) +
         imget_fits_float_value(icom, "CD2_1", &cd21) +
         imget_fits_float_value(icom, "CD2_2", &cd22)) != 0) {
      imupdate_fitsf(icom, "CD1_1", "%20.8f / %-47.47s", cd11 / scalex, "");
      imupdate_fitsf(icom, "CD1_2", "%20.8f / %-47.47s", cd12 / scaley, "");
      imupdate_fitsf(icom, "CD2_1", "%20.8f / %-47.47s", cd21 / scalex, "");
      imupdate_fitsf(icom, "CD2_2", "%20.8f / %-47.47s", cd22 / scaley, "");
    }
    imaddhistf(icom, "WCS is scaled by %f x %f", scalex, scaley);
    return 1;
  }
  return 0;
}


x86 assembly (clang, -O0):
<imc_scale_WCS2>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %rdi,-0x10(%rbp)
movss  %xmm0,-0x14(%rbp)
movss  %xmm1,-0x18(%rbp)
xorps  %xmm0,%xmm0
ucomiss -0x14(%rbp),%xmm0
jae    1160 <imc_scale_WCS2+0x30>
xorps  %xmm0,%xmm0
ucomiss -0x18(%rbp),%xmm0
jb     116c <imc_scale_WCS2+0x3c>
movl   $0x0,-0x4(%rbp)
jmp    13c4 <imc_scale_WCS2+0x294>
mov    -0x10(%rbp),%rdi
lea    0xe89(%rip),%rsi
lea    -0x1c(%rbp),%rdx
call   1030 <imget_fits_float_value@plt>
cmp    $0x1,%eax
jne    13bd <imc_scale_WCS2+0x28d>
mov    -0x10(%rbp),%rdi
lea    0xe73(%rip),%rsi
lea    -0x20(%rbp),%rdx
call   1030 <imget_fits_float_value@plt>
cmp    $0x1,%eax
jne    13bd <imc_scale_WCS2+0x28d>
mov    -0x10(%rbp),%rdi
movss  -0x1c(%rbp),%xmm0
mulss  -0x14(%rbp),%xmm0
lea    0xe45(%rip),%rsi
lea    0xe4c(%rip),%rdx
lea    0xe5d(%rip),%rcx
call   1050 <imupdate_fitsf@plt>
mov    -0x10(%rbp),%rdi
movss  -0x20(%rbp),%xmm0
mulss  -0x18(%rbp),%xmm0
lea    0xe24(%rip),%rsi
lea    0xe24(%rip),%rdx
lea    0xe35(%rip),%rcx
call   1050 <imupdate_fitsf@plt>
mov    -0x10(%rbp),%rdi
lea    0xe1f(%rip),%rsi
lea    -0x24(%rbp),%rdx
call   1030 <imget_fits_float_value@plt>
cmp    $0x1,%eax
jne    1280 <imc_scale_WCS2+0x150>
mov    -0x10(%rbp),%rdi
lea    0xe09(%rip),%rsi
lea    -0x28(%rbp),%rdx
call   1030 <imget_fits_float_value@plt>
cmp    $0x1,%eax
jne    1280 <imc_scale_WCS2+0x150>
mov    -0x10(%rbp),%rdi
movss  -0x24(%rbp),%xmm0
divss  -0x14(%rbp),%xmm0
lea    0xddb(%rip),%rsi
lea    0xdc2(%rip),%rdx
lea    0xdd3(%rip),%rcx
call   1050 <imupdate_fitsf@plt>
mov    -0x10(%rbp),%rdi
movss  -0x28(%rbp),%xmm0
divss  -0x18(%rbp),%xmm0
lea    0xdba(%rip),%rsi
lea    0xd9a(%rip),%rdx
lea    0xdab(%rip),%rcx
call   1050 <imupdate_fitsf@plt>
mov    -0x10(%rbp),%rdi
lea    0xda3(%rip),%rsi
lea    -0x2c(%rbp),%rdx
call   1030 <imget_fits_float_value@plt>
mov    %eax,-0x44(%rbp)
mov    -0x10(%rbp),%rdi
lea    0xd92(%rip),%rsi
lea    -0x30(%rbp),%rdx
call   1030 <imget_fits_float_value@plt>
mov    %eax,%ecx
mov    -0x44(%rbp),%eax
add    %ecx,%eax
mov    %eax,-0x40(%rbp)
mov    -0x10(%rbp),%rdi
lea    0xd7a(%rip),%rsi
lea    -0x34(%rbp),%rdx
call   1030 <imget_fits_float_value@plt>
mov    %eax,%ecx
mov    -0x40(%rbp),%eax
add    %ecx,%eax
mov    %eax,-0x3c(%rbp)
mov    -0x10(%rbp),%rdi
lea    0xd62(%rip),%rsi
lea    -0x38(%rbp),%rdx
call   1030 <imget_fits_float_value@plt>
mov    %eax,%ecx
mov    -0x3c(%rbp),%eax
add    %ecx,%eax
cmp    $0x0,%eax
je     1397 <imc_scale_WCS2+0x267>
mov    -0x10(%rbp),%rdi
movss  -0x2c(%rbp),%xmm0
divss  -0x14(%rbp),%xmm0
lea    0xd22(%rip),%rsi
lea    0xcfb(%rip),%rdx
lea    0xd0c(%rip),%rcx
call   1050 <imupdate_fitsf@plt>
mov    -0x10(%rbp),%rdi
movss  -0x30(%rbp),%xmm0
divss  -0x18(%rbp),%xmm0
lea    0xd00(%rip),%rsi
lea    0xcd3(%rip),%rdx
lea    0xce4(%rip),%rcx
call   1050 <imupdate_fitsf@plt>
mov    -0x10(%rbp),%rdi
movss  -0x34(%rbp),%xmm0
divss  -0x14(%rbp),%xmm0
lea    0xcde(%rip),%rsi
lea    0xcab(%rip),%rdx
lea    0xcbc(%rip),%rcx
call   1050 <imupdate_fitsf@plt>
mov    -0x10(%rbp),%rdi
movss  -0x38(%rbp),%xmm0
divss  -0x18(%rbp),%xmm0
lea    0xcbc(%rip),%rsi
lea    0xc83(%rip),%rdx
lea    0xc94(%rip),%rcx
call   1050 <imupdate_fitsf@plt>
mov    -0x10(%rbp),%rdi
movss  -0x14(%rbp),%xmm0
movss  -0x18(%rbp),%xmm1
lea    0xc9a(%rip),%rsi
call   1040 <imaddhistf@plt>
movl   $0x1,-0x4(%rbp)
jmp    13c4 <imc_scale_WCS2+0x294>
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<imc_scale_WCS2>:
push   %rbp
push   %r14
push   %rbx
sub    $0x30,%rsp
xor    %ebp,%ebp
xorps  %xmm2,%xmm2
ucomiss %xmm0,%xmm2
jae    1380 <imc_scale_WCS2+0x250>
ucomiss %xmm1,%xmm2
jae    1380 <imc_scale_WCS2+0x250>
mov    %rdi,%rbx
movss  %xmm0,0x8(%rsp)
movss  %xmm1,0xc(%rsp)
lea    0xe9b(%rip),%rsi
lea    0x2c(%rsp),%rdx
call   1030 <imget_fits_float_value@plt>
cmp    $0x1,%eax
jne    1380 <imc_scale_WCS2+0x250>
lea    0xe88(%rip),%rsi
lea    0x28(%rsp),%rdx
mov    %rbx,%rdi
call   1030 <imget_fits_float_value@plt>
cmp    $0x1,%eax
jne    1380 <imc_scale_WCS2+0x250>
movss  0x2c(%rsp),%xmm0
mulss  0x8(%rsp),%xmm0
lea    0xe58(%rip),%rsi
lea    0xe5f(%rip),%rbp
lea    0xe70(%rip),%r14
mov    %rbx,%rdi
mov    %rbp,%rdx
mov    %r14,%rcx
call   1050 <imupdate_fitsf@plt>
movss  0x28(%rsp),%xmm0
mulss  0xc(%rsp),%xmm0
lea    0xe30(%rip),%rsi
mov    %rbx,%rdi
mov    %rbp,%rdx
mov    %r14,%rcx
call   1050 <imupdate_fitsf@plt>
lea    0xe34(%rip),%rsi
lea    0x24(%rsp),%rdx
mov    %rbx,%rdi
call   1030 <imget_fits_float_value@plt>
cmp    $0x1,%eax
jne    1267 <imc_scale_WCS2+0x137>
lea    0xe22(%rip),%rsi
lea    0x20(%rsp),%rdx
mov    %rbx,%rdi
call   1030 <imget_fits_float_value@plt>
cmp    $0x1,%eax
jne    1267 <imc_scale_WCS2+0x137>
movss  0x24(%rsp),%xmm0
divss  0x8(%rsp),%xmm0
lea    0xdf6(%rip),%rsi
lea    0xddd(%rip),%rbp
lea    0xdee(%rip),%r14
mov    %rbx,%rdi
mov    %rbp,%rdx
mov    %r14,%rcx
call   1050 <imupdate_fitsf@plt>
movss  0x20(%rsp),%xmm0
divss  0xc(%rsp),%xmm0
lea    0xdce(%rip),%rsi
mov    %rbx,%rdi
mov    %rbp,%rdx
mov    %r14,%rcx
call   1050 <imupdate_fitsf@plt>
lea    0xdc0(%rip),%rsi
lea    0x1c(%rsp),%rdx
mov    %rbx,%rdi
call   1030 <imget_fits_float_value@plt>
mov    %eax,%r14d
lea    0xdaf(%rip),%rsi
lea    0x18(%rsp),%rdx
mov    %rbx,%rdi
call   1030 <imget_fits_float_value@plt>
mov    %eax,%ebp
add    %r14d,%ebp
lea    0xd9c(%rip),%rsi
lea    0x14(%rsp),%rdx
mov    %rbx,%rdi
call   1030 <imget_fits_float_value@plt>
mov    %eax,%r14d
add    %ebp,%r14d
lea    0xd88(%rip),%rsi
lea    0x10(%rsp),%rdx
mov    %rbx,%rdi
call   1030 <imget_fits_float_value@plt>
add    %r14d,%eax
je     1360 <imc_scale_WCS2+0x230>
movss  0x1c(%rsp),%xmm0
divss  0x8(%rsp),%xmm0
lea    0xd4d(%rip),%rsi
lea    0xd26(%rip),%rbp
lea    0xd37(%rip),%r14
mov    %rbx,%rdi
mov    %rbp,%rdx
mov    %r14,%rcx
call   1050 <imupdate_fitsf@plt>
movss  0x18(%rsp),%xmm0
divss  0xc(%rsp),%xmm0
lea    0xd24(%rip),%rsi
mov    %rbx,%rdi
mov    %rbp,%rdx
mov    %r14,%rcx
call   1050 <imupdate_fitsf@plt>
movss  0x14(%rsp),%xmm0
divss  0x8(%rsp),%xmm0
lea    0xd09(%rip),%rsi
mov    %rbx,%rdi
mov    %rbp,%rdx
mov    %r14,%rcx
call   1050 <imupdate_fitsf@plt>
movss  0x10(%rsp),%xmm0
divss  0xc(%rsp),%xmm0
lea    0xcee(%rip),%rsi
mov    %rbx,%rdi
mov    %rbp,%rdx
mov    %r14,%rcx
call   1050 <imupdate_fitsf@plt>
lea    0xcdf(%rip),%rsi
mov    %rbx,%rdi
movss  0x8(%rsp),%xmm0
movss  0xc(%rsp),%xmm1
call   1040 <imaddhistf@plt>
mov    $0x1,%ebp
mov    %ebp,%eax
add    $0x30,%rsp
pop    %rbx
pop    %r14
pop    %rbp
ret

LLVM IR (-O0):
%struct.icom = type { i32 }
@.str = [7 x i8] c"CRPIX1\00"
@.str.1 = [7 x i8] c"CRPIX2\00"
@.str.2 = [18 x i8] c"%20.8f / %-47.47s\00"
@.str.3 = [1 x i8] zeroinitializer
@.str.4 = [7 x i8] c"CDELT1\00"
@.str.5 = [7 x i8] c"CDELT2\00"
@.str.6 = [6 x i8] c"CD1_1\00"
@.str.7 = [6 x i8] c"CD1_2\00"
@.str.8 = [6 x i8] c"CD2_1\00"
@.str.9 = [6 x i8] c"CD2_2\00"
@.str.10 = [25 x i8] c"WCS is scaled by %f x %f\00"
define i32 @imc_scale_WCS2(%struct.icom* %0, float %1, float %2) {
%4 = alloca i32
%5 = alloca %struct.icom*
%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
store %struct.icom* %0, %struct.icom** %5
store float %1, float* %6
store float %2, float* %7
%16 = load float, float* %6
%17 = fcmp ole float %16, 0.000000e+00
br i1 %17, label %21, label %18
18: ; preds = %3
%19 = load float, float* %7
%20 = fcmp ole float %19, 0.000000e+00
br i1 %20, label %21, label %22
21: ; preds = %18, %3
store i32 0, i32* %4
br label %99
22: ; preds = %18
%23 = load %struct.icom*, %struct.icom** %5
%24 = call i32 @imget_fits_float_value(%struct.icom* %23, i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str, i64 0, i64 0), float* %8)
%25 = icmp eq i32 %24, 1
br i1 %25, label %26, label %98
26: ; preds = %22
%27 = load %struct.icom*, %struct.icom** %5
%28 = call i32 @imget_fits_float_value(%struct.icom* %27, i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.1, i64 0, i64 0), float* %9)
%29 = icmp eq i32 %28, 1
br i1 %29, label %30, label %98
30: ; preds = %26
%31 = load %struct.icom*, %struct.icom** %5
%32 = load float, float* %8
%33 = load float, float* %6
%34 = fmul float %32, %33
%35 = call i32 @imupdate_fitsf(%struct.icom* %31, i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str, i64 0, i64 0), i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.2, i64 0, i64 0), float %34, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.3, i64 0, i64 0))
%36 = load %struct.icom*, %struct.icom** %5
%37 = load float, float* %9
%38 = load float, float* %7
%39 = fmul float %37, %38
%40 = call i32 @imupdate_fitsf(%struct.icom* %36, i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.1, i64 0, i64 0), i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.2, i64 0, i64 0), float %39, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.3, i64 0, i64 0))
%41 = load %struct.icom*, %struct.icom** %5
%42 = call i32 @imget_fits_float_value(%struct.icom* %41, i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.4, i64 0, i64 0), float* %10)
%43 = icmp eq i32 %42, 1
br i1 %43, label %44, label %59
44: ; preds = %30
%45 = load %struct.icom*, %struct.icom** %5
%46 = call i32 @imget_fits_float_value(%struct.icom* %45, i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.5, i64 0, i64 0), float* %11)
%47 = icmp eq i32 %46, 1
br i1 %47, label %48, label %59
48: ; preds = %44
%49 = load %struct.icom*, %struct.icom** %5
%50 = load float, float* %10
%51 = load float, float* %6
%52 = fdiv float %50, %51
%53 = call i32 @imupdate_fitsf(%struct.icom* %49, i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.4, i64 0, i64 0), i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.2, i64 0, i64 0), float %52, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.3, i64 0, i64 0))
%54 = load %struct.icom*, %struct.icom** %5
%55 = load float, float* %11
%56 = load float, float* %7
%57 = fdiv float %55, %56
%58 = call i32 @imupdate_fitsf(%struct.icom* %54, i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.5, i64 0, i64 0), i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.2, i64 0, i64 0), float %57, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.3, i64 0, i64 0))
br label %59
59: ; preds = %48, %44, %30
%60 = load %struct.icom*, %struct.icom** %5
%61 = call i32 @imget_fits_float_value(%struct.icom* %60, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.6, i64 0, i64 0), float* %12)
%62 = load %struct.icom*, %struct.icom** %5
%63 = call i32 @imget_fits_float_value(%struct.icom* %62, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.7, i64 0, i64 0), float* %13)
%64 = add nsw i32 %61, %63
%65 = load %struct.icom*, %struct.icom** %5
%66 = call i32 @imget_fits_float_value(%struct.icom* %65, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.8, i64 0, i64 0), float* %14)
%67 = add nsw i32 %64, %66
%68 = load %struct.icom*, %struct.icom** %5
%69 = call i32 @imget_fits_float_value(%struct.icom* %68, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.9, i64 0, i64 0), float* %15)
%70 = add nsw i32 %67, %69
%71 = icmp ne i32 %70, 0
br i1 %71, label %72, label %93
72: ; preds = %59
%73 = load %struct.icom*, %struct.icom** %5
%74 = load float, float* %12
%75 = load float, float* %6
%76 = fdiv float %74, %75
%77 = call i32 @imupdate_fitsf(%struct.icom* %73, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.6, i64 0, i64 0), i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.2, i64 0, i64 0), float %76, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.3, i64 0, i64 0))
%78 = load %struct.icom*, %struct.icom** %5
%79 = load float, float* %13
%80 = load float, float* %7
%81 = fdiv float %79, %80
%82 = call i32 @imupdate_fitsf(%struct.icom* %78, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.7, i64 0, i64 0), i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.2, i64 0, i64 0), float %81, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.3, i64 0, i64 0))
%83 = load %struct.icom*, %struct.icom** %5
%84 = load float, float* %14
%85 = load float, float* %6
%86 = fdiv float %84, %85
%87 = call i32 @imupdate_fitsf(%struct.icom* %83, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.8, i64 0, i64 0), i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.2, i64 0, i64 0), float %86, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.3, i64 0, i64 0))
%88 = load %struct.icom*, %struct.icom** %5
%89 = load float, float* %15
%90 = load float, float* %7
%91 = fdiv float %89, %90
%92 = call i32 @imupdate_fitsf(%struct.icom* %88, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.9, i64 0, i64 0), i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.2, i64 0, i64 0), float %91, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.3, i64 0, i64 0))
br label %93
93: ; preds = %72, %59
%94 = load %struct.icom*, %struct.icom** %5
%95 = load float, float* %6
%96 = load float, float* %7
%97 = call i32 @imaddhistf(%struct.icom* %94, i8* getelementptr inbounds ([25 x i8], [25 x i8]* @.str.10, i64 0, i64 0), float %95, float %96)
store i32 1, i32* %4
br label %99
98: ; preds = %26, %22
store i32 0, i32* %4
br label %99
99: ; preds = %98, %93, %21
%100 = load i32, i32* %4
ret i32 %100
}

LLVM IR (-O2):
%struct.icom = type { i32 }
@.str = [7 x i8] c"CRPIX1\00"
@.str.1 = [7 x i8] c"CRPIX2\00"
@.str.2 = [18 x i8] c"%20.8f / %-47.47s\00"
@.str.3 = [1 x i8] zeroinitializer
@.str.4 = [7 x i8] c"CDELT1\00"
@.str.5 = [7 x i8] c"CDELT2\00"
@.str.6 = [6 x i8] c"CD1_1\00"
@.str.7 = [6 x i8] c"CD1_2\00"
@.str.8 = [6 x i8] c"CD2_1\00"
@.str.9 = [6 x i8] c"CD2_2\00"
@.str.10 = [25 x i8] c"WCS is scaled by %f x %f\00"
define i32 @imc_scale_WCS2(%struct.icom* %0, float %1, float %2) {
%4 = alloca float
%5 = alloca float
%6 = alloca float
%7 = alloca float
%8 = alloca float
%9 = alloca float
%10 = alloca float
%11 = alloca float
%12 = bitcast float* %4 to i8*
%13 = bitcast float* %5 to i8*
%14 = bitcast float* %6 to i8*
%15 = bitcast float* %7 to i8*
%16 = bitcast float* %8 to i8*
%17 = bitcast float* %9 to i8*
%18 = bitcast float* %10 to i8*
%19 = bitcast float* %11 to i8*
%20 = fcmp ole float %1, 0.000000e+00
%21 = fcmp ole float %2, 0.000000e+00
%22 = or i1 %20, %21
br i1 %22, label %72, label %23
23: ; preds = %3
%24 = call i32 @imget_fits_float_value(%struct.icom* %0, i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str, i64 0, i64 0), float* %4)
%25 = icmp eq i32 %24, 1
br i1 %25, label %26, label %72
26: ; preds = %23
%27 = call i32 @imget_fits_float_value(%struct.icom* %0, i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.1, i64 0, i64 0), float* %5)
%28 = icmp eq i32 %27, 1
br i1 %28, label %29, label %72
29: ; preds = %26
%30 = load float, float* %4
%31 = fmul float %30, %1
%32 = call i32 @imupdate_fitsf(%struct.icom* %0, i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str, i64 0, i64 0), i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.2, i64 0, i64 0), float %31, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.3, i64 0, i64 0))
%33 = load float, float* %5
%34 = fmul float %33, %2
%35 = call i32 @imupdate_fitsf(%struct.icom* %0, i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.1, i64 0, i64 0), i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.2, i64 0, i64 0), float %34, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.3, i64 0, i64 0))
%36 = call i32 @imget_fits_float_value(%struct.icom* %0, i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.4, i64 0, i64 0), float* %6)
%37 = icmp eq i32 %36, 1
br i1 %37, label %38, label %48
38: ; preds = %29
%39 = call i32 @imget_fits_float_value(%struct.icom* %0, i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.5, i64 0, i64 0), float* %7)
%40 = icmp eq i32 %39, 1
br i1 %40, label %41, label %48
41: ; preds = %38
%42 = load float, float* %6
%43 = fdiv float %42, %1
%44 = call i32 @imupdate_fitsf(%struct.icom* %0, i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.4, i64 0, i64 0), i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.2, i64 0, i64 0), float %43, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.3, i64 0, i64 0))
%45 = load float, float* %7
%46 = fdiv float %45, %2
%47 = call i32 @imupdate_fitsf(%struct.icom* %0, i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.5, i64 0, i64 0), i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.2, i64 0, i64 0), float %46, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.3, i64 0, i64 0))
br label %48
48: ; preds = %41, %38, %29
%49 = call i32 @imget_fits_float_value(%struct.icom* %0, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.6, i64 0, i64 0), float* %8)
%50 = call i32 @imget_fits_float_value(%struct.icom* %0, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.7, i64 0, i64 0), float* %9)
%51 = add nsw i32 %50, %49
%52 = call i32 @imget_fits_float_value(%struct.icom* %0, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.8, i64 0, i64 0), float* %10)
%53 = add nsw i32 %51, %52
%54 = call i32 @imget_fits_float_value(%struct.icom* %0, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.9, i64 0, i64 0), float* %11)
%55 = sub i32 0, %54
%56 = icmp eq i32 %53, %55
br i1 %56, label %70, label %57
57: ; preds = %48
%58 = load float, float* %8
%59 = fdiv float %58, %1
%60 = call i32 @imupdate_fitsf(%struct.icom* %0, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.6, i64 0, i64 0), i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.2, i64 0, i64 0), float %59, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.3, i64 0, i64 0))
%61 = load float, float* %9
%62 = fdiv float %61, %2
%63 = call i32 @imupdate_fitsf(%struct.icom* %0, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.7, i64 0, i64 0), i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.2, i64 0, i64 0), float %62, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.3, i64 0, i64 0))
%64 = load float, float* %10
%65 = fdiv float %64, %1
%66 = call i32 @imupdate_fitsf(%struct.icom* %0, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.8, i64 0, i64 0), i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.2, i64 0, i64 0), float %65, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.3, i64 0, i64 0))
%67 = load float, float* %11
%68 = fdiv float %67, %2
%69 = call i32 @imupdate_fitsf(%struct.icom* %0, i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.9, i64 0, i64 0), i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str.2, i64 0, i64 0), float %68, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str.3, i64 0, i64 0))
br label %70
70: ; preds = %57, %48
%71 = call i32 @imaddhistf(%struct.icom* %0, i8* getelementptr inbounds ([25 x i8], [25 x i8]* @.str.10, i64 0, i64 0), float %1, float %2)
br label %72
72: ; preds = %23, %26, %3, %70
%73 = phi i32 [ 1, %70 ], [ 0, %3 ], [ 0, %26 ], [ 0, %23 ]
ret i32 %73
}