; LLVM IR from OpenMathLib/OpenBLAS :: lapack-netlib/SRC (zlantp)

; Unoptimized IR (clang -disable-llvm-passes):
target datalayout = "e-m:e-p270:32:32-p271:32:32-p272:64:64-i64:64-i128:128-f80:128-n8:16:32:64-S128"
target triple = "x86_64-unknown-linux-gnu"

%struct.doublecomplex = type { double, double }

@.str = external hidden unnamed_addr constant [2 x i8], align 1
@.str.1 = external hidden unnamed_addr constant [2 x i8], align 1
@.str.2 = external hidden unnamed_addr constant [2 x i8], align 1
@.str.3 = external hidden unnamed_addr constant [2 x i8], align 1
@.str.4 = external hidden unnamed_addr constant [2 x i8], align 1
@.str.5 = external hidden unnamed_addr constant [2 x i8], align 1
@c__1 = external hidden global i32, align 4

; Function Attrs: nounwind uwtable
define dso_local double @zlantp_(ptr noundef %0, ptr noundef %1, ptr noundef %2, ptr noundef %3, ptr noundef %4, ptr noundef %5) #0 {
  %7 = alloca ptr, align 8
  %8 = alloca ptr, align 8
  %9 = alloca ptr, align 8
  %10 = alloca ptr, align 8
  %11 = alloca ptr, align 8
  %12 = alloca ptr, align 8
  %13 = alloca i32, align 4
  %14 = alloca i32, align 4
  %15 = alloca double, align 8
  %16 = alloca i32, align 4
  %17 = alloca i32, align 4
  %18 = alloca i32, align 4
  %19 = alloca i32, align 4
  %20 = alloca double, align 8
  %21 = alloca [2 x double], align 16
  %22 = alloca double, align 8
  %23 = alloca [2 x double], align 16
  %24 = alloca { double, double }, align 8
  %25 = alloca { double, double }, align 8
  %26 = alloca { double, double }, align 8
  %27 = alloca { double, double }, align 8
  %28 = alloca { double, double }, align 8
  %29 = alloca { double, double }, align 8
  %30 = alloca { double, double }, align 8
  %31 = alloca { double, double }, align 8
  %32 = alloca { double, double }, align 8
  %33 = alloca { double, double }, align 8
  %34 = alloca { double, double }, align 8
  %35 = alloca { double, double }, align 8
  store ptr %0, ptr %7, align 8, !tbaa !5
  store ptr %1, ptr %8, align 8, !tbaa !5
  store ptr %2, ptr %9, align 8, !tbaa !5
  store ptr %3, ptr %10, align 8, !tbaa !5
  store ptr %4, ptr %11, align 8, !tbaa !5
  store ptr %5, ptr %12, align 8, !tbaa !5
  call void @llvm.lifetime.start.p0(i64 4, ptr %13) #5
  call void @llvm.lifetime.start.p0(i64 4, ptr %14) #5
  call void @llvm.lifetime.start.p0(i64 8, ptr %15) #5
  call void @llvm.lifetime.start.p0(i64 4, ptr %16) #5
  call void @llvm.lifetime.start.p0(i64 4, ptr %17) #5
  call void @llvm.lifetime.start.p0(i64 4, ptr %18) #5
  call void @llvm.lifetime.start.p0(i64 4, ptr %19) #5
  call void @llvm.lifetime.start.p0(i64 8, ptr %20) #5
  call void @llvm.lifetime.start.p0(i64 16, ptr %21) #5
  call void @llvm.lifetime.start.p0(i64 8, ptr %22) #5
  call void @llvm.lifetime.start.p0(i64 16, ptr %23) #5
  %36 = load ptr, ptr %12, align 8, !tbaa !5
  %37 = getelementptr inbounds double, ptr %36, i32 -1
  store ptr %37, ptr %12, align 8, !tbaa !5
  %38 = load ptr, ptr %11, align 8, !tbaa !5
  %39 = getelementptr inbounds %struct.doublecomplex, ptr %38, i32 -1
  store ptr %39, ptr %11, align 8, !tbaa !5
  %40 = load ptr, ptr %10, align 8, !tbaa !5
  %41 = load i32, ptr %40, align 4, !tbaa !9
  %42 = icmp eq i32 %41, 0
  br i1 %42, label %43, label %44

43:                                               ; preds = %6
  store double 0.000000e+00, ptr %20, align 8, !tbaa !11
  br label %944

44:                                               ; preds = %6
  %45 = load ptr, ptr %7, align 8, !tbaa !5
  %46 = call i32 @lsame_(ptr noundef %45, ptr noundef @.str)
  %47 = icmp ne i32 %46, 0
  br i1 %47, label %48, label %284

48:                                               ; preds = %44
  store i32 1, ptr %18, align 4, !tbaa !9
  %49 = load ptr, ptr %9, align 8, !tbaa !5
  %50 = call i32 @lsame_(ptr noundef %49, ptr noundef @.str.1)
  %51 = icmp ne i32 %50, 0
  br i1 %51, label %52, label %168

52:                                               ; preds = %48
  store double 1.000000e+00, ptr %20, align 8, !tbaa !11
  %53 = load ptr, ptr %8, align 8, !tbaa !5
  %54 = call i32 @lsame_(ptr noundef %53, ptr noundef @.str.1)
  %55 = icmp ne i32 %54, 0
  br i1 %55, label %56, label %108

56:                                               ; preds = %52
  %57 = load ptr, ptr %10, align 8, !tbaa !5
  %58 = load i32, ptr %57, align 4, !tbaa !9
  store i32 %58, ptr %13, align 4, !tbaa !9
  store i32 1, ptr %17, align 4, !tbaa !9
  br label %59

59:                                               ; preds = %104, %56
  %60 = load i32, ptr %17, align 4, !tbaa !9
  %61 = load i32, ptr %13, align 4, !tbaa !9
  %62 = icmp sle i32 %60, %61
  br i1 %62, label %63, label %107

63:                                               ; preds = %59
  %64 = load i32, ptr %18, align 4, !tbaa !9
  %65 = load i32, ptr %17, align 4, !tbaa !9
  %66 = add nsw i32 %64, %65
  %67 = sub nsw i32 %66, 2
  store i32 %67, ptr %14, align 4, !tbaa !9
  %68 = load i32, ptr %18, align 4, !tbaa !9
  store i32 %68, ptr %16, align 4, !tbaa !9
  br label %69

69:                                               ; preds = %97, %63
  %70 = load i32, ptr %16, align 4, !tbaa !9
  %71 = load i32, ptr %14, align 4, !tbaa !9
  %72 = icmp sle i32 %70, %71
  br i1 %72, label %73, label %100

73:                                               ; preds = %69
  %74 = load ptr, ptr %11, align 8, !tbaa !5
  %75 = load i32, ptr %16, align 4, !tbaa !9
  %76 = sext i32 %75 to i64
  %77 = getelementptr inbounds %struct.doublecomplex, ptr %74, i64 %76
  %78 = call { double, double } @Cd(ptr noundef %77)
  %79 = extractvalue { double, double } %78, 0
  %80 = extractvalue { double, double } %78, 1
  %81 = getelementptr inbounds { double, double }, ptr %24, i32 0, i32 0
  %82 = getelementptr inbounds { double, double }, ptr %24, i32 0, i32 1
  store double %79, ptr %81, align 8
  store double %80, ptr %82, align 8
  %83 = getelementptr inbounds { double, double }, ptr %24, i32 0, i32 0
  %84 = load double, ptr %83, align 8
  %85 = getelementptr inbounds { double, double }, ptr %24, i32 0, i32 1
  %86 = load double, ptr %85, align 8
  %87 = call double @cabs(double noundef %84, double noundef %86) #5
  store double %87, ptr %22, align 8, !tbaa !11
  %88 = load double, ptr %20, align 8, !tbaa !11
  %89 = load double, ptr %22, align 8, !tbaa !11
  %90 = fcmp olt double %88, %89
  br i1 %90, label %94, label %91

91:                                               ; preds = %73
  %92 = call i32 @disnan_(ptr noundef %22)
  %93 = icmp ne i32 %92, 0
  br i1 %93, label %94, label %96

94:                                               ; preds = %91, %73
  %95 = load double, ptr %22, align 8, !tbaa !11
  store double %95, ptr %20, align 8, !tbaa !11
  br label %96

96:                                               ; preds = %94, %91
  br label %97

97:                                               ; preds = %96
  %98 = load i32, ptr %16, align 4, !tbaa !9
  %99 = add nsw i32 %98, 1
  store i32 %99, ptr %16, align 4, !tbaa !9
  br label %69, !llvm.loop !13

100:                                              ; preds = %69
  %101 = load i32, ptr %17, align 4, !tbaa !9
  %102 = load i32, ptr %18, align 4, !tbaa !9
  %103 = add nsw i32 %102, %101
  store i32 %103, ptr %18, align 4, !tbaa !9
  br label %104

104:                                              ; preds = %100
  %105 = load i32, ptr %17, align 4, !tbaa !9
  %106 = add nsw i32 %105, 1
  store i32 %106, ptr %17, align 4, !tbaa !9
  br label %59, !llvm.loop !15

107:                                              ; preds = %59
  br label %167

108:                                              ; preds = %52
  %109 = load ptr, ptr %10, align 8, !tbaa !5
  %110 = load i32, ptr %109, align 4, !tbaa !9
  store i32 %110, ptr %13, align 4, !tbaa !9
  store i32 1, ptr %17, align 4, !tbaa !9
  br label %111

111:                                              ; preds = %163, %108
  %112 = load i32, ptr %17, align 4, !tbaa !9
  %113 = load i32, ptr %13, align 4, !tbaa !9
  %114 = icmp sle i32 %112, %113
  br i1 %114, label %115, label %166

115:                                              ; preds = %111
  %116 = load i32, ptr %18, align 4, !tbaa !9
  %117 = load ptr, ptr %10, align 8, !tbaa !5
  %118 = load i32, ptr %117, align 4, !tbaa !9
  %119 = add nsw i32 %116, %118
  %120 = load i32, ptr %17, align 4, !tbaa !9
  %121 = sub nsw i32 %119, %120
  store i32 %121, ptr %14, align 4, !tbaa !9
  %122 = load i32, ptr %18, align 4, !tbaa !9
  %123 = add nsw i32 %122, 1
  store i32 %123, ptr %16, align 4, !tbaa !9
  br label %124

124:                                              ; preds = %152, %115
  %125 = load i32, ptr %16, align 4, !tbaa !9
  %126 = load i32, ptr %14, align 4, !tbaa !9
  %127 = icmp sle i32 %125, %126
  br i1 %127, label %128, label %155

128:                                              ; preds = %124
  %129 = load ptr, ptr %11, align 8, !tbaa !5
  %130 = load i32, ptr %16, align 4, !tbaa !9
  %131 = sext i32 %130 to i64
  %132 = getelementptr inbounds %struct.doublecomplex, ptr %129, i64 %131
  %133 = call { double, double } @Cd(ptr noundef %132)
  %134 = extractvalue { double, double } %133, 0
  %135 = extractvalue { double, double } %133, 1
  %136 = getelementptr inbounds { double, double }, ptr %25, i32 0, i32 0
  %137 = getelementptr inbounds { double, double }, ptr %25, i32 0, i32 1
  store double %134, ptr %136, align 8
  store double %135, ptr %137, align 8
  %138 = getelementptr inbounds { double, double }, ptr %25, i32 0, i32 0
  %139 = load double, ptr %138, align 8
  %140 = getelementptr inbounds { double, double }, ptr %25, i32 0, i32 1
  %141 = load double, ptr %140, align 8
  %142 = call double @cabs(double noundef %139, double noundef %141) #5
  store double %142, ptr %22, align 8, !tbaa !11
  %143 = load double, ptr %20, align 8, !tbaa !11
  %144 = load double, ptr %22, align 8, !tbaa !11
  %145 = fcmp olt double %143, %144
  br i1 %145, label %149, label %146

146:                                              ; preds = %128
  %147 = call i32 @disnan_(ptr noundef %22)
  %148 = icmp ne i32 %147, 0
  br i1 %148, label %149, label %151

149:                                              ; preds = %146, %128
  %150 = load double, ptr %22, align 8, !tbaa !11
  store double %150, ptr %20, align 8, !tbaa !11
  br label %151

151:                                              ; preds = %149, %146
  br label %152

152:                                              ; preds = %151
  %153 = load i32, ptr %16, align 4, !tbaa !9
  %154 = add nsw i32 %153, 1
  store i32 %154, ptr %16, align 4, !tbaa !9
  br label %124, !llvm.loop !16

155:                                              ; preds = %124
  %156 = load i32, ptr %18, align 4, !tbaa !9
  %157 = load ptr, ptr %10, align 8, !tbaa !5
  %158 = load i32, ptr %157, align 4, !tbaa !9
  %159 = add nsw i32 %156, %158
  %160 = load i32, ptr %17, align 4, !tbaa !9
  %161 = sub nsw i32 %159, %160
  %162 = add nsw i32 %161, 1
  store i32 %162, ptr %18, align 4, !tbaa !9
  br label %163

163:                                              ; preds = %155
  %164 = load i32, ptr %17, align 4, !tbaa !9
  %165 = add nsw i32 %164, 1
  store i32 %165, ptr %17, align 4, !tbaa !9
  br label %111, !llvm.loop !17

166:                                              ; preds = %111
  br label %167

167:                                              ; preds = %166, %107
  br label %283

168:                                              ; preds = %48
  store double 0.000000e+00, ptr %20, align 8, !tbaa !11
  %169 = load ptr, ptr %8, align 8, !tbaa !5
  %170 = call i32 @lsame_(ptr noundef %169, ptr noundef @.str.1)
  %171 = icmp ne i32 %170, 0
  br i1 %171, label %172, label %224

172:                                              ; preds = %168
  %173 = load ptr, ptr %10, align 8, !tbaa !5
  %174 = load i32, ptr %173, align 4, !tbaa !9
  store i32 %174, ptr %13, align 4, !tbaa !9
  store i32 1, ptr %17, align 4, !tbaa !9
  br label %175

175:                                              ; preds = %220, %172
  %176 = load i32, ptr %17, align 4, !tbaa !9
  %177 = load i32, ptr %13, align 4, !tbaa !9
  %178 = icmp sle i32 %176, %177
  br i1 %178, label %179, label %223

179:                                              ; preds = %175
  %180 = load i32, ptr %18, align 4, !tbaa !9
  %181 = load i32, ptr %17, align 4, !tbaa !9
  %182 = add nsw i32 %180, %181
  %183 = sub nsw i32 %182, 1
  store i32 %183, ptr %14, align 4, !tbaa !9
  %184 = load i32, ptr %18, align 4, !tbaa !9
  store i32 %184, ptr %16, align 4, !tbaa !9
  br label %185

185:                                              ; preds = %213, %179
  %186 = load i32, ptr %16, align 4, !tbaa !9
  %187 = load i32, ptr %14, align 4, !tbaa !9
  %188 = icmp sle i32 %186, %187
  br i1 %188, label %189, label %216

189:                                              ; preds = %185
  %190 = load ptr, ptr %11, align 8, !tbaa !5
  %191 = load i32, ptr %16, align 4, !tbaa !9
  %192 = sext i32 %191 to i64
  %193 = getelementptr inbounds %struct.doublecomplex, ptr %190, i64 %192
  %194 = call { double, double } @Cd(ptr noundef %193)
  %195 = extractvalue { double, double } %194, 0
  %196 = extractvalue { double, double } %194, 1
  %197 = getelementptr inbounds { double, double }, ptr %26, i32 0, i32 0
  %198 = getelementptr inbounds { double, double }, ptr %26, i32 0, i32 1
  store double %195, ptr %197, align 8
  store double %196, ptr %198, align 8
  %199 = getelementptr inbounds { double, double }, ptr %26, i32 0, i32 0
  %200 = load double, ptr %199, align 8
  %201 = getelementptr inbounds { double, double }, ptr %26, i32 0, i32 1
  %202 = load double, ptr %201, align 8
  %203 = call double @cabs(double noundef %200, double noundef %202) #5
  store double %203, ptr %22, align 8, !tbaa !11
  %204 = load double, ptr %20, align 8, !tbaa !11
  %205 = load double, ptr %22, align 8, !tbaa !11
  %206 = fcmp olt double %204, %205
  br i1 %206, label %210, label %207

207:                                              ; preds = %189
  %208 = call i32 @disnan_(ptr noundef %22)
  %209 = icmp ne i32 %208, 0
  br i1 %209, label %210, label %212

210:                                              ; preds = %207, %189
  %211 = load double, ptr %22, align 8, !tbaa !11
  store double %211, ptr %20, align 8, !tbaa !11
  br label %212

212:                                              ; preds = %210, %207
  br label %213

213:                                              ; preds = %212
  %214 = load i32, ptr %16, align 4, !tbaa !9
  %215 = add nsw i32 %214, 1
  store i32 %215, ptr %16, align 4, !tbaa !9
  br label %185, !llvm.loop !18

216:                                              ; preds = %185
  %217 = load i32, ptr %17, align 4, !tbaa !9
  %218 = load i32, ptr %18, align 4, !tbaa !9
  %219 = add nsw i32 %218, %217
  store i32 %219, ptr %18, align 4, !tbaa !9
  br label %220

220:                                              ; preds = %216
  %221 = load i32, ptr %17, align 4, !tbaa !9
  %222 = add nsw i32 %221, 1
  store i32 %222, ptr %17, align 4, !tbaa !9
  br label %175, !llvm.loop !19

223:                                              ; preds = %175
  br label %282

224:                                              ; preds = %168
  %225 = load ptr, ptr %10, align 8, !tbaa !5
  %226 = load i32, ptr %225, align 4, !tbaa !9
  store i32 %226, ptr %13, align 4, !tbaa !9
  store i32 1, ptr %17, align 4, !tbaa !9
  br label %227

227:                                              ; preds = %278, %224
  %228 = load i32, ptr %17, align 4, !tbaa !9
  %229 = load i32, ptr %13, align 4, !tbaa !9
  %230 = icmp sle i32 %228, %229
  br i1 %230, label %231, label %281

231:                                              ; preds = %227
  %232 = load i32, ptr %18, align 4, !tbaa !9
  %233 = load ptr, ptr %10, align 8, !tbaa !5
  %234 = load i32, ptr %233, align 4, !tbaa !9
  %235 = add nsw i32 %232, %234
  %236 = load i32, ptr %17, align 4, !tbaa !9
  %237 = sub nsw i32 %235, %236
  store i32 %237, ptr %14, align 4, !tbaa !9
  %238 = load i32, ptr %18, align 4, !tbaa !9
  store i32 %238, ptr %16, align 4, !tbaa !9
  br label %239

239:                                              ; preds = %267, %231
  %240 = load i32, ptr %16, align 4, !tbaa !9
  %241 = load i32, ptr %14, align 4, !tbaa !9
  %242 = icmp sle i32 %240, %241
  br i1 %242, label %243, label %270

243:                                              ; preds = %239
  %244 = load ptr, ptr %11, align 8, !tbaa !5
  %245 = load i32, ptr %16, align 4, !tbaa !9
  %246 = sext i32 %245 to i64
  %247 = getelementptr inbounds %struct.doublecomplex, ptr %244, i64 %246
  %248 = call { double, double } @Cd(ptr noundef %247)
  %249 = extractvalue { double, double } %248, 0
  %250 = extractvalue { double, double } %248, 1
  %251 = getelementptr inbounds { double, double }, ptr %27, i32 0, i32 0
  %252 = getelementptr inbounds { double, double }, ptr %27, i32 0, i32 1
  store double %249, ptr %251, align 8
  store double %250, ptr %252, align 8
  %253 = getelementptr inbounds { double, double }, ptr %27, i32 0, i32 0
  %254 = load double, ptr %253, align 8
  %255 = getelementptr inbounds { double, double }, ptr %27, i32 0, i32 1
  %256 = load double, ptr %255, align 8
  %257 = call double @cabs(double noundef %254, double noundef %256) #5
  store double %257, ptr %22, align 8, !tbaa !11
  %258 = load double, ptr %20, align 8, !tbaa !11
  %259 = load double, ptr %22, align 8, !tbaa !11
  %260 = fcmp olt double %258, %259
  br i1 %260, label %264, label %261

261:                                              ; preds = %243
  %262 = call i32 @disnan_(ptr noundef %22)
  %263 = icmp ne i32 %262, 0
  br i1 %263, label %264, label %266

264:                                              ; preds = %261, %243
  %265 = load double, ptr %22, align 8, !tbaa !11
  store double %265, ptr %20, align 8, !tbaa !11
  br label %266

266:                                              ; preds = %264, %261
  br label %267

267:                                              ; preds = %266
  %268 = load i32, ptr %16, align 4, !tbaa !9
  %269 = add nsw i32 %268, 1
  store i32 %269, ptr %16, align 4, !tbaa !9
  br label %239, !llvm.loop !20

270:                                              ; preds = %239
  %271 = load i32, ptr %18, align 4, !tbaa !9
  %272 = load ptr, ptr %10, align 8, !tbaa !5
  %273 = load i32, ptr %272, align 4, !tbaa !9
  %274 = add nsw i32 %271, %273
  %275 = load i32, ptr %17, align 4, !tbaa !9
  %276 = sub nsw i32 %274, %275
  %277 = add nsw i32 %276, 1
  store i32 %277, ptr %18, align 4, !tbaa !9
  br label %278

278:                                              ; preds = %270
  %279 = load i32, ptr %17, align 4, !tbaa !9
  %280 = add nsw i32 %279, 1
  store i32 %280, ptr %17, align 4, !tbaa !9
  br label %227, !llvm.loop !21

281:                                              ; preds = %227
  br label %282

282:                                              ; preds = %281, %223
  br label %283

283:                                              ; preds = %282, %167
  br label %943

284:                                              ; preds = %44
  %285 = load ptr, ptr %7, align 8, !tbaa !5
  %286 = call i32 @lsame_(ptr noundef %285, ptr noundef @.str.2)
  %287 = icmp ne i32 %286, 0
  br i1 %287, label %293, label %288

288:                                              ; preds = %284
  %289 = load ptr, ptr %7, align 8, !tbaa !5
  %290 = load i8, ptr %289, align 1, !tbaa !22
  %291 = zext i8 %290 to i32
  %292 = icmp eq i32 %291, 49
  br i1 %292, label %293, label %487

293:                                              ; preds = %288, %284
  store double 0.000000e+00, ptr %20, align 8, !tbaa !11
  store i32 1, ptr %18, align 4, !tbaa !9
  %294 = load ptr, ptr %9, align 8, !tbaa !5
  %295 = call i32 @lsame_(ptr noundef %294, ptr noundef @.str.1)
  store i32 %295, ptr %19, align 4, !tbaa !9
  %296 = load ptr, ptr %8, align 8, !tbaa !5
  %297 = call i32 @lsame_(ptr noundef %296, ptr noundef @.str.1)
  %298 = icmp ne i32 %297, 0
  br i1 %298, label %299, label %388

299:                                              ; preds = %293
  %300 = load ptr, ptr %10, align 8, !tbaa !5
  %301 = load i32, ptr %300, align 4, !tbaa !9
  store i32 %301, ptr %13, align 4, !tbaa !9
  store i32 1, ptr %17, align 4, !tbaa !9
  br label %302

302:                                              ; preds = %384, %299
  %303 = load i32, ptr %17, align 4, !tbaa !9
  %304 = load i32, ptr %13, align 4, !tbaa !9
  %305 = icmp sle i32 %303, %304
  br i1 %305, label %306, label %387

306:                                              ; preds = %302
  %307 = load i32, ptr %19, align 4, !tbaa !9
  %308 = icmp ne i32 %307, 0
  br i1 %308, label %309, label %340

309:                                              ; preds = %306
  store double 1.000000e+00, ptr %22, align 8, !tbaa !11
  %310 = load i32, ptr %18, align 4, !tbaa !9
  %311 = load i32, ptr %17, align 4, !tbaa !9
  %312 = add nsw i32 %310, %311
  %313 = sub nsw i32 %312, 2
  store i32 %313, ptr %14, align 4, !tbaa !9
  %314 = load i32, ptr %18, align 4, !tbaa !9
  store i32 %314, ptr %16, align 4, !tbaa !9
  br label %315

315:                                              ; preds = %336, %309
  %316 = load i32, ptr %16, align 4, !tbaa !9
  %317 = load i32, ptr %14, align 4, !tbaa !9
  %318 = icmp sle i32 %316, %317
  br i1 %318, label %319, label %339

319:                                              ; preds = %315
  %320 = load ptr, ptr %11, align 8, !tbaa !5
  %321 = load i32, ptr %16, align 4, !tbaa !9
  %322 = sext i32 %321 to i64
  %323 = getelementptr inbounds %struct.doublecomplex, ptr %320, i64 %322
  %324 = call { double, double } @Cd(ptr noundef %323)
  %325 = extractvalue { double, double } %324, 0
  %326 = extractvalue { double, double } %324, 1
  %327 = getelementptr inbounds { double, double }, ptr %28, i32 0, i32 0
  %328 = getelementptr inbounds { double, double }, ptr %28, i32 0, i32 1
  store double %325, ptr %327, align 8
  store double %326, ptr %328, align 8
  %329 = getelementptr inbounds { double, double }, ptr %28, i32 0, i32 0
  %330 = load double, ptr %329, align 8
  %331 = getelementptr inbounds { double, double }, ptr %28, i32 0, i32 1
  %332 = load double, ptr %331, align 8
  %333 = call double @cabs(double noundef %330, double noundef %332) #5
  %334 = load double, ptr %22, align 8, !tbaa !11
  %335 = fadd double %334, %333
  store double %335, ptr %22, align 8, !tbaa !11
  br label %336

336:                                              ; preds = %319
  %337 = load i32, ptr %16, align 4, !tbaa !9
  %338 = add nsw i32 %337, 1
  store i32 %338, ptr %16, align 4, !tbaa !9
  br label %315, !llvm.loop !23

339:                                              ; preds = %315
  br label %371

340:                                              ; preds = %306
  store double 0.000000e+00, ptr %22, align 8, !tbaa !11
  %341 = load i32, ptr %18, align 4, !tbaa !9
  %342 = load i32, ptr %17, align 4, !tbaa !9
  %343 = add nsw i32 %341, %342
  %344 = sub nsw i32 %343, 1
  store i32 %344, ptr %14, align 4, !tbaa !9
  %345 = load i32, ptr %18, align 4, !tbaa !9
  store i32 %345, ptr %16, align 4, !tbaa !9
  br label %346

346:                                              ; preds = %367, %340
  %347 = load i32, ptr %16, align 4, !tbaa !9
  %348 = load i32, ptr %14, align 4, !tbaa !9
  %349 = icmp sle i32 %347, %348
  br i1 %349, label %350, label %370

350:                                              ; preds = %346
  %351 = load ptr, ptr %11, align 8, !tbaa !5
  %352 = load i32, ptr %16, align 4, !tbaa !9
  %353 = sext i32 %352 to i64
  %354 = getelementptr inbounds %struct.doublecomplex, ptr %351, i64 %353
  %355 = call { double, double } @Cd(ptr noundef %354)
  %356 = extractvalue { double, double } %355, 0
  %357 = extractvalue { double, double } %355, 1
  %358 = getelementptr inbounds { double, double }, ptr %29, i32 0, i32 0
  %359 = getelementptr inbounds { double, double }, ptr %29, i32 0, i32 1
  store double %356, ptr %358, align 8
  store double %357, ptr %359, align 8
  %360 = getelementptr inbounds { double, double }, ptr %29, i32 0, i32 0
  %361 = load double, ptr %360, align 8
  %362 = getelementptr inbounds { double, double }, ptr %29, i32 0, i32 1
  %363 = load double, ptr %362, align 8
  %364 = call double @cabs(double noundef %361, double noundef %363) #5
  %365 = load double, ptr %22, align 8, !tbaa !11
  %366 = fadd double %365, %364
  store double %366, ptr %22, align 8, !tbaa !11
  br label %367

367:                                              ; preds = %350
  %368 = load i32, ptr %16, align 4, !tbaa !9
  %369 = add nsw i32 %368, 1
  store i32 %369, ptr %16, align 4, !tbaa !9
  br label %346, !llvm.loop !24

370:                                              ; preds = %346
  br label %371

371:                                              ; preds = %370, %339
  %372 = load i32, ptr %17, align 4, !tbaa !9
  %373 = load i32, ptr %18, align 4, !tbaa !9
  %374 = add nsw i32 %373, %372
  store i32 %374, ptr %18, align 4, !tbaa !9
  %375 = load double, ptr %20, align 8, !tbaa !11
  %376 = load double, ptr %22, align 8, !tbaa !11
  %377 = fcmp olt double %375, %376
  br i1 %377, label %381, label %378

378:                                              ; preds = %371
  %379 = call i32 @disnan_(ptr noundef %22)
  %380 = icmp ne i32 %379, 0
  br i1 %380, label %381, label %383

381:                                              ; preds = %378, %371
  %382 = load double, ptr %22, align 8, !tbaa !11
  store double %382, ptr %20, align 8, !tbaa !11
  br label %383

383:                                              ; preds = %381, %378
  br label %384

384:                                              ; preds = %383
  %385 = load i32, ptr %17, align 4, !tbaa !9
  %386 = add nsw i32 %385, 1
  store i32 %386, ptr %17, align 4, !tbaa !9
  br label %302, !llvm.loop !25

387:                                              ; preds = %302
  br label %486

388:                                              ; preds = %293
  %389 = load ptr, ptr %10, align 8, !tbaa !5
  %390 = load i32, ptr %389, align 4, !tbaa !9
  store i32 %390, ptr %13, align 4, !tbaa !9
  store i32 1, ptr %17, align 4, !tbaa !9
  br label %391

391:                                              ; preds = %482, %388
  %392 = load i32, ptr %17, align 4, !tbaa !9
  %393 = load i32, ptr %13, align 4, !tbaa !9
  %394 = icmp sle i32 %392, %393
  br i1 %394, label %395, label %485

395:                                              ; preds = %391
  %396 = load i32, ptr %19, align 4, !tbaa !9
  %397 = icmp ne i32 %396, 0
  br i1 %397, label %398, label %432

398:                                              ; preds = %395
  store double 1.000000e+00, ptr %22, align 8, !tbaa !11
  %399 = load i32, ptr %18, align 4, !tbaa !9
  %400 = load ptr, ptr %10, align 8, !tbaa !5
  %401 = load i32, ptr %400, align 4, !tbaa !9
  %402 = add nsw i32 %399, %401
  %403 = load i32, ptr %17, align 4, !tbaa !9
  %404 = sub nsw i32 %402, %403
  store i32 %404, ptr %14, align 4, !tbaa !9
  %405 = load i32, ptr %18, align 4, !tbaa !9
  %406 = add nsw i32 %405, 1
  store i32 %406, ptr %16, align 4, !tbaa !9
  br label %407

407:                                              ; preds = %428, %398
  %408 = load i32, ptr %16, align 4, !tbaa !9
  %409 = load i32, ptr %14, align 4, !tbaa !9
  %410 = icmp sle i32 %408, %409
  br i1 %410, label %411, label %431

411:                                              ; preds = %407
  %412 = load ptr, ptr %11, align 8, !tbaa !5
  %413 = load i32, ptr %16, align 4, !tbaa !9
  %414 = sext i32 %413 to i64
  %415 = getelementptr inbounds %struct.doublecomplex, ptr %412, i64 %414
  %416 = call { double, double } @Cd(ptr noundef %415)
  %417 = extractvalue { double, double } %416, 0
  %418 = extractvalue { double, double } %416, 1
  %419 = getelementptr inbounds { double, double }, ptr %30, i32 0, i32 0
  %420 = getelementptr inbounds { double, double }, ptr %30, i32 0, i32 1
  store double %417, ptr %419, align 8
  store double %418, ptr %420, align 8
  %421 = getelementptr inbounds { double, double }, ptr %30, i32 0, i32 0
  %422 = load double, ptr %421, align 8
  %423 = getelementptr inbounds { double, double }, ptr %30, i32 0, i32 1
  %424 = load double, ptr %423, align 8
  %425 = call double @cabs(double noundef %422, double noundef %424) #5
  %426 = load double, ptr %22, align 8, !tbaa !11
  %427 = fadd double %426, %425
  store double %427, ptr %22, align 8, !tbaa !11
  br label %428

428:                                              ; preds = %411
  %429 = load i32, ptr %16, align 4, !tbaa !9
  %430 = add nsw i32 %429, 1
  store i32 %430, ptr %16, align 4, !tbaa !9
  br label %407, !llvm.loop !26

431:                                              ; preds = %407
  br label %465

432:                                              ; preds = %395
  store double 0.000000e+00, ptr %22, align 8, !tbaa !11
  %433 = load i32, ptr %18, align 4, !tbaa !9
  %434 = load ptr, ptr %10, align 8, !tbaa !5
  %435 = load i32, ptr %434, align 4, !tbaa !9
  %436 = add nsw i32 %433, %435
  %437 = load i32, ptr %17, align 4, !tbaa !9
  %438 = sub nsw i32 %436, %437
  store i32 %438, ptr %14, align 4, !tbaa !9
  %439 = load i32, ptr %18, align 4, !tbaa !9
  store i32 %439, ptr %16, align 4, !tbaa !9
  br label %440

440:                                              ; preds = %461, %432
  %441 = load i32, ptr %16, align 4, !tbaa !9
  %442 = load i32, ptr %14, align 4, !tbaa !9
  %443 = icmp sle i32 %441, %442
  br i1 %443, label %444, label %464

444:                                              ; preds = %440
  %445 = load ptr, ptr %11, align 8, !tbaa !5
  %446 = load i32, ptr %16, align 4, !tbaa !9
  %447 = sext i32 %446 to i64
  %448 = getelementptr inbounds %struct.doublecomplex, ptr %445, i64 %447
  %449 = call { double, double } @Cd(ptr noundef %448)
  %450 = extractvalue { double, double } %449, 0
  %451 = extractvalue { double, double } %449, 1
  %452 = getelementptr inbounds { double, double }, ptr %31, i32 0, i32 0
  %453 = getelementptr inbounds { double, double }, ptr %31, i32 0, i32 1
  store double %450, ptr %452, align 8
  store double %451, ptr %453, align 8
  %454 = getelementptr inbounds { double, double }, ptr %31, i32 0, i32 0
  %455 = load double, ptr %454, align 8
  %456 = getelementptr inbounds { double, double }, ptr %31, i32 0, i32 1
  %457 = load double, ptr %456, align 8
  %458 = call double @cabs(double noundef %455, double noundef %457) #5
  %459 = load double, ptr %22, align 8, !tbaa !11
  %460 = fadd double %459, %458
  store double %460, ptr %22, align 8, !tbaa !11
  br label %461

461:                                              ; preds = %444
  %462 = load i32, ptr %16, align 4, !tbaa !9
  %463 = add nsw i32 %462, 1
  store i32 %463, ptr %16, align 4, !tbaa !9
  br label %440, !llvm.loop !27

464:                                              ; preds = %440
  br label %465

465:                                              ; preds = %464, %431
  %466 = load i32, ptr %18, align 4, !tbaa !9
  %467 = load ptr, ptr %10, align 8, !tbaa !5
  %468 = load i32, ptr %467, align 4, !tbaa !9
  %469 = add nsw i32 %466, %468
  %470 = load i32, ptr %17, align 4, !tbaa !9
  %471 = sub nsw i32 %469, %470
  %472 = add nsw i32 %471, 1
  store i32 %472, ptr %18, align 4, !tbaa !9
  %473 = load double, ptr %20, align 8, !tbaa !11
  %474 = load double, ptr %22, align 8, !tbaa !11
  %475 = fcmp olt double %473, %474
  br i1 %475, label %479, label %476

476:                                              ; preds = %465
  %477 = call i32 @disnan_(ptr noundef %22)
  %478 = icmp ne i32 %477, 0
  br i1 %478, label %479, label %481

479:                                              ; preds = %476, %465
  %480 = load double, ptr %22, align 8, !tbaa !11
  store double %480, ptr %20, align 8, !tbaa !11
  br label %481

481:                                              ; preds = %479, %476
  br label %482

482:                                              ; preds = %481
  %483 = load i32, ptr %17, align 4, !tbaa !9
  %484 = add nsw i32 %483, 1
  store i32 %484, ptr %17, align 4, !tbaa !9
  br label %391, !llvm.loop !28

485:                                              ; preds = %391
  br label %486

486:                                              ; preds = %485, %387
  br label %942

487:                                              ; preds = %288
  %488 = load ptr, ptr %7, align 8, !tbaa !5
  %489 = call i32 @lsame_(ptr noundef %488, ptr noundef @.str.3)
  %490 = icmp ne i32 %489, 0
  br i1 %490, label %491, label %777

491:                                              ; preds = %487
  store i32 1, ptr %18, align 4, !tbaa !9
  %492 = load ptr, ptr %8, align 8, !tbaa !5
  %493 = call i32 @lsame_(ptr noundef %492, ptr noundef @.str.1)
  %494 = icmp ne i32 %493, 0
  br i1 %494, label %495, label %621

495:                                              ; preds = %491
  %496 = load ptr, ptr %9, align 8, !tbaa !5
  %497 = call i32 @lsame_(ptr noundef %496, ptr noundef @.str.1)
  %498 = icmp ne i32 %497, 0
  br i1 %498, label %499, label %561

499:                                              ; preds = %495
  %500 = load ptr, ptr %10, align 8, !tbaa !5
  %501 = load i32, ptr %500, align 4, !tbaa !9
  store i32 %501, ptr %13, align 4, !tbaa !9
  store i32 1, ptr %16, align 4, !tbaa !9
  br label %502

502:                                              ; preds = %511, %499
  %503 = load i32, ptr %16, align 4, !tbaa !9
  %504 = load i32, ptr %13, align 4, !tbaa !9
  %505 = icmp sle i32 %503, %504
  br i1 %505, label %506, label %514

506:                                              ; preds = %502
  %507 = load ptr, ptr %12, align 8, !tbaa !5
  %508 = load i32, ptr %16, align 4, !tbaa !9
  %509 = sext i32 %508 to i64
  %510 = getelementptr inbounds double, ptr %507, i64 %509
  store double 1.000000e+00, ptr %510, align 8, !tbaa !11
  br label %511

511:                                              ; preds = %506
  %512 = load i32, ptr %16, align 4, !tbaa !9
  %513 = add nsw i32 %512, 1
  store i32 %513, ptr %16, align 4, !tbaa !9
  br label %502, !llvm.loop !29

514:                                              ; preds = %502
  %515 = load ptr, ptr %10, align 8, !tbaa !5
  %516 = load i32, ptr %515, align 4, !tbaa !9
  store i32 %516, ptr %13, align 4, !tbaa !9
  store i32 1, ptr %17, align 4, !tbaa !9
  br label %517

517:                                              ; preds = %557, %514
  %518 = load i32, ptr %17, align 4, !tbaa !9
  %519 = load i32, ptr %13, align 4, !tbaa !9
  %520 = icmp sle i32 %518, %519
  br i1 %520, label %521, label %560

521:                                              ; preds = %517
  %522 = load i32, ptr %17, align 4, !tbaa !9
  %523 = sub nsw i32 %522, 1
  store i32 %523, ptr %14, align 4, !tbaa !9
  store i32 1, ptr %16, align 4, !tbaa !9
  br label %524

524:                                              ; preds = %551, %521
  %525 = load i32, ptr %16, align 4, !tbaa !9
  %526 = load i32, ptr %14, align 4, !tbaa !9
  %527 = icmp sle i32 %525, %526
  br i1 %527, label %528, label %554

528:                                              ; preds = %524
  %529 = load ptr, ptr %11, align 8, !tbaa !5
  %530 = load i32, ptr %18, align 4, !tbaa !9
  %531 = sext i32 %530 to i64
  %532 = getelementptr inbounds %struct.doublecomplex, ptr %529, i64 %531
  %533 = call { double, double } @Cd(ptr noundef %532)
  %534 = extractvalue { double, double } %533, 0
  %535 = extractvalue { double, double } %533, 1
  %536 = getelementptr inbounds { double, double }, ptr %32, i32 0, i32 0
  %537 = getelementptr inbounds { double, double }, ptr %32, i32 0, i32 1
  store double %534, ptr %536, align 8
  store double %535, ptr %537, align 8
  %538 = getelementptr inbounds { double, double }, ptr %32, i32 0, i32 0
  %539 = load double, ptr %538, align 8
  %540 = getelementptr inbounds { double, double }, ptr %32, i32 0, i32 1
  %541 = load double, ptr %540, align 8
  %542 = call double @cabs(double noundef %539, double noundef %541) #5
  %543 = load ptr, ptr %12, align 8, !tbaa !5
  %544 = load i32, ptr %16, align 4, !tbaa !9
  %545 = sext i32 %544 to i64
  %546 = getelementptr inbounds double, ptr %543, i64 %545
  %547 = load double, ptr %546, align 8, !tbaa !11
  %548 = fadd double %547, %542
  store double %548, ptr %546, align 8, !tbaa !11
  %549 = load i32, ptr %18, align 4, !tbaa !9
  %550 = add nsw i32 %549, 1
  store i32 %550, ptr %18, align 4, !tbaa !9
  br label %551

551:                                              ; preds = %528
  %552 = load i32, ptr %16, align 4, !tbaa !9
  %553 = add nsw i32 %552, 1
  store i32 %553, ptr %16, align 4, !tbaa !9
  br label %524, !llvm.loop !30

554:                                              ; preds = %524
  %555 = load i32, ptr %18, align 4, !tbaa !9
  %556 = add nsw i32 %555, 1
  store i32 %556, ptr %18, align 4, !tbaa !9
  br label %557

557:                                              ; preds = %554
  %558 = load i32, ptr %17, align 4, !tbaa !9
  %559 = add nsw i32 %558, 1
  store i32 %559, ptr %17, align 4, !tbaa !9
  br label %517, !llvm.loop !31

560:                                              ; preds = %517
  br label %620

561:                                              ; preds = %495
  %562 = load ptr, ptr %10, align 8, !tbaa !5
  %563 = load i32, ptr %562, align 4, !tbaa !9
  store i32 %563, ptr %13, align 4, !tbaa !9
  store i32 1, ptr %16, align 4, !tbaa !9
  br label %564

564:                                              ; preds = %573, %561
  %565 = load i32, ptr %16, align 4, !tbaa !9
  %566 = load i32, ptr %13, align 4, !tbaa !9
  %567 = icmp sle i32 %565, %566
  br i1 %567, label %568, label %576

568:                                              ; preds = %564
  %569 = load ptr, ptr %12, align 8, !tbaa !5
  %570 = load i32, ptr %16, align 4, !tbaa !9
  %571 = sext i32 %570 to i64
  %572 = getelementptr inbounds double, ptr %569, i64 %571
  store double 0.000000e+00, ptr %572, align 8, !tbaa !11
  br label %573

573:                                              ; preds = %568
  %574 = load i32, ptr %16, align 4, !tbaa !9
  %575 = add nsw i32 %574, 1
  store i32 %575, ptr %16, align 4, !tbaa !9
  br label %564, !llvm.loop !32

576:                                              ; preds = %564
  %577 = load ptr, ptr %10, align 8, !tbaa !5
  %578 = load i32, ptr %577, align 4, !tbaa !9
  store i32 %578, ptr %13, align 4, !tbaa !9
  store i32 1, ptr %17, align 4, !tbaa !9
  br label %579

579:                                              ; preds = %616, %576
  %580 = load i32, ptr %17, align 4, !tbaa !9
  %581 = load i32, ptr %13, align 4, !tbaa !9
  %582 = icmp sle i32 %580, %581
  br i1 %582, label %583, label %619

583:                                              ; preds = %579
  %584 = load i32, ptr %17, align 4, !tbaa !9
  store i32 %584, ptr %14, align 4, !tbaa !9
  store i32 1, ptr %16, align 4, !tbaa !9
  br label %585

585:                                              ; preds = %612, %583
  %586 = load i32, ptr %16, align 4, !tbaa !9
  %587 = load i32, ptr %14, align 4, !tbaa !9
  %588 = icmp sle i32 %586, %587
  br i1 %588, label %589, label %615

589:                                              ; preds = %585
  %590 = load ptr, ptr %11, align 8, !tbaa !5
  %591 = load i32, ptr %18, align 4, !tbaa !9
  %592 = sext i32 %591 to i64
  %593 = getelementptr inbounds %struct.doublecomplex, ptr %590, i64 %592
  %594 = call { double, double } @Cd(ptr noundef %593)
  %595 = extractvalue { double, double } %594, 0
  %596 = extractvalue { double, double } %594, 1
  %597 = getelementptr inbounds { double, double }, ptr %33, i32 0, i32 0
  %598 = getelementptr inbounds { double, double }, ptr %33, i32 0, i32 1
  store double %595, ptr %597, align 8
  store double %596, ptr %598, align 8
  %599 = getelementptr inbounds { double, double }, ptr %33, i32 0, i32 0
  %600 = load double, ptr %599, align 8
  %601 = getelementptr inbounds { double, double }, ptr %33, i32 0, i32 1
  %602 = load double, ptr %601, align 8
  %603 = call double @cabs(double noundef %600, double noundef %602) #5
  %604 = load ptr, ptr %12, align 8, !tbaa !5
  %605 = load i32, ptr %16, align 4, !tbaa !9
  %606 = sext i32 %605 to i64
  %607 = getelementptr inbounds double, ptr %604, i64 %606
  %608 = load double, ptr %607, align 8, !tbaa !11
  %609 = fadd double %608, %603
  store double %609, ptr %607, align 8, !tbaa !11
  %610 = load i32, ptr %18, align 4, !tbaa !9
  %611 = add nsw i32 %610, 1
  store i32 %611, ptr %18, align 4, !tbaa !9
  br label %612

612:                                              ; preds = %589
  %613 = load i32, ptr %16, align 4, !tbaa !9
  %614 = add nsw i32 %613, 1
  store i32 %614, ptr %16, align 4, !tbaa !9
  br label %585, !llvm.loop !33

615:                                              ; preds = %585
  br label %616

616:                                              ; preds = %615
  %617 = load i32, ptr %17, align 4, !tbaa !9
  %618 = add nsw i32 %617, 1
  store i32 %618, ptr %17, align 4, !tbaa !9
  br label %579, !llvm.loop !34

619:                                              ; preds = %579
  br label %620

620:                                              ; preds = %619, %560
  br label %751

621:                                              ; preds = %491
  %622 = load ptr, ptr %9, align 8, !tbaa !5
  %623 = call i32 @lsame_(ptr noundef %622, ptr noundef @.str.1)
  %624 = icmp ne i32 %623, 0
  br i1 %624, label %625, label %689

625:                                              ; preds = %621
  %626 = load ptr, ptr %10, align 8, !tbaa !5
  %627 = load i32, ptr %626, align 4, !tbaa !9
  store i32 %627, ptr %13, align 4, !tbaa !9
  store i32 1, ptr %16, align 4, !tbaa !9
  br label %628

628:                                              ; preds = %637, %625
  %629 = load i32, ptr %16, align 4, !tbaa !9
  %630 = load i32, ptr %13, align 4, !tbaa !9
  %631 = icmp sle i32 %629, %630
  br i1 %631, label %632, label %640

632:                                              ; preds = %628
  %633 = load ptr, ptr %12, align 8, !tbaa !5
  %634 = load i32, ptr %16, align 4, !tbaa !9
  %635 = sext i32 %634 to i64
  %636 = getelementptr inbounds double, ptr %633, i64 %635
  store double 1.000000e+00, ptr %636, align 8, !tbaa !11
  br label %637

637:                                              ; preds = %632
  %638 = load i32, ptr %16, align 4, !tbaa !9
  %639 = add nsw i32 %638, 1
  store i32 %639, ptr %16, align 4, !tbaa !9
  br label %628, !llvm.loop !35

640:                                              ; preds = %628
  %641 = load ptr, ptr %10, align 8, !tbaa !5
  %642 = load i32, ptr %641, align 4, !tbaa !9
  store i32 %642, ptr %13, align 4, !tbaa !9
  store i32 1, ptr %17, align 4, !tbaa !9
  br label %643

643:                                              ; preds = %685, %640
  %644 = load i32, ptr %17, align 4, !tbaa !9
  %645 = load i32, ptr %13, align 4, !tbaa !9
  %646 = icmp sle i32 %644, %645
  br i1 %646, label %647, label %688

647:                                              ; preds = %643
  %648 = load i32, ptr %18, align 4, !tbaa !9
  %649 = add nsw i32 %648, 1
  store i32 %649, ptr %18, align 4, !tbaa !9
  %650 = load ptr, ptr %10, align 8, !tbaa !5
  %651 = load i32, ptr %650, align 4, !tbaa !9
  store i32 %651, ptr %14, align 4, !tbaa !9
  %652 = load i32, ptr %17, align 4, !tbaa !9
  %653 = add nsw i32 %652, 1
  store i32 %653, ptr %16, align 4, !tbaa !9
  br label %654

654:                                              ; preds = %681, %647
  %655 = load i32, ptr %16, align 4, !tbaa !9
  %656 = load i32, ptr %14, align 4, !tbaa !9
  %657 = icmp sle i32 %655, %656
  br i1 %657, label %658, label %684

658:                                              ; preds = %654
  %659 = load ptr, ptr %11, align 8, !tbaa !5
  %660 = load i32, ptr %18, align 4, !tbaa !9
  %661 = sext i32 %660 to i64
  %662 = getelementptr inbounds %struct.doublecomplex, ptr %659, i64 %661
  %663 = call { double, double } @Cd(ptr noundef %662)
  %664 = extractvalue { double, double } %663, 0
  %665 = extractvalue { double, double } %663, 1
  %666 = getelementptr inbounds { double, double }, ptr %34, i32 0, i32 0
  %667 = getelementptr inbounds { double, double }, ptr %34, i32 0, i32 1
  store double %664, ptr %666, align 8
  store double %665, ptr %667, align 8
  %668 = getelementptr inbounds { double, double }, ptr %34, i32 0, i32 0
  %669 = load double, ptr %668, align 8
  %670 = getelementptr inbounds { double, double }, ptr %34, i32 0, i32 1
  %671 = load double, ptr %670, align 8
  %672 = call double @cabs(double noundef %669, double noundef %671) #5
  %673 = load ptr, ptr %12, align 8, !tbaa !5
  %674 = load i32, ptr %16, align 4, !tbaa !9
  %675 = sext i32 %674 to i64
  %676 = getelementptr inbounds double, ptr %673, i64 %675
  %677 = load double, ptr %676, align 8, !tbaa !11
  %678 = fadd double %677, %672
  store double %678, ptr %676, align 8, !tbaa !11
  %679 = load i32, ptr %18, align 4, !tbaa !9
  %680 = add nsw i32 %679, 1
  store i32 %680, ptr %18, align 4, !tbaa !9
  br label %681

681:                                              ; preds = %658
  %682 = load i32, ptr %16, align 4, !tbaa !9
  %683 = add nsw i32 %682, 1
  store i32 %683, ptr %16, align 4, !tbaa !9
  br label %654, !llvm.loop !36

684:                                              ; preds = %654
  br label %685

685:                                              ; preds = %684
  %686 = load i32, ptr %17, align 4, !tbaa !9
  %687 = add nsw i32 %686, 1
  store i32 %687, ptr %17, align 4, !tbaa !9
  br label %643, !llvm.loop !37

688:                                              ; preds = %643
  br label %750

689:                                              ; preds = %621
  %690 = load ptr, ptr %10, align 8, !tbaa !5
  %691 = load i32, ptr %690, align 4, !tbaa !9
  store i32 %691, ptr %13, align 4, !tbaa !9
  store i32 1, ptr %16, align 4, !tbaa !9
  br label %692

692:                                              ; preds = %701, %689
  %693 = load i32, ptr %16, align 4, !tbaa !9
  %694 = load i32, ptr %13, align 4, !tbaa !9
  %695 = icmp sle i32 %693, %694
  br i1 %695, label %696, label %704

696:                                              ; preds = %692
  %697 = load ptr, ptr %12, align 8, !tbaa !5
  %698 = load i32, ptr %16, align 4, !tbaa !9
  %699 = sext i32 %698 to i64
  %700 = getelementptr inbounds double, ptr %697, i64 %699
  store double 0.000000e+00, ptr %700, align 8, !tbaa !11
  br label %701

701:                                              ; preds = %696
  %702 = load i32, ptr %16, align 4, !tbaa !9
  %703 = add nsw i32 %702, 1
  store i32 %703, ptr %16, align 4, !tbaa !9
  br label %692, !llvm.loop !38

704:                                              ; preds = %692
  %705 = load ptr, ptr %10, align 8, !tbaa !5
  %706 = load i32, ptr %705, align 4, !tbaa !9
  store i32 %706, ptr %13, align 4, !tbaa !9
  store i32 1, ptr %17, align 4, !tbaa !9
  br label %707

707:                                              ; preds = %746, %704
  %708 = load i32, ptr %17, align 4, !tbaa !9
  %709 = load i32, ptr %13, align 4, !tbaa !9
  %710 = icmp sle i32 %708, %709
  br i1 %710, label %711, label %749

711:                                              ; preds = %707
  %712 = load ptr, ptr %10, align 8, !tbaa !5
  %713 = load i32, ptr %712, align 4, !tbaa !9
  store i32 %713, ptr %14, align 4, !tbaa !9
  %714 = load i32, ptr %17, align 4, !tbaa !9
  store i32 %714, ptr %16, align 4, !tbaa !9
  br label %715

715:                                              ; preds = %742, %711
  %716 = load i32, ptr %16, align 4, !tbaa !9
  %717 = load i32, ptr %14, align 4, !tbaa !9
  %718 = icmp sle i32 %716, %717
  br i1 %718, label %719, label %745

719:                                              ; preds = %715
  %720 = load ptr, ptr %11, align 8, !tbaa !5
  %721 = load i32, ptr %18, align 4, !tbaa !9
  %722 = sext i32 %721 to i64
  %723 = getelementptr inbounds %struct.doublecomplex, ptr %720, i64 %722
  %724 = call { double, double } @Cd(ptr noundef %723)
  %725 = extractvalue { double, double } %724, 0
  %726 = extractvalue { double, double } %724, 1
  %727 = getelementptr inbounds { double, double }, ptr %35, i32 0, i32 0
  %728 = getelementptr inbounds { double, double }, ptr %35, i32 0, i32 1
  store double %725, ptr %727, align 8
  store double %726, ptr %728, align 8
  %729 = getelementptr inbounds { double, double }, ptr %35, i32 0, i32 0
  %730 = load double, ptr %729, align 8
  %731 = getelementptr inbounds { double, double }, ptr %35, i32 0, i32 1
  %732 = load double, ptr %731, align 8
  %733 = call double @cabs(double noundef %730, double noundef %732) #5
  %734 = load ptr, ptr %12, align 8, !tbaa !5
  %735 = load i32, ptr %16, align 4, !tbaa !9
  %736 = sext i32 %735 to i64
  %737 = getelementptr inbounds double, ptr %734, i64 %736
  %738 = load double, ptr %737, align 8, !tbaa !11
  %739 = fadd double %738, %733
  store double %739, ptr %737, align 8, !tbaa !11
  %740 = load i32, ptr %18, align 4, !tbaa !9
  %741 = add nsw i32 %740, 1
  store i32 %741, ptr %18, align 4, !tbaa !9
  br label %742

742:                                              ; preds = %719
  %743 = load i32, ptr %16, align 4, !tbaa !9
  %744 = add nsw i32 %743, 1
  store i32 %744, ptr %16, align 4, !tbaa !9
  br label %715, !llvm.loop !39

745:                                              ; preds = %715
  br label %746

746:                                              ; preds = %745
  %747 = load i32, ptr %17, align 4, !tbaa !9
  %748 = add nsw i32 %747, 1
  store i32 %748, ptr %17, align 4, !tbaa !9
  br label %707, !llvm.loop !40

749:                                              ; preds = %707
  br label %750

750:                                              ; preds = %749, %688
  br label %751

751:                                              ; preds = %750, %620
  store double 0.000000e+00, ptr %20, align 8, !tbaa !11
  %752 = load ptr, ptr %10, align 8, !tbaa !5
  %753 = load i32, ptr %752, align 4, !tbaa !9
  store i32 %753, ptr %13, align 4, !tbaa !9
  store i32 1, ptr %16, align 4, !tbaa !9
  br label %754

754:                                              ; preds = %773, %751
  %755 = load i32, ptr %16, align 4, !tbaa !9
  %756 = load i32, ptr %13, align 4, !tbaa !9
  %757 = icmp sle i32 %755, %756
  br i1 %757, label %758, label %776

758:                                              ; preds = %754
  %759 = load ptr, ptr %12, align 8, !tbaa !5
  %760 = load i32, ptr %16, align 4, !tbaa !9
  %761 = sext i32 %760 to i64
  %762 = getelementptr inbounds double, ptr %759, i64 %761
  %763 = load double, ptr %762, align 8, !tbaa !11
  store double %763, ptr %22, align 8, !tbaa !11
  %764 = load double, ptr %20, align 8, !tbaa !11
  %765 = load double, ptr %22, align 8, !tbaa !11
  %766 = fcmp olt double %764, %765
  br i1 %766, label %770, label %767

767:                                              ; preds = %758
  %768 = call i32 @disnan_(ptr noundef %22)
  %769 = icmp ne i32 %768, 0
  br i1 %769, label %770, label %772

770:                                              ; preds = %767, %758
  %771 = load double, ptr %22, align 8, !tbaa !11
  store double %771, ptr %20, align 8, !tbaa !11
  br label %772

772:                                              ; preds = %770, %767
  br label %773

773:                                              ; preds = %772
  %774 = load i32, ptr %16, align 4, !tbaa !9
  %775 = add nsw i32 %774, 1
  store i32 %775, ptr %16, align 4, !tbaa !9
  br label %754, !llvm.loop !41

776:                                              ; preds = %754
  br label %941

777:                                              ; preds = %487
  %778 = load ptr, ptr %7, align 8, !tbaa !5
  %779 = call i32 @lsame_(ptr noundef %778, ptr noundef @.str.4)
  %780 = icmp ne i32 %779, 0
  br i1 %780, label %785, label %781

781:                                              ; preds = %777
  %782 = load ptr, ptr %7, align 8, !tbaa !5
  %783 = call i32 @lsame_(ptr noundef %782, ptr noundef @.str.5)
  %784 = icmp ne i32 %783, 0
  br i1 %784, label %785, label %940

785:                                              ; preds = %781, %777
  %786 = load ptr, ptr %8, align 8, !tbaa !5
  %787 = call i32 @lsame_(ptr noundef %786, ptr noundef @.str.1)
  %788 = icmp ne i32 %787, 0
  br i1 %788, label %789, label %853

789:                                              ; preds = %785
  %790 = load ptr, ptr %9, align 8, !tbaa !5
  %791 = call i32 @lsame_(ptr noundef %790, ptr noundef @.str.1)
  %792 = icmp ne i32 %791, 0
  br i1 %792, label %793, label %825

793:                                              ; preds = %789
  %794 = getelementptr inbounds [2 x double], ptr %23, i64 0, i64 0
  store double 1.000000e+00, ptr %794, align 16, !tbaa !11
  %795 = load ptr, ptr %10, align 8, !tbaa !5
  %796 = load i32, ptr %795, align 4, !tbaa !9
  %797 = sitofp i32 %796 to double
  %798 = getelementptr inbounds [2 x double], ptr %23, i64 0, i64 1
  store double %797, ptr %798, align 8, !tbaa !11
  store i32 2, ptr %18, align 4, !tbaa !9
  %799 = load ptr, ptr %10, align 8, !tbaa !5
  %800 = load i32, ptr %799, align 4, !tbaa !9
  store i32 %800, ptr %13, align 4, !tbaa !9
  store i32 2, ptr %17, align 4, !tbaa !9
  br label %801

801:                                              ; preds = %821, %793
  %802 = load i32, ptr %17, align 4, !tbaa !9
  %803 = load i32, ptr %13, align 4, !tbaa !9
  %804 = icmp sle i32 %802, %803
  br i1 %804, label %805, label %824

805:                                              ; preds = %801
  %806 = getelementptr inbounds [2 x double], ptr %21, i64 0, i64 0
  store double 0.000000e+00, ptr %806, align 16, !tbaa !11
  %807 = getelementptr inbounds [2 x double], ptr %21, i64 0, i64 1
  store double 1.000000e+00, ptr %807, align 8, !tbaa !11
  %808 = load i32, ptr %17, align 4, !tbaa !9
  %809 = sub nsw i32 %808, 1
  store i32 %809, ptr %14, align 4, !tbaa !9
  %810 = load ptr, ptr %11, align 8, !tbaa !5
  %811 = load i32, ptr %18, align 4, !tbaa !9
  %812 = sext i32 %811 to i64
  %813 = getelementptr inbounds %struct.doublecomplex, ptr %810, i64 %812
  %814 = getelementptr inbounds [2 x double], ptr %21, i64 0, i64 0
  %815 = getelementptr inbounds [2 x double], ptr %21, i64 0, i64 1
  call void @zlassq_(ptr noundef %14, ptr noundef %813, ptr noundef @c__1, ptr noundef %814, ptr noundef %815)
  %816 = getelementptr inbounds [2 x double], ptr %23, i64 0, i64 0
  %817 = getelementptr inbounds [2 x double], ptr %21, i64 0, i64 0
  call void @dcombssq_(ptr noundef %816, ptr noundef %817)
  %818 = load i32, ptr %17, align 4, !tbaa !9
  %819 = load i32, ptr %18, align 4, !tbaa !9
  %820 = add nsw i32 %819, %818
  store i32 %820, ptr %18, align 4, !tbaa !9
  br label %821

821:                                              ; preds = %805
  %822 = load i32, ptr %17, align 4, !tbaa !9
  %823 = add nsw i32 %822, 1
  store i32 %823, ptr %17, align 4, !tbaa !9
  br label %801, !llvm.loop !42

824:                                              ; preds = %801
  br label %852

825:                                              ; preds = %789
  %826 = getelementptr inbounds [2 x double], ptr %23, i64 0, i64 0
  store double 0.000000e+00, ptr %826, align 16, !tbaa !11
  %827 = getelementptr inbounds [2 x double], ptr %23, i64 0, i64 1
  store double 1.000000e+00, ptr %827, align 8, !tbaa !11
  store i32 1, ptr %18, align 4, !tbaa !9
  %828 = load ptr, ptr %10, align 8, !tbaa !5
  %829 = load i32, ptr %828, align 4, !tbaa !9
  store i32 %829, ptr %13, align 4, !tbaa !9
  store i32 1, ptr %17, align 4, !tbaa !9
  br label %830

830:                                              ; preds = %848, %825
  %831 = load i32, ptr %17, align 4, !tbaa !9
  %832 = load i32, ptr %13, align 4, !tbaa !9
  %833 = icmp sle i32 %831, %832
  br i1 %833, label %834, label %851

834:                                              ; preds = %830
  %835 = getelementptr inbounds [2 x double], ptr %21, i64 0, i64 0
  store double 0.000000e+00, ptr %835, align 16, !tbaa !11
  %836 = getelementptr inbounds [2 x double], ptr %21, i64 0, i64 1
  store double 1.000000e+00, ptr %836, align 8, !tbaa !11
  %837 = load ptr, ptr %11, align 8, !tbaa !5
  %838 = load i32, ptr %18, align 4, !tbaa !9
  %839 = sext i32 %838 to i64
  %840 = getelementptr inbounds %struct.doublecomplex, ptr %837, i64 %839
  %841 = getelementptr inbounds [2 x double], ptr %21, i64 0, i64 0
  %842 = getelementptr inbounds [2 x double], ptr %21, i64 0, i64 1
  call void @zlassq_(ptr noundef %17, ptr noundef %840, ptr noundef @c__1, ptr noundef %841, ptr noundef %842)
  %843 = getelementptr inbounds [2 x double], ptr %23, i64 0, i64 0
  %844 = getelementptr inbounds [2 x double], ptr %21, i64 0, i64 0
  call void @dcombssq_(ptr noundef %843, ptr noundef %844)
  %845 = load i32, ptr %17, align 4, !tbaa !9
  %846 = load i32, ptr %18, align 4, !tbaa !9
  %847 = add nsw i32 %846, %845
  store i32 %847, ptr %18, align 4, !tbaa !9
  br label %848

848:                                              ; preds = %834
  %849 = load i32, ptr %17, align 4, !tbaa !9
  %850 = add nsw i32 %849, 1
  store i32 %850, ptr %17, align 4, !tbaa !9
  br label %830, !llvm.loop !43

851:                                              ; preds = %830
  br label %852

852:                                              ; preds = %851, %824
  br label %933

853:                                              ; preds = %785
  %854 = load ptr, ptr %9, align 8, !tbaa !5
  %855 = call i32 @lsame_(ptr noundef %854, ptr noundef @.str.1)
  %856 = icmp ne i32 %855, 0
  br i1 %856, label %857, label %896

857:                                              ; preds = %853
  %858 = getelementptr inbounds [2 x double], ptr %23, i64 0, i64 0
  store double 1.000000e+00, ptr %858, align 16, !tbaa !11
  %859 = load ptr, ptr %10, align 8, !tbaa !5
  %860 = load i32, ptr %859, align 4, !tbaa !9
  %861 = sitofp i32 %860 to double
  %862 = getelementptr inbounds [2 x double], ptr %23, i64 0, i64 1
  store double %861, ptr %862, align 8, !tbaa !11
  store i32 2, ptr %18, align 4, !tbaa !9
  %863 = load ptr, ptr %10, align 8, !tbaa !5
  %864 = load i32, ptr %863, align 4, !tbaa !9
  %865 = sub nsw i32 %864, 1
  store i32 %865, ptr %13, align 4, !tbaa !9
  store i32 1, ptr %17, align 4, !tbaa !9
  br label %866

866:                                              ; preds = %892, %857
  %867 = load i32, ptr %17, align 4, !tbaa !9
  %868 = load i32, ptr %13, align 4, !tbaa !9
  %869 = icmp sle i32 %867, %868
  br i1 %869, label %870, label %895

870:                                              ; preds = %866
  %871 = getelementptr inbounds [2 x double], ptr %21, i64 0, i64 0
  store double 0.000000e+00, ptr %871, align 16, !tbaa !11
  %872 = getelementptr inbounds [2 x double], ptr %21, i64 0, i64 1
  store double 1.000000e+00, ptr %872, align 8, !tbaa !11
  %873 = load ptr, ptr %10, align 8, !tbaa !5
  %874 = load i32, ptr %873, align 4, !tbaa !9
  %875 = load i32, ptr %17, align 4, !tbaa !9
  %876 = sub nsw i32 %874, %875
  store i32 %876, ptr %14, align 4, !tbaa !9
  %877 = load ptr, ptr %11, align 8, !tbaa !5
  %878 = load i32, ptr %18, align 4, !tbaa !9
  %879 = sext i32 %878 to i64
  %880 = getelementptr inbounds %struct.doublecomplex, ptr %877, i64 %879
  %881 = getelementptr inbounds [2 x double], ptr %21, i64 0, i64 0
  %882 = getelementptr inbounds [2 x double], ptr %21, i64 0, i64 1
  call void @zlassq_(ptr noundef %14, ptr noundef %880, ptr noundef @c__1, ptr noundef %881, ptr noundef %882)
  %883 = getelementptr inbounds [2 x double], ptr %23, i64 0, i64 0
  %884 = getelementptr inbounds [2 x double], ptr %21, i64 0, i64 0
  call void @dcombssq_(ptr noundef %883, ptr noundef %884)
  %885 = load i32, ptr %18, align 4, !tbaa !9
  %886 = load ptr, ptr %10, align 8, !tbaa !5
  %887 = load i32, ptr %886, align 4, !tbaa !9
  %888 = add nsw i32 %885, %887
  %889 = load i32, ptr %17, align 4, !tbaa !9
  %890 = sub nsw i32 %888, %889
  %891 = add nsw i32 %890, 1
  store i32 %891, ptr %18, align 4, !tbaa !9
  br label %892

892:                                              ; preds = %870
  %893 = load i32, ptr %17, align 4, !tbaa !9
  %894 = add nsw i32 %893, 1
  store i32 %894, ptr %17, align 4, !tbaa !9
  br label %866, !llvm.loop !44

895:                                              ; preds = %866
  br label %932

896:                                              ; preds = %853
  %897 = getelementptr inbounds [2 x double], ptr %23, i64 0, i64 0
  store double 0.000000e+00, ptr %897, align 16, !tbaa !11
  %898 = getelementptr inbounds [2 x double], ptr %23, i64 0, i64 1
  store double 1.000000e+00, ptr %898, align 8, !tbaa !11
  store i32 1, ptr %18, align 4, !tbaa !9
  %899 = load ptr, ptr %10, align 8, !tbaa !5
  %900 = load i32, ptr %899, align 4, !tbaa !9
  store i32 %900, ptr %13, align 4, !tbaa !9
  store i32 1, ptr %17, align 4, !tbaa !9
  br label %901

901:                                              ; preds = %928, %896
  %902 = load i32, ptr %17, align 4, !tbaa !9
  %903 = load i32, ptr %13, align 4, !tbaa !9
  %904 = icmp sle i32 %902, %903
  br i1 %904, label %905, label %931

905:                                              ; preds = %901
  %906 = getelementptr inbounds [2 x double], ptr %21, i64 0, i64 0
  store double 0.000000e+00, ptr %906, align 16, !tbaa !11
  %907 = getelementptr inbounds [2 x double], ptr %21, i64 0, i64 1
  store double 1.000000e+00, ptr %907, align 8, !tbaa !11
  %908 = load ptr, ptr %10, align 8, !tbaa !5
  %909 = load i32, ptr %908, align 4, !tbaa !9
  %910 = load i32, ptr %17, align 4, !tbaa !9
  %911 = sub nsw i32 %909, %910
  %912 = add nsw i32 %911, 1
  store i32 %912, ptr %14, align 4, !tbaa !9
  %913 = load ptr, ptr %11, align 8, !tbaa !5
  %914 = load i32, ptr %18, align 4, !tbaa !9
  %915 = sext i32 %914 to i64
  %916 = getelementptr inbounds %struct.doublecomplex, ptr %913, i64 %915
  %917 = getelementptr inbounds [2 x double], ptr %21, i64 0, i64 0
  %918 = getelementptr inbounds [2 x double], ptr %21, i64 0, i64 1
  call void @zlassq_(ptr noundef %14, ptr noundef %916, ptr noundef @c__1, ptr noundef %917, ptr noundef %918)
  %919 = getelementptr inbounds [2 x double], ptr %23, i64 0, i64 0
  %920 = getelementptr inbounds [2 x double], ptr %21, i64 0, i64 0
  call void @dcombssq_(ptr noundef %919, ptr noundef %920)
  %921 = load i32, ptr %18, align 4, !tbaa !9
  %922 = load ptr, ptr %10, align 8, !tbaa !5
  %923 = load i32, ptr %922, align 4, !tbaa !9
  %924 = add nsw i32 %921, %923
  %925 = load i32, ptr %17, align 4, !tbaa !9
  %926 = sub nsw i32 %924, %925
  %927 = add nsw i32 %926, 1
  store i32 %927, ptr %18, align 4, !tbaa !9
  br label %928

928:                                              ; preds = %905
  %929 = load i32, ptr %17, align 4, !tbaa !9
  %930 = add nsw i32 %929, 1
  store i32 %930, ptr %17, align 4, !tbaa !9
  br label %901, !llvm.loop !45

931:                                              ; preds = %901
  br label %932

932:                                              ; preds = %931, %895
  br label %933

933:                                              ; preds = %932, %852
  %934 = getelementptr inbounds [2 x double], ptr %23, i64 0, i64 0
  %935 = load double, ptr %934, align 16, !tbaa !11
  %936 = getelementptr inbounds [2 x double], ptr %23, i64 0, i64 1
  %937 = load double, ptr %936, align 8, !tbaa !11
  %938 = call double @sqrt(double noundef %937) #5
  %939 = fmul double %935, %938
  store double %939, ptr %20, align 8, !tbaa !11
  br label %940

940:                                              ; preds = %933, %781
  br label %941

941:                                              ; preds = %940, %776
  br label %942

942:                                              ; preds = %941, %486
  br label %943

943:                                              ; preds = %942, %283
  br label %944

944:                                              ; preds = %943, %43
  %945 = load double, ptr %20, align 8, !tbaa !11
  store double %945, ptr %15, align 8, !tbaa !11
  %946 = load double, ptr %15, align 8, !tbaa !11
  call void @llvm.lifetime.end.p0(i64 16, ptr %23) #5
  call void @llvm.lifetime.end.p0(i64 8, ptr %22) #5
  call void @llvm.lifetime.end.p0(i64 16, ptr %21) #5
  call void @llvm.lifetime.end.p0(i64 8, ptr %20) #5
  call void @llvm.lifetime.end.p0(i64 4, ptr %19) #5
  call void @llvm.lifetime.end.p0(i64 4, ptr %18) #5
  call void @llvm.lifetime.end.p0(i64 4, ptr %17) #5
  call void @llvm.lifetime.end.p0(i64 4, ptr %16) #5
  call void @llvm.lifetime.end.p0(i64 8, ptr %15) #5
  call void @llvm.lifetime.end.p0(i64 4, ptr %14) #5
  call void @llvm.lifetime.end.p0(i64 4, ptr %13) #5
  ret double %946
}

; Function Attrs: nocallback nofree nosync nounwind willreturn memory(argmem: readwrite)
declare void @llvm.lifetime.start.p0(i64 immarg, ptr nocapture) #1

declare i32 @lsame_(ptr noundef, ptr noundef) #2

; Function Attrs: nounwind
declare double @cabs(double noundef, double noundef) #3

; Function Attrs: inlinehint nounwind uwtable
declare hidden { double, double } @Cd(ptr noundef) #4

declare i32 @disnan_(ptr noundef) #2

declare void @zlassq_(ptr noundef, ptr noundef, ptr noundef, ptr noundef, ptr noundef) #2

declare void @dcombssq_(ptr noundef, ptr noundef) #2

; Function Attrs: nounwind
declare double @sqrt(double noundef) #3

; Function Attrs: nocallback nofree nosync nounwind willreturn memory(argmem: readwrite)
declare void @llvm.lifetime.end.p0(i64 immarg, ptr nocapture) #1

attributes #0 = { nounwind uwtable "min-legal-vector-width"="0" "no-trapping-math"="true" "stack-protector-buffer-size"="8" "target-cpu"="x86-64" "target-features"="+cmov,+cx8,+fxsr,+mmx,+sse,+sse2,+x87" "tune-cpu"="generic" }
attributes #1 = { nocallback nofree nosync nounwind willreturn memory(argmem: readwrite) }
attributes #2 = { "no-trapping-math"="true" "stack-protector-buffer-size"="8" "target-cpu"="x86-64" "target-features"="+cmov,+cx8,+fxsr,+mmx,+sse,+sse2,+x87" "tune-cpu"="generic" }
attributes #3 = { nounwind "no-trapping-math"="true" "stack-protector-buffer-size"="8" "target-cpu"="x86-64" "target-features"="+cmov,+cx8,+fxsr,+mmx,+sse,+sse2,+x87" "tune-cpu"="generic" }
attributes #4 = { inlinehint nounwind uwtable "min-legal-vector-width"="0" "no-trapping-math"="true" "stack-protector-buffer-size"="8" "target-cpu"="x86-64" "target-features"="+cmov,+cx8,+fxsr,+mmx,+sse,+sse2,+x87" "tune-cpu"="generic" }
attributes #5 = { nounwind }

!llvm.module.flags = !{!0, !1, !2, !3}
!llvm.ident = !{!4}

!0 = !{i32 1, !"wchar_size", i32 4}
!1 = !{i32 8, !"PIC Level", i32 2}
!2 = !{i32 7, !"PIE Level", i32 2}
!3 = !{i32 7, !"uwtable", i32 2}
!4 = !{!"clang version 19.1.0 (git@github.com:llvm/llvm-project.git a4bf6cd7cfb1a1421ba92bca9d017b49936c55e4)"}
!5 = !{!6, !6, i64 0}
!6 = !{!"any pointer", !7, i64 0}
!7 = !{!"omnipotent char", !8, i64 0}
!8 = !{!"Simple C/C++ TBAA"}
!9 = !{!10, !10, i64 0}
!10 = !{!"int", !7, i64 0}
!11 = !{!12, !12, i64 0}
!12 = !{!"double", !7, i64 0}
!13 = distinct !{!13, !14}
!14 = !{!"llvm.loop.mustprogress"}
!15 = distinct !{!15, !14}
!16 = distinct !{!16, !14}
!17 = distinct !{!17, !14}
!18 = distinct !{!18, !14}
!19 = distinct !{!19, !14}
!20 = distinct !{!20, !14}
!21 = distinct !{!21, !14}
!22 = !{!7, !7, i64 0}
!23 = distinct !{!23, !14}
!24 = distinct !{!24, !14}
!25 = distinct !{!25, !14}
!26 = distinct !{!26, !14}
!27 = distinct !{!27, !14}
!28 = distinct !{!28, !14}
!29 = distinct !{!29, !14}
!30 = distinct !{!30, !14}
!31 = distinct !{!31, !14}
!32 = distinct !{!32, !14}
!33 = distinct !{!33, !14}
!34 = distinct !{!34, !14}
!35 = distinct !{!35, !14}
!36 = distinct !{!36, !14}
!37 = distinct !{!37, !14}
!38 = distinct !{!38, !14}
!39 = distinct !{!39, !14}
!40 = distinct !{!40, !14}
!41 = distinct !{!41, !14}
!42 = distinct !{!42, !14}
!43 = distinct !{!43, !14}
!44 = distinct !{!44, !14}
!45 = distinct !{!45, !14}


; Optimized IR (opt -passes='default<O3>'):
target datalayout = "e-m:e-p270:32:32-p271:32:32-p272:64:64-i64:64-i128:128-f80:128-n8:16:32:64-S128"
target triple = "x86_64-unknown-linux-gnu"

%struct.doublecomplex = type { double, double }

@.str = external hidden unnamed_addr constant [2 x i8], align 1
@.str.1 = external hidden unnamed_addr constant [2 x i8], align 1
@.str.2 = external hidden unnamed_addr constant [2 x i8], align 1
@.str.3 = external hidden unnamed_addr constant [2 x i8], align 1
@.str.4 = external hidden unnamed_addr constant [2 x i8], align 1
@.str.5 = external hidden unnamed_addr constant [2 x i8], align 1
@c__1 = external hidden global i32, align 4

; Function Attrs: nounwind uwtable
define dso_local double @zlantp_(ptr noundef %0, ptr noundef %1, ptr noundef %2, ptr nocapture noundef readonly %3, ptr noundef %4, ptr nocapture noundef %5) local_unnamed_addr #0 {
  %7 = alloca i32, align 4
  %8 = alloca i32, align 4
  %9 = alloca [2 x double], align 16
  %10 = alloca double, align 8
  %11 = alloca [2 x double], align 16
  call void @llvm.lifetime.start.p0(i64 4, ptr nonnull %7) #7
  call void @llvm.lifetime.start.p0(i64 4, ptr nonnull %8) #7
  call void @llvm.lifetime.start.p0(i64 16, ptr nonnull %9) #7
  call void @llvm.lifetime.start.p0(i64 8, ptr nonnull %10) #7
  call void @llvm.lifetime.start.p0(i64 16, ptr nonnull %11) #7
  %12 = getelementptr inbounds i8, ptr %5, i64 -8
  %13 = getelementptr inbounds i8, ptr %4, i64 -16
  %14 = load i32, ptr %3, align 4, !tbaa !5
  %15 = icmp eq i32 %14, 0
  br i1 %15, label %.loopexit334, label %16

16:                                               ; preds = %6
  %17 = tail call i32 @lsame_(ptr noundef %0, ptr noundef nonnull @.str) #7
  %.not = icmp eq i32 %17, 0
  br i1 %.not, label %99, label %18

18:                                               ; preds = %16
  %19 = tail call i32 @lsame_(ptr noundef %2, ptr noundef nonnull @.str.1) #7
  %.not310 = icmp eq i32 %19, 0
  %20 = tail call i32 @lsame_(ptr noundef %1, ptr noundef nonnull @.str.1) #7
  %.not311 = icmp eq i32 %20, 0
  %21 = load i32, ptr %3, align 4, !tbaa !5
  %.not313400 = icmp slt i32 %21, 1
  br i1 %.not310, label %61, label %22

22:                                               ; preds = %18
  br i1 %.not311, label %40, label %23

23:                                               ; preds = %22
  br i1 %.not313400, label %.loopexit334, label %.lr.ph362

.lr.ph362:                                        ; preds = %23, %._crit_edge
  %.0221360 = phi i32 [ %38, %._crit_edge ], [ 1, %23 ]
  %.0238359 = phi double [ %.1239.lcssa, %._crit_edge ], [ 1.000000e+00, %23 ]
  %24 = phi i32 [ %39, %._crit_edge ], [ 1, %23 ]
  %25 = add nsw i32 %24, -2
  %26 = add i32 %25, %.0221360
  %.not327354 = icmp sgt i32 %.0221360, %26
  br i1 %.not327354, label %._crit_edge, label %.lr.ph.preheader

.lr.ph.preheader:                                 ; preds = %.lr.ph362
  %27 = zext nneg i32 %.0221360 to i64
  %28 = sext i32 %26 to i64
  br label %.lr.ph

.lr.ph:                                           ; preds = %.lr.ph.preheader, %37
  %indvars.iv = phi i64 [ %27, %.lr.ph.preheader ], [ %indvars.iv.next, %37 ]
  %.1239355 = phi double [ %.0238359, %.lr.ph.preheader ], [ %.2240, %37 ]
  %29 = getelementptr inbounds %struct.doublecomplex, ptr %13, i64 %indvars.iv
  %30 = call { double, double } @Cd(ptr noundef nonnull %29)
  %31 = extractvalue { double, double } %30, 0
  %32 = extractvalue { double, double } %30, 1
  %33 = call double @cabs(double noundef %31, double noundef %32) #7
  store double %33, ptr %10, align 8, !tbaa !9
  %34 = fcmp olt double %.1239355, %33
  br i1 %34, label %37, label %35

35:                                               ; preds = %.lr.ph
  %36 = call i32 @disnan_(ptr noundef nonnull %10) #7
  %.not328 = icmp eq i32 %36, 0
  br i1 %.not328, label %37, label %._crit_edge665

._crit_edge665:                                   ; preds = %35
  %.pre = load double, ptr %10, align 8, !tbaa !9
  br label %37

37:                                               ; preds = %.lr.ph, %._crit_edge665, %35
  %.2240 = phi double [ %.1239355, %35 ], [ %.pre, %._crit_edge665 ], [ %33, %.lr.ph ]
  %indvars.iv.next = add nuw nsw i64 %indvars.iv, 1
  %.not327.not = icmp slt i64 %indvars.iv, %28
  br i1 %.not327.not, label %.lr.ph, label %._crit_edge, !llvm.loop !11

._crit_edge:                                      ; preds = %37, %.lr.ph362
  %.1239.lcssa = phi double [ %.0238359, %.lr.ph362 ], [ %.2240, %37 ]
  %38 = add nuw nsw i32 %24, %.0221360
  %39 = add nuw nsw i32 %24, 1
  %.not326.not = icmp slt i32 %24, %21
  br i1 %.not326.not, label %.lr.ph362, label %.loopexit334, !llvm.loop !13

40:                                               ; preds = %22
  br i1 %.not313400, label %.loopexit334, label %.lr.ph377

.lr.ph377:                                        ; preds = %40, %._crit_edge370
  %41 = phi i32 [ %60, %._crit_edge370 ], [ 1, %40 ]
  %42 = phi i32 [ %56, %._crit_edge370 ], [ %21, %40 ]
  %.1222375 = phi i32 [ %59, %._crit_edge370 ], [ 1, %40 ]
  %.3241374 = phi double [ %.4242.lcssa, %._crit_edge370 ], [ 1.000000e+00, %40 ]
  %storemerge321373.neg = phi i32 [ %.neg542, %._crit_edge370 ], [ -1, %40 ]
  %43 = add i32 %.1222375, %storemerge321373.neg
  %44 = add i32 %43, %42
  %.not323.not365 = icmp slt i32 %.1222375, %44
  br i1 %.not323.not365, label %.lr.ph369.preheader, label %._crit_edge370

.lr.ph369.preheader:                              ; preds = %.lr.ph377
  %45 = sext i32 %.1222375 to i64
  %46 = sext i32 %44 to i64
  br label %.lr.ph369

.lr.ph369:                                        ; preds = %.lr.ph369.preheader, %55
  %indvars.iv567 = phi i64 [ %45, %.lr.ph369.preheader ], [ %indvars.iv.next568, %55 ]
  %.4242366 = phi double [ %.3241374, %.lr.ph369.preheader ], [ %.5243, %55 ]
  %indvars.iv.next568 = add nsw i64 %indvars.iv567, 1
  %47 = getelementptr %struct.doublecomplex, ptr %4, i64 %indvars.iv567
  %48 = call { double, double } @Cd(ptr noundef nonnull %47)
  %49 = extractvalue { double, double } %48, 0
  %50 = extractvalue { double, double } %48, 1
  %51 = call double @cabs(double noundef %49, double noundef %50) #7
  store double %51, ptr %10, align 8, !tbaa !9
  %52 = fcmp olt double %.4242366, %51
  br i1 %52, label %55, label %53

53:                                               ; preds = %.lr.ph369
  %54 = call i32 @disnan_(ptr noundef nonnull %10) #7
  %.not324 = icmp eq i32 %54, 0
  br i1 %.not324, label %55, label %._crit_edge666

._crit_edge666:                                   ; preds = %53
  %.pre667 = load double, ptr %10, align 8, !tbaa !9
  br label %55

55:                                               ; preds = %.lr.ph369, %._crit_edge666, %53
  %.5243 = phi double [ %.4242366, %53 ], [ %.pre667, %._crit_edge666 ], [ %51, %.lr.ph369 ]
  %.not323.not = icmp slt i64 %indvars.iv.next568, %46
  br i1 %.not323.not, label %.lr.ph369, label %._crit_edge370.loopexit, !llvm.loop !14

._crit_edge370.loopexit:                          ; preds = %55
  %.pre668 = load i32, ptr %3, align 4, !tbaa !5
  br label %._crit_edge370

._crit_edge370:                                   ; preds = %._crit_edge370.loopexit, %.lr.ph377
  %56 = phi i32 [ %42, %.lr.ph377 ], [ %.pre668, %._crit_edge370.loopexit ]
  %.4242.lcssa = phi double [ %.3241374, %.lr.ph377 ], [ %.5243, %._crit_edge370.loopexit ]
  %57 = add i32 %.1222375, 1
  %58 = add i32 %57, %56
  %59 = sub i32 %58, %41
  %.neg542 = xor i32 %41, -1
  %60 = add nuw nsw i32 %41, 1
  %.not322.not = icmp slt i32 %41, %21
  br i1 %.not322.not, label %.lr.ph377, label %.loopexit334, !llvm.loop !15

61:                                               ; preds = %18
  br i1 %.not311, label %78, label %62

62:                                               ; preds = %61
  br i1 %.not313400, label %.loopexit334, label %.lr.ph391

.lr.ph391:                                        ; preds = %62, %._crit_edge384
  %63 = phi i32 [ %77, %._crit_edge384 ], [ 1, %62 ]
  %.2223389 = phi i32 [ %76, %._crit_edge384 ], [ 1, %62 ]
  %.6244388 = phi double [ %.7245.lcssa, %._crit_edge384 ], [ 0.000000e+00, %62 ]
  %storemerge316387 = phi i32 [ %63, %._crit_edge384 ], [ 0, %62 ]
  %64 = add nuw i32 %storemerge316387, %.2223389
  %.not318379 = icmp sgt i32 %.2223389, %64
  br i1 %.not318379, label %._crit_edge384, label %.lr.ph383.preheader

.lr.ph383.preheader:                              ; preds = %.lr.ph391
  %65 = zext nneg i32 %.2223389 to i64
  %66 = sext i32 %64 to i64
  br label %.lr.ph383

.lr.ph383:                                        ; preds = %.lr.ph383.preheader, %75
  %indvars.iv570 = phi i64 [ %65, %.lr.ph383.preheader ], [ %indvars.iv.next571, %75 ]
  %.7245380 = phi double [ %.6244388, %.lr.ph383.preheader ], [ %.8246, %75 ]
  %67 = getelementptr inbounds %struct.doublecomplex, ptr %13, i64 %indvars.iv570
  %68 = call { double, double } @Cd(ptr noundef nonnull %67)
  %69 = extractvalue { double, double } %68, 0
  %70 = extractvalue { double, double } %68, 1
  %71 = call double @cabs(double noundef %69, double noundef %70) #7
  store double %71, ptr %10, align 8, !tbaa !9
  %72 = fcmp olt double %.7245380, %71
  br i1 %72, label %75, label %73

73:                                               ; preds = %.lr.ph383
  %74 = call i32 @disnan_(ptr noundef nonnull %10) #7
  %.not319 = icmp eq i32 %74, 0
  br i1 %.not319, label %75, label %._crit_edge669

._crit_edge669:                                   ; preds = %73
  %.pre670 = load double, ptr %10, align 8, !tbaa !9
  br label %75

75:                                               ; preds = %.lr.ph383, %._crit_edge669, %73
  %.8246 = phi double [ %.7245380, %73 ], [ %.pre670, %._crit_edge669 ], [ %71, %.lr.ph383 ]
  %indvars.iv.next571 = add nuw nsw i64 %indvars.iv570, 1
  %.not318.not = icmp slt i64 %indvars.iv570, %66
  br i1 %.not318.not, label %.lr.ph383, label %._crit_edge384, !llvm.loop !16

._crit_edge384:                                   ; preds = %75, %.lr.ph391
  %.7245.lcssa = phi double [ %.6244388, %.lr.ph391 ], [ %.8246, %75 ]
  %76 = add nuw nsw i32 %63, %.2223389
  %77 = add nuw nsw i32 %63, 1
  %.not317.not = icmp slt i32 %63, %21
  br i1 %.not317.not, label %.lr.ph391, label %.loopexit334, !llvm.loop !17

78:                                               ; preds = %61
  br i1 %.not313400, label %.loopexit334, label %.lr.ph405

.lr.ph405:                                        ; preds = %78, %._crit_edge398
  %79 = phi i32 [ %98, %._crit_edge398 ], [ 1, %78 ]
  %80 = phi i32 [ %94, %._crit_edge398 ], [ %21, %78 ]
  %.3224403 = phi i32 [ %97, %._crit_edge398 ], [ 1, %78 ]
  %.9247402 = phi double [ %.10248.lcssa, %._crit_edge398 ], [ 0.000000e+00, %78 ]
  %storemerge312401.neg = phi i32 [ %.neg, %._crit_edge398 ], [ -1, %78 ]
  %81 = add i32 %.3224403, %storemerge312401.neg
  %82 = add i32 %81, %80
  %.not314393 = icmp sgt i32 %.3224403, %82
  br i1 %.not314393, label %._crit_edge398, label %.lr.ph397.preheader

.lr.ph397.preheader:                              ; preds = %.lr.ph405
  %83 = sext i32 %.3224403 to i64
  %84 = sext i32 %82 to i64
  br label %.lr.ph397

.lr.ph397:                                        ; preds = %.lr.ph397.preheader, %93
  %indvars.iv573 = phi i64 [ %83, %.lr.ph397.preheader ], [ %indvars.iv.next574, %93 ]
  %.10248394 = phi double [ %.9247402, %.lr.ph397.preheader ], [ %.11249, %93 ]
  %85 = getelementptr inbounds %struct.doublecomplex, ptr %13, i64 %indvars.iv573
  %86 = call { double, double } @Cd(ptr noundef nonnull %85)
  %87 = extractvalue { double, double } %86, 0
  %88 = extractvalue { double, double } %86, 1
  %89 = call double @cabs(double noundef %87, double noundef %88) #7
  store double %89, ptr %10, align 8, !tbaa !9
  %90 = fcmp olt double %.10248394, %89
  br i1 %90, label %93, label %91

91:                                               ; preds = %.lr.ph397
  %92 = call i32 @disnan_(ptr noundef nonnull %10) #7
  %.not315 = icmp eq i32 %92, 0
  br i1 %.not315, label %93, label %._crit_edge671

._crit_edge671:                                   ; preds = %91
  %.pre672 = load double, ptr %10, align 8, !tbaa !9
  br label %93

93:                                               ; preds = %.lr.ph397, %._crit_edge671, %91
  %.11249 = phi double [ %.10248394, %91 ], [ %.pre672, %._crit_edge671 ], [ %89, %.lr.ph397 ]
  %indvars.iv.next574 = add nsw i64 %indvars.iv573, 1
  %.not314.not = icmp slt i64 %indvars.iv573, %84
  br i1 %.not314.not, label %.lr.ph397, label %._crit_edge398.loopexit, !llvm.loop !18

._crit_edge398.loopexit:                          ; preds = %93
  %.pre673 = load i32, ptr %3, align 4, !tbaa !5
  br label %._crit_edge398

._crit_edge398:                                   ; preds = %._crit_edge398.loopexit, %.lr.ph405
  %94 = phi i32 [ %80, %.lr.ph405 ], [ %.pre673, %._crit_edge398.loopexit ]
  %.10248.lcssa = phi double [ %.9247402, %.lr.ph405 ], [ %.11249, %._crit_edge398.loopexit ]
  %95 = add i32 %.3224403, 1
  %96 = add i32 %95, %94
  %97 = sub i32 %96, %79
  %.neg = xor i32 %79, -1
  %98 = add nuw nsw i32 %79, 1
  %.not313.not = icmp slt i32 %79, %21
  br i1 %.not313.not, label %.lr.ph405, label %.loopexit334, !llvm.loop !19

99:                                               ; preds = %16
  %100 = tail call i32 @lsame_(ptr noundef %0, ptr noundef nonnull @.str.2) #7
  %.not262 = icmp eq i32 %100, 0
  br i1 %.not262, label %101, label %104

101:                                              ; preds = %99
  %102 = load i8, ptr %0, align 1, !tbaa !20
  %103 = icmp eq i8 %102, 49
  br i1 %103, label %104, label %177

104:                                              ; preds = %101, %99
  %105 = tail call i32 @lsame_(ptr noundef %2, ptr noundef nonnull @.str.1) #7
  %106 = tail call i32 @lsame_(ptr noundef %1, ptr noundef nonnull @.str.1) #7
  %.not297 = icmp eq i32 %106, 0
  %107 = load i32, ptr %3, align 4, !tbaa !5
  %.not299534 = icmp slt i32 %107, 1
  br i1 %.not297, label %139, label %108

108:                                              ; preds = %104
  br i1 %.not299534, label %.loopexit334, label %.lr.ph524

.lr.ph524:                                        ; preds = %108
  %.not306 = icmp eq i32 %105, 0
  br label %109

109:                                              ; preds = %.lr.ph524, %137
  %.4225521 = phi i32 [ 1, %.lr.ph524 ], [ %111, %137 ]
  %.12250520 = phi double [ 0.000000e+00, %.lr.ph524 ], [ %.13251, %137 ]
  %110 = phi i32 [ 1, %.lr.ph524 ], [ %138, %137 ]
  %111 = add nuw nsw i32 %.4225521, %110
  br i1 %.not306, label %.lr.ph517.preheader, label %112

112:                                              ; preds = %109
  store double 1.000000e+00, ptr %10, align 8, !tbaa !9
  %113 = add nsw i32 %111, -2
  %.not308510 = icmp sgt i32 %.4225521, %113
  br i1 %.not308510, label %.loopexit335, label %.lr.ph513.preheader

.lr.ph513.preheader:                              ; preds = %112
  %114 = zext nneg i32 %.4225521 to i64
  %115 = sext i32 %113 to i64
  br label %.lr.ph513

.lr.ph513:                                        ; preds = %.lr.ph513.preheader, %.lr.ph513
  %indvars.iv653 = phi i64 [ %114, %.lr.ph513.preheader ], [ %indvars.iv.next654, %.lr.ph513 ]
  %116 = getelementptr inbounds %struct.doublecomplex, ptr %13, i64 %indvars.iv653
  %117 = call { double, double } @Cd(ptr noundef nonnull %116)
  %118 = extractvalue { double, double } %117, 0
  %119 = extractvalue { double, double } %117, 1
  %120 = call double @cabs(double noundef %118, double noundef %119) #7
  %121 = load double, ptr %10, align 8, !tbaa !9
  %122 = fadd double %120, %121
  store double %122, ptr %10, align 8, !tbaa !9
  %indvars.iv.next654 = add nuw nsw i64 %indvars.iv653, 1
  %.not308.not = icmp slt i64 %indvars.iv653, %115
  br i1 %.not308.not, label %.lr.ph513, label %.loopexit335, !llvm.loop !21

.lr.ph517.preheader:                              ; preds = %109
  store double 0.000000e+00, ptr %10, align 8, !tbaa !9
  %123 = add nsw i32 %111, -1
  %124 = zext nneg i32 %.4225521 to i64
  %125 = sext i32 %123 to i64
  br label %.lr.ph517

.lr.ph517:                                        ; preds = %.lr.ph517.preheader, %.lr.ph517
  %indvars.iv656 = phi i64 [ %124, %.lr.ph517.preheader ], [ %indvars.iv.next657, %.lr.ph517 ]
  %126 = getelementptr inbounds %struct.doublecomplex, ptr %13, i64 %indvars.iv656
  %127 = call { double, double } @Cd(ptr noundef nonnull %126)
  %128 = extractvalue { double, double } %127, 0
  %129 = extractvalue { double, double } %127, 1
  %130 = call double @cabs(double noundef %128, double noundef %129) #7
  %131 = load double, ptr %10, align 8, !tbaa !9
  %132 = fadd double %130, %131
  store double %132, ptr %10, align 8, !tbaa !9
  %indvars.iv.next657 = add nuw nsw i64 %indvars.iv656, 1
  %.not307.not = icmp slt i64 %indvars.iv656, %125
  br i1 %.not307.not, label %.lr.ph517, label %.loopexit335, !llvm.loop !22

.loopexit335:                                     ; preds = %.lr.ph513, %.lr.ph517, %112
  %133 = phi double [ 1.000000e+00, %112 ], [ %132, %.lr.ph517 ], [ %122, %.lr.ph513 ]
  %134 = fcmp olt double %.12250520, %133
  br i1 %134, label %137, label %135

135:                                              ; preds = %.loopexit335
  %136 = call i32 @disnan_(ptr noundef nonnull %10) #7
  %.not309 = icmp eq i32 %136, 0
  br i1 %.not309, label %137, label %._crit_edge676

._crit_edge676:                                   ; preds = %135
  %.pre677 = load double, ptr %10, align 8, !tbaa !9
  br label %137

137:                                              ; preds = %.loopexit335, %._crit_edge676, %135
  %.13251 = phi double [ %.12250520, %135 ], [ %.pre677, %._crit_edge676 ], [ %133, %.loopexit335 ]
  %138 = add nuw nsw i32 %110, 1
  %.not305.not = icmp slt i32 %110, %107
  br i1 %.not305.not, label %109, label %.loopexit334, !llvm.loop !23

139:                                              ; preds = %104
  br i1 %.not299534, label %.loopexit334, label %.lr.ph540

.lr.ph540:                                        ; preds = %139
  %.not300 = icmp eq i32 %105, 0
  br label %140

140:                                              ; preds = %.lr.ph540, %175
  %141 = phi i32 [ 1, %.lr.ph540 ], [ %176, %175 ]
  %storemerge298.neg538 = phi i32 [ -1, %.lr.ph540 ], [ %storemerge298.neg, %175 ]
  %.5226536 = phi i32 [ 1, %.lr.ph540 ], [ %171, %175 ]
  %.14252535 = phi double [ 0.000000e+00, %.lr.ph540 ], [ %.15253, %175 ]
  %142 = add i32 %.5226536, %storemerge298.neg538
  br i1 %.not300, label %155, label %143

143:                                              ; preds = %140
  store double 1.000000e+00, ptr %10, align 8, !tbaa !9
  %144 = load i32, ptr %3, align 4, !tbaa !5
  %145 = add i32 %142, %144
  %.not302.not526 = icmp slt i32 %.5226536, %145
  br i1 %.not302.not526, label %.lr.ph529.preheader, label %.loopexit

.lr.ph529.preheader:                              ; preds = %143
  %146 = sext i32 %.5226536 to i64
  %147 = sext i32 %145 to i64
  br label %.lr.ph529

.lr.ph529:                                        ; preds = %.lr.ph529.preheader, %.lr.ph529
  %indvars.iv659 = phi i64 [ %146, %.lr.ph529.preheader ], [ %indvars.iv.next660, %.lr.ph529 ]
  %indvars.iv.next660 = add nsw i64 %indvars.iv659, 1
  %148 = getelementptr %struct.doublecomplex, ptr %4, i64 %indvars.iv659
  %149 = call { double, double } @Cd(ptr noundef nonnull %148)
  %150 = extractvalue { double, double } %149, 0
  %151 = extractvalue { double, double } %149, 1
  %152 = call double @cabs(double noundef %150, double noundef %151) #7
  %153 = load double, ptr %10, align 8, !tbaa !9
  %154 = fadd double %152, %153
  store double %154, ptr %10, align 8, !tbaa !9
  %.not302.not = icmp slt i64 %indvars.iv.next660, %147
  br i1 %.not302.not, label %.lr.ph529, label %.loopexit, !llvm.loop !24

155:                                              ; preds = %140
  store double 0.000000e+00, ptr %10, align 8, !tbaa !9
  %156 = load i32, ptr %3, align 4, !tbaa !5
  %157 = add i32 %142, %156
  %.not301530 = icmp sgt i32 %.5226536, %157
  br i1 %.not301530, label %.loopexit, label %.lr.ph533.preheader

.lr.ph533.preheader:                              ; preds = %155
  %158 = sext i32 %.5226536 to i64
  %159 = sext i32 %157 to i64
  br label %.lr.ph533

.lr.ph533:                                        ; preds = %.lr.ph533.preheader, %.lr.ph533
  %indvars.iv662 = phi i64 [ %158, %.lr.ph533.preheader ], [ %indvars.iv.next663, %.lr.ph533 ]
  %160 = getelementptr inbounds %struct.doublecomplex, ptr %13, i64 %indvars.iv662
  %161 = call { double, double } @Cd(ptr noundef nonnull %160)
  %162 = extractvalue { double, double } %161, 0
  %163 = extractvalue { double, double } %161, 1
  %164 = call double @cabs(double noundef %162, double noundef %163) #7
  %165 = load double, ptr %10, align 8, !tbaa !9
  %166 = fadd double %164, %165
  store double %166, ptr %10, align 8, !tbaa !9
  %indvars.iv.next663 = add nsw i64 %indvars.iv662, 1
  %.not301.not = icmp slt i64 %indvars.iv662, %159
  br i1 %.not301.not, label %.lr.ph533, label %.loopexit, !llvm.loop !25

.loopexit:                                        ; preds = %.lr.ph529, %.lr.ph533, %143, %155
  %167 = phi double [ 1.000000e+00, %143 ], [ 0.000000e+00, %155 ], [ %166, %.lr.ph533 ], [ %154, %.lr.ph529 ]
  %168 = load i32, ptr %3, align 4, !tbaa !5
  %169 = add i32 %.5226536, 1
  %170 = add i32 %169, %168
  %171 = sub i32 %170, %141
  %172 = fcmp olt double %.14252535, %167
  br i1 %172, label %175, label %173

173:                                              ; preds = %.loopexit
  %174 = call i32 @disnan_(ptr noundef nonnull %10) #7
  %.not303 = icmp eq i32 %174, 0
  br i1 %.not303, label %175, label %._crit_edge678

._crit_edge678:                                   ; preds = %173
  %.pre679 = load double, ptr %10, align 8, !tbaa !9
  br label %175

175:                                              ; preds = %.loopexit, %._crit_edge678, %173
  %.15253 = phi double [ %.14252535, %173 ], [ %.pre679, %._crit_edge678 ], [ %167, %.loopexit ]
  %176 = add nuw nsw i32 %141, 1
  %storemerge298.neg = xor i32 %141, -1
  %.not299.not = icmp slt i32 %141, %107
  br i1 %.not299.not, label %140, label %.loopexit334, !llvm.loop !26

177:                                              ; preds = %101
  %178 = tail call i32 @lsame_(ptr noundef nonnull %0, ptr noundef nonnull @.str.3) #7
  %.not263 = icmp eq i32 %178, 0
  br i1 %.not263, label %260, label %179

179:                                              ; preds = %177
  %180 = tail call i32 @lsame_(ptr noundef %1, ptr noundef nonnull @.str.1) #7
  %.not276 = icmp eq i32 %180, 0
  %181 = tail call i32 @lsame_(ptr noundef %2, ptr noundef nonnull @.str.1) #7
  %.not277 = icmp eq i32 %181, 0
  %182 = load i32, ptr %3, align 4, !tbaa !5
  %.not278465 = icmp slt i32 %182, 1
  br i1 %.not276, label %216, label %183

183:                                              ; preds = %179
  br i1 %.not277, label %203, label %184

184:                                              ; preds = %183
  br i1 %.not278465, label %.loopexit343, label %.lr.ph410.preheader

.lr.ph410.preheader:                              ; preds = %184
  %185 = add nuw i32 %182, 1
  %wide.trip.count = zext i32 %185 to i64
  %186 = zext nneg i32 %182 to i64
  %min.iters.check = icmp ult i32 %182, 4
  br i1 %min.iters.check, label %.lr.ph410.preheader738, label %vector.ph

.lr.ph410.preheader738:                           ; preds = %middle.block, %.lr.ph410.preheader
  %indvars.iv576.ph = phi i64 [ 1, %.lr.ph410.preheader ], [ %ind.end, %middle.block ]
  br label %.lr.ph410

vector.ph:                                        ; preds = %.lr.ph410.preheader
  %n.vec = and i64 %186, 2147483644
  %ind.end = or disjoint i64 %n.vec, 1
  br label %vector.body

vector.body:                                      ; preds = %vector.body, %vector.ph
  %index = phi i64 [ 0, %vector.ph ], [ %index.next, %vector.body ]
  %187 = getelementptr double, ptr %5, i64 %index
  %188 = getelementptr inbounds i8, ptr %187, i64 16
  store <2 x double> <double 1.000000e+00, double 1.000000e+00>, ptr %187, align 8, !tbaa !9
  store <2 x double> <double 1.000000e+00, double 1.000000e+00>, ptr %188, align 8, !tbaa !9
  %index.next = add nuw i64 %index, 4
  %189 = icmp eq i64 %index.next, %n.vec
  br i1 %189, label %middle.block, label %vector.body, !llvm.loop !27

middle.block:                                     ; preds = %vector.body
  %cmp.n = icmp eq i64 %n.vec, %186
  br i1 %cmp.n, label %.preheader348, label %.lr.ph410.preheader738

.preheader348:                                    ; preds = %.lr.ph410, %middle.block
  br i1 %.not278465, label %.loopexit343, label %.lr.ph421.preheader

.lr.ph421.preheader:                              ; preds = %.preheader348
  %190 = add nuw i32 %182, 1
  %wide.trip.count591 = zext i32 %190 to i64
  br label %.lr.ph421

.lr.ph410:                                        ; preds = %.lr.ph410.preheader738, %.lr.ph410
  %indvars.iv576 = phi i64 [ %indvars.iv.next577, %.lr.ph410 ], [ %indvars.iv576.ph, %.lr.ph410.preheader738 ]
  %191 = getelementptr inbounds double, ptr %12, i64 %indvars.iv576
  store double 1.000000e+00, ptr %191, align 8, !tbaa !9
  %indvars.iv.next577 = add nuw nsw i64 %indvars.iv576, 1
  %exitcond.not = icmp eq i64 %indvars.iv.next577, %wide.trip.count
  br i1 %exitcond.not, label %.preheader348, label %.lr.ph410, !llvm.loop !30

.lr.ph421:                                        ; preds = %.lr.ph421.preheader, %._crit_edge416
  %indvars.iv588 = phi i64 [ 1, %.lr.ph421.preheader ], [ %indvars.iv.next589, %._crit_edge416 ]
  %.6227420 = phi i32 [ 1, %.lr.ph421.preheader ], [ %202, %._crit_edge416 ]
  %.not296411 = icmp ult i64 %indvars.iv588, 2
  br i1 %.not296411, label %._crit_edge416, label %.lr.ph415.preheader

.lr.ph415.preheader:                              ; preds = %.lr.ph421
  %192 = sext i32 %.6227420 to i64
  br label %.lr.ph415

.lr.ph415:                                        ; preds = %.lr.ph415.preheader, %.lr.ph415
  %indvars.iv581 = phi i64 [ %192, %.lr.ph415.preheader ], [ %indvars.iv.next582, %.lr.ph415 ]
  %indvars.iv579 = phi i64 [ 1, %.lr.ph415.preheader ], [ %indvars.iv.next580, %.lr.ph415 ]
  %193 = getelementptr inbounds %struct.doublecomplex, ptr %13, i64 %indvars.iv581
  %194 = tail call { double, double } @Cd(ptr noundef nonnull %193)
  %195 = extractvalue { double, double } %194, 0
  %196 = extractvalue { double, double } %194, 1
  %197 = tail call double @cabs(double noundef %195, double noundef %196) #7
  %198 = getelementptr inbounds double, ptr %12, i64 %indvars.iv579
  %199 = load double, ptr %198, align 8, !tbaa !9
  %200 = fadd double %197, %199
  store double %200, ptr %198, align 8, !tbaa !9
  %indvars.iv.next582 = add nsw i64 %indvars.iv581, 1
  %indvars.iv.next580 = add nuw nsw i64 %indvars.iv579, 1
  %exitcond587.not = icmp eq i64 %indvars.iv.next580, %indvars.iv588
  br i1 %exitcond587.not, label %._crit_edge416.loopexit, label %.lr.ph415, !llvm.loop !31

._crit_edge416.loopexit:                          ; preds = %.lr.ph415
  %201 = trunc nsw i64 %indvars.iv.next582 to i32
  br label %._crit_edge416

._crit_edge416:                                   ; preds = %._crit_edge416.loopexit, %.lr.ph421
  %.7228.lcssa = phi i32 [ %.6227420, %.lr.ph421 ], [ %201, %._crit_edge416.loopexit ]
  %202 = add nsw i32 %.7228.lcssa, 1
  %indvars.iv.next589 = add nuw nsw i64 %indvars.iv588, 1
  %exitcond592.not = icmp eq i64 %indvars.iv.next589, %wide.trip.count591
  br i1 %exitcond592.not, label %.loopexit343, label %.lr.ph421, !llvm.loop !32

203:                                              ; preds = %183
  br i1 %.not278465, label %.loopexit343, label %.lr.ph441.preheader

.lr.ph441.preheader:                              ; preds = %203
  %204 = zext nneg i32 %182 to i64
  %205 = shl nuw nsw i64 %204, 3
  tail call void @llvm.memset.p0.i64(ptr align 8 %5, i8 0, i64 %205, i1 false), !tbaa !9
  %206 = add nuw i32 %182, 2
  %wide.trip.count610 = zext i32 %206 to i64
  br label %.lr.ph432.preheader

.lr.ph432.preheader:                              ; preds = %._crit_edge433, %.lr.ph441.preheader
  %indvars.iv607 = phi i64 [ 2, %.lr.ph441.preheader ], [ %indvars.iv.next608, %._crit_edge433 ]
  %.8229440 = phi i64 [ 1, %.lr.ph441.preheader ], [ %indvars.iv.next599, %._crit_edge433 ]
  %sext = shl i64 %.8229440, 32
  %207 = ashr exact i64 %sext, 32
  br label %.lr.ph432

.lr.ph432:                                        ; preds = %.lr.ph432.preheader, %.lr.ph432
  %indvars.iv598 = phi i64 [ %207, %.lr.ph432.preheader ], [ %indvars.iv.next599, %.lr.ph432 ]
  %indvars.iv596 = phi i64 [ 1, %.lr.ph432.preheader ], [ %indvars.iv.next597, %.lr.ph432 ]
  %208 = getelementptr inbounds %struct.doublecomplex, ptr %13, i64 %indvars.iv598
  %209 = tail call { double, double } @Cd(ptr noundef nonnull %208)
  %210 = extractvalue { double, double } %209, 0
  %211 = extractvalue { double, double } %209, 1
  %212 = tail call double @cabs(double noundef %210, double noundef %211) #7
  %213 = getelementptr inbounds double, ptr %12, i64 %indvars.iv596
  %214 = load double, ptr %213, align 8, !tbaa !9
  %215 = fadd double %212, %214
  store double %215, ptr %213, align 8, !tbaa !9
  %indvars.iv.next599 = add nsw i64 %indvars.iv598, 1
  %indvars.iv.next597 = add nuw nsw i64 %indvars.iv596, 1
  %exitcond606.not = icmp eq i64 %indvars.iv.next597, %indvars.iv607
  br i1 %exitcond606.not, label %._crit_edge433, label %.lr.ph432, !llvm.loop !33

._crit_edge433:                                   ; preds = %.lr.ph432
  %indvars.iv.next608 = add nuw nsw i64 %indvars.iv607, 1
  %exitcond611.not = icmp eq i64 %indvars.iv.next608, %wide.trip.count610
  br i1 %exitcond611.not, label %.loopexit343, label %.lr.ph432.preheader, !llvm.loop !34

216:                                              ; preds = %179
  br i1 %.not277, label %236, label %217

217:                                              ; preds = %216
  br i1 %.not278465, label %.loopexit343, label %.lr.ph447.preheader

.lr.ph447.preheader:                              ; preds = %217
  %218 = add nuw i32 %182, 1
  %wide.trip.count615 = zext i32 %218 to i64
  %219 = zext nneg i32 %182 to i64
  %min.iters.check713 = icmp ult i32 %182, 4
  br i1 %min.iters.check713, label %.lr.ph447.preheader735, label %vector.ph714

.lr.ph447.preheader735:                           ; preds = %middle.block711, %.lr.ph447.preheader
  %indvars.iv612.ph = phi i64 [ 1, %.lr.ph447.preheader ], [ %ind.end717, %middle.block711 ]
  br label %.lr.ph447

vector.ph714:                                     ; preds = %.lr.ph447.preheader
  %n.vec716 = and i64 %219, 2147483644
  %ind.end717 = or disjoint i64 %n.vec716, 1
  br label %vector.body719

vector.body719:                                   ; preds = %vector.body719, %vector.ph714
  %index720 = phi i64 [ 0, %vector.ph714 ], [ %index.next722, %vector.body719 ]
  %220 = getelementptr double, ptr %5, i64 %index720
  %221 = getelementptr inbounds i8, ptr %220, i64 16
  store <2 x double> <double 1.000000e+00, double 1.000000e+00>, ptr %220, align 8, !tbaa !9
  store <2 x double> <double 1.000000e+00, double 1.000000e+00>, ptr %221, align 8, !tbaa !9
  %index.next722 = add nuw i64 %index720, 4
  %222 = icmp eq i64 %index.next722, %n.vec716
  br i1 %222, label %middle.block711, label %vector.body719, !llvm.loop !35

middle.block711:                                  ; preds = %vector.body719
  %cmp.n723 = icmp eq i64 %n.vec716, %219
  br i1 %cmp.n723, label %.preheader344, label %.lr.ph447.preheader735

.preheader344:                                    ; preds = %.lr.ph447, %middle.block711
  br i1 %.not278465, label %.loopexit343, label %.lr.ph462.preheader

.lr.ph462.preheader:                              ; preds = %.preheader344
  %223 = add nuw i32 %182, 1
  %wide.trip.count629 = zext i32 %223 to i64
  br label %.lr.ph462

.lr.ph447:                                        ; preds = %.lr.ph447.preheader735, %.lr.ph447
  %indvars.iv612 = phi i64 [ %indvars.iv.next613, %.lr.ph447 ], [ %indvars.iv612.ph, %.lr.ph447.preheader735 ]
  %224 = getelementptr inbounds double, ptr %12, i64 %indvars.iv612
  store double 1.000000e+00, ptr %224, align 8, !tbaa !9
  %indvars.iv.next613 = add nuw nsw i64 %indvars.iv612, 1
  %exitcond616.not = icmp eq i64 %indvars.iv.next613, %wide.trip.count615
  br i1 %exitcond616.not, label %.preheader344, label %.lr.ph447, !llvm.loop !36

.lr.ph462:                                        ; preds = %.lr.ph462.preheader, %._crit_edge454
  %indvars.iv619 = phi i64 [ 1, %.lr.ph462.preheader ], [ %indvars.iv.next620, %._crit_edge454 ]
  %.10231461 = phi i32 [ 1, %.lr.ph462.preheader ], [ %.11232.lcssa, %._crit_edge454 ]
  %indvars628 = trunc i64 %indvars.iv619 to i32
  %225 = load i32, ptr %3, align 4, !tbaa !5
  %.11232448 = add i32 %.10231461, 1
  %.not285.not449 = icmp sgt i32 %225, %indvars628
  br i1 %.not285.not449, label %.lr.ph453.preheader, label %._crit_edge454

.lr.ph453.preheader:                              ; preds = %.lr.ph462
  %226 = sext i32 %.11232448 to i64
  %wide.trip.count626 = zext i32 %225 to i64
  br label %.lr.ph453

.lr.ph453:                                        ; preds = %.lr.ph453.preheader, %.lr.ph453
  %indvars.iv621 = phi i64 [ %indvars.iv619, %.lr.ph453.preheader ], [ %indvars.iv.next622, %.lr.ph453 ]
  %indvars.iv617 = phi i64 [ %226, %.lr.ph453.preheader ], [ %indvars.iv.next618, %.lr.ph453 ]
  %indvars.iv.next622 = add nuw nsw i64 %indvars.iv621, 1
  %227 = getelementptr inbounds %struct.doublecomplex, ptr %13, i64 %indvars.iv617
  %228 = tail call { double, double } @Cd(ptr noundef nonnull %227)
  %229 = extractvalue { double, double } %228, 0
  %230 = extractvalue { double, double } %228, 1
  %231 = tail call double @cabs(double noundef %229, double noundef %230) #7
  %232 = getelementptr double, ptr %5, i64 %indvars.iv621
  %233 = load double, ptr %232, align 8, !tbaa !9
  %234 = fadd double %231, %233
  store double %234, ptr %232, align 8, !tbaa !9
  %indvars.iv.next618 = add nsw i64 %indvars.iv617, 1
  %exitcond627.not = icmp eq i64 %indvars.iv.next622, %wide.trip.count626
  br i1 %exitcond627.not, label %._crit_edge454.loopexit, label %.lr.ph453, !llvm.loop !37

._crit_edge454.loopexit:                          ; preds = %.lr.ph453
  %235 = trunc nsw i64 %indvars.iv.next618 to i32
  br label %._crit_edge454

._crit_edge454:                                   ; preds = %._crit_edge454.loopexit, %.lr.ph462
  %.11232.lcssa = phi i32 [ %.11232448, %.lr.ph462 ], [ %235, %._crit_edge454.loopexit ]
  %indvars.iv.next620 = add nuw nsw i64 %indvars.iv619, 1
  %exitcond630.not = icmp eq i64 %indvars.iv.next620, %wide.trip.count629
  br i1 %exitcond630.not, label %.loopexit343, label %.lr.ph462, !llvm.loop !38

236:                                              ; preds = %216
  br i1 %.not278465, label %.loopexit343, label %.lr.ph482.preheader

.lr.ph482.preheader:                              ; preds = %236
  %237 = zext nneg i32 %182 to i64
  %238 = shl nuw nsw i64 %237, 3
  tail call void @llvm.memset.p0.i64(ptr align 8 %5, i8 0, i64 %238, i1 false), !tbaa !9
  %239 = add nuw i32 %182, 1
  %wide.trip.count646 = zext i32 %239 to i64
  br label %.lr.ph482

.lr.ph482:                                        ; preds = %.lr.ph482.preheader, %._crit_edge474
  %indvars.iv634 = phi i64 [ 1, %.lr.ph482.preheader ], [ %indvars.iv.next635, %._crit_edge474 ]
  %.12233481 = phi i32 [ 1, %.lr.ph482.preheader ], [ %.13234.lcssa, %._crit_edge474 ]
  %indvars645 = trunc i64 %indvars.iv634 to i32
  %240 = load i32, ptr %3, align 4, !tbaa !5
  %.not281469 = icmp slt i32 %240, %indvars645
  br i1 %.not281469, label %._crit_edge474, label %.lr.ph473.preheader

.lr.ph473.preheader:                              ; preds = %.lr.ph482
  %241 = sext i32 %.12233481 to i64
  %242 = add i32 %240, 1
  %wide.trip.count643 = zext i32 %242 to i64
  br label %.lr.ph473

.lr.ph473:                                        ; preds = %.lr.ph473.preheader, %.lr.ph473
  %indvars.iv638 = phi i64 [ %241, %.lr.ph473.preheader ], [ %indvars.iv.next639, %.lr.ph473 ]
  %indvars.iv636 = phi i64 [ %indvars.iv634, %.lr.ph473.preheader ], [ %indvars.iv.next637, %.lr.ph473 ]
  %243 = getelementptr inbounds %struct.doublecomplex, ptr %13, i64 %indvars.iv638
  %244 = tail call { double, double } @Cd(ptr noundef nonnull %243)
  %245 = extractvalue { double, double } %244, 0
  %246 = extractvalue { double, double } %244, 1
  %247 = tail call double @cabs(double noundef %245, double noundef %246) #7
  %248 = getelementptr inbounds double, ptr %12, i64 %indvars.iv636
  %249 = load double, ptr %248, align 8, !tbaa !9
  %250 = fadd double %247, %249
  store double %250, ptr %248, align 8, !tbaa !9
  %indvars.iv.next639 = add nsw i64 %indvars.iv638, 1
  %indvars.iv.next637 = add nuw nsw i64 %indvars.iv636, 1
  %exitcond644.not = icmp eq i64 %indvars.iv.next637, %wide.trip.count643
  br i1 %exitcond644.not, label %._crit_edge474.loopexit, label %.lr.ph473, !llvm.loop !39

._crit_edge474.loopexit:                          ; preds = %.lr.ph473
  %251 = trunc nsw i64 %indvars.iv.next639 to i32
  br label %._crit_edge474

._crit_edge474:                                   ; preds = %._crit_edge474.loopexit, %.lr.ph482
  %.13234.lcssa = phi i32 [ %.12233481, %.lr.ph482 ], [ %251, %._crit_edge474.loopexit ]
  %indvars.iv.next635 = add nuw nsw i64 %indvars.iv634, 1
  %exitcond647.not = icmp eq i64 %indvars.iv.next635, %wide.trip.count646
  br i1 %exitcond647.not, label %.loopexit343, label %.lr.ph482, !llvm.loop !40

.loopexit343:                                     ; preds = %._crit_edge416, %._crit_edge433, %._crit_edge454, %._crit_edge474, %.preheader348, %184, %203, %.preheader344, %217, %236
  %252 = load i32, ptr %3, align 4, !tbaa !5
  %.not294485 = icmp slt i32 %252, 1
  br i1 %.not294485, label %.loopexit334, label %.lr.ph489.preheader

.lr.ph489.preheader:                              ; preds = %.loopexit343
  %253 = add nuw i32 %252, 1
  %wide.trip.count651 = zext i32 %253 to i64
  br label %.lr.ph489

.lr.ph489:                                        ; preds = %.lr.ph489.preheader, %259
  %indvars.iv648 = phi i64 [ 1, %.lr.ph489.preheader ], [ %indvars.iv.next649, %259 ]
  %.16254486 = phi double [ 0.000000e+00, %.lr.ph489.preheader ], [ %.17255, %259 ]
  %254 = getelementptr inbounds double, ptr %12, i64 %indvars.iv648
  %255 = load double, ptr %254, align 8, !tbaa !9
  store double %255, ptr %10, align 8, !tbaa !9
  %256 = fcmp olt double %.16254486, %255
  br i1 %256, label %259, label %257

257:                                              ; preds = %.lr.ph489
  %258 = call i32 @disnan_(ptr noundef nonnull %10) #7
  %.not295 = icmp eq i32 %258, 0
  br i1 %.not295, label %259, label %._crit_edge674

._crit_edge674:                                   ; preds = %257
  %.pre675 = load double, ptr %10, align 8, !tbaa !9
  br label %259

259:                                              ; preds = %.lr.ph489, %._crit_edge674, %257
  %.17255 = phi double [ %.16254486, %257 ], [ %.pre675, %._crit_edge674 ], [ %255, %.lr.ph489 ]
  %indvars.iv.next649 = add nuw nsw i64 %indvars.iv648, 1
  %exitcond652.not = icmp eq i64 %indvars.iv.next649, %wide.trip.count651
  br i1 %exitcond652.not, label %.loopexit334, label %.lr.ph489, !llvm.loop !41

260:                                              ; preds = %177
  %261 = tail call i32 @lsame_(ptr noundef nonnull %0, ptr noundef nonnull @.str.4) #7
  %.not264 = icmp eq i32 %261, 0
  br i1 %.not264, label %262, label %264

262:                                              ; preds = %260
  %263 = tail call i32 @lsame_(ptr noundef nonnull %0, ptr noundef nonnull @.str.5) #7
  %.not265 = icmp eq i32 %263, 0
  br i1 %.not265, label %.loopexit334, label %264

264:                                              ; preds = %262, %260
  %265 = tail call i32 @lsame_(ptr noundef %1, ptr noundef nonnull @.str.1) #7
  %.not266 = icmp eq i32 %265, 0
  %266 = tail call i32 @lsame_(ptr noundef %2, ptr noundef nonnull @.str.1) #7
  %.not267 = icmp eq i32 %266, 0
  br i1 %.not266, label %288, label %267

267:                                              ; preds = %264
  br i1 %.not267, label %279, label %268

268:                                              ; preds = %267
  store double 1.000000e+00, ptr %11, align 16, !tbaa !9
  %269 = load i32, ptr %3, align 4, !tbaa !5
  %270 = sitofp i32 %269 to double
  %271 = getelementptr inbounds i8, ptr %11, i64 8
  store double %270, ptr %271, align 8, !tbaa !9
  %.not275491 = icmp slt i32 %269, 2
  br i1 %.not275491, label %.loopexit338, label %.lr.ph495

.lr.ph495:                                        ; preds = %268
  %272 = getelementptr inbounds i8, ptr %9, i64 8
  br label %273

273:                                              ; preds = %.lr.ph495, %273
  %274 = phi i32 [ 2, %.lr.ph495 ], [ %278, %273 ]
  %.14235493 = phi i32 [ 2, %.lr.ph495 ], [ %277, %273 ]
  %storemerge274492 = phi i32 [ 1, %.lr.ph495 ], [ %274, %273 ]
  store <2 x double> <double 0.000000e+00, double 1.000000e+00>, ptr %9, align 16, !tbaa !9
  store i32 %storemerge274492, ptr %7, align 4, !tbaa !5
  %275 = zext nneg i32 %.14235493 to i64
  %276 = getelementptr inbounds %struct.doublecomplex, ptr %13, i64 %275
  call void @zlassq_(ptr noundef nonnull %7, ptr noundef nonnull %276, ptr noundef nonnull @c__1, ptr noundef nonnull %9, ptr noundef nonnull %272) #7
  call void @dcombssq_(ptr noundef nonnull %11, ptr noundef nonnull %9) #7
  %277 = add nuw nsw i32 %274, %.14235493
  %278 = add nuw nsw i32 %274, 1
  %.not275.not = icmp slt i32 %274, %269
  br i1 %.not275.not, label %273, label %.loopexit338, !llvm.loop !42

279:                                              ; preds = %267
  store <2 x double> <double 0.000000e+00, double 1.000000e+00>, ptr %11, align 16, !tbaa !9
  %280 = load i32, ptr %3, align 4, !tbaa !5
  store i32 1, ptr %8, align 4, !tbaa !5
  %.not273496 = icmp slt i32 %280, 1
  br i1 %.not273496, label %.loopexit338, label %.lr.ph499

.lr.ph499:                                        ; preds = %279
  %281 = getelementptr inbounds i8, ptr %9, i64 8
  br label %282

282:                                              ; preds = %.lr.ph499, %282
  %.15236497 = phi i32 [ 1, %.lr.ph499 ], [ %286, %282 ]
  store <2 x double> <double 0.000000e+00, double 1.000000e+00>, ptr %9, align 16, !tbaa !9
  %283 = sext i32 %.15236497 to i64
  %284 = getelementptr inbounds %struct.doublecomplex, ptr %13, i64 %283
  call void @zlassq_(ptr noundef nonnull %8, ptr noundef nonnull %284, ptr noundef nonnull @c__1, ptr noundef nonnull %9, ptr noundef nonnull %281) #7
  call void @dcombssq_(ptr noundef nonnull %11, ptr noundef nonnull %9) #7
  %285 = load i32, ptr %8, align 4, !tbaa !5
  %286 = add nsw i32 %285, %.15236497
  %287 = add nsw i32 %285, 1
  store i32 %287, ptr %8, align 4, !tbaa !5
  %.not273.not = icmp slt i32 %285, %280
  br i1 %.not273.not, label %282, label %.loopexit338, !llvm.loop !43

288:                                              ; preds = %264
  br i1 %.not267, label %305, label %289

289:                                              ; preds = %288
  store double 1.000000e+00, ptr %11, align 16, !tbaa !9
  %290 = load i32, ptr %3, align 4, !tbaa !5
  %291 = sitofp i32 %290 to double
  %292 = getelementptr inbounds i8, ptr %11, i64 8
  store double %291, ptr %292, align 8, !tbaa !9
  %.not270.not500 = icmp sgt i32 %290, 1
  br i1 %.not270.not500, label %.lr.ph504, label %.loopexit338

.lr.ph504:                                        ; preds = %289
  %293 = getelementptr inbounds i8, ptr %9, i64 8
  br label %294

294:                                              ; preds = %.lr.ph504, %294
  %295 = phi i32 [ %290, %.lr.ph504 ], [ %300, %294 ]
  %.16237502 = phi i32 [ 2, %.lr.ph504 ], [ %303, %294 ]
  %296 = phi i32 [ 1, %.lr.ph504 ], [ %304, %294 ]
  store <2 x double> <double 0.000000e+00, double 1.000000e+00>, ptr %9, align 16, !tbaa !9
  %297 = sub nsw i32 %295, %296
  store i32 %297, ptr %7, align 4, !tbaa !5
  %298 = sext i32 %.16237502 to i64
  %299 = getelementptr inbounds %struct.doublecomplex, ptr %13, i64 %298
  call void @zlassq_(ptr noundef nonnull %7, ptr noundef nonnull %299, ptr noundef nonnull @c__1, ptr noundef nonnull %9, ptr noundef nonnull %293) #7
  call void @dcombssq_(ptr noundef nonnull %11, ptr noundef nonnull %9) #7
  %300 = load i32, ptr %3, align 4, !tbaa !5
  %301 = add i32 %.16237502, 1
  %302 = add i32 %301, %300
  %303 = sub i32 %302, %296
  %304 = add nuw nsw i32 %296, 1
  %.not270.not = icmp slt i32 %304, %290
  br i1 %.not270.not, label %294, label %.loopexit338, !llvm.loop !44

305:                                              ; preds = %288
  store <2 x double> <double 0.000000e+00, double 1.000000e+00>, ptr %11, align 16, !tbaa !9
  %306 = load i32, ptr %3, align 4, !tbaa !5
  %.not268505 = icmp slt i32 %306, 1
  br i1 %.not268505, label %.loopexit338, label %.lr.ph509

.lr.ph509:                                        ; preds = %305
  %307 = getelementptr inbounds i8, ptr %9, i64 8
  br label %308

308:                                              ; preds = %.lr.ph509, %308
  %309 = phi i32 [ 1, %.lr.ph509 ], [ %319, %308 ]
  %310 = phi i32 [ %306, %.lr.ph509 ], [ %315, %308 ]
  %.17507 = phi i32 [ 1, %.lr.ph509 ], [ %318, %308 ]
  %storemerge506.neg = phi i32 [ -1, %.lr.ph509 ], [ %.neg543, %308 ]
  store <2 x double> <double 0.000000e+00, double 1.000000e+00>, ptr %9, align 16, !tbaa !9
  %311 = add i32 %storemerge506.neg, 1
  %312 = add i32 %311, %310
  store i32 %312, ptr %7, align 4, !tbaa !5
  %313 = sext i32 %.17507 to i64
  %314 = getelementptr inbounds %struct.doublecomplex, ptr %13, i64 %313
  call void @zlassq_(ptr noundef nonnull %7, ptr noundef nonnull %314, ptr noundef nonnull @c__1, ptr noundef nonnull %9, ptr noundef nonnull %307) #7
  call void @dcombssq_(ptr noundef nonnull %11, ptr noundef nonnull %9) #7
  %315 = load i32, ptr %3, align 4, !tbaa !5
  %316 = add i32 %.17507, 1
  %317 = add i32 %316, %315
  %318 = sub i32 %317, %309
  %.neg543 = xor i32 %309, -1
  %319 = add nuw nsw i32 %309, 1
  %.not268.not = icmp slt i32 %309, %306
  br i1 %.not268.not, label %308, label %.loopexit338, !llvm.loop !45

.loopexit338:                                     ; preds = %273, %282, %294, %308, %268, %279, %289, %305
  %320 = load double, ptr %11, align 16, !tbaa !9
  %321 = getelementptr inbounds i8, ptr %11, i64 8
  %322 = load double, ptr %321, align 8, !tbaa !9
  %323 = call double @sqrt(double noundef %322) #7
  %324 = fmul double %320, %323
  br label %.loopexit334

.loopexit334:                                     ; preds = %._crit_edge, %._crit_edge370, %._crit_edge384, %._crit_edge398, %259, %137, %175, %23, %40, %62, %78, %.loopexit343, %108, %139, %6, %.loopexit338, %262
  %.18 = phi double [ %324, %.loopexit338 ], [ undef, %262 ], [ 0.000000e+00, %6 ], [ 0.000000e+00, %139 ], [ 0.000000e+00, %108 ], [ 0.000000e+00, %.loopexit343 ], [ 0.000000e+00, %78 ], [ 0.000000e+00, %62 ], [ 1.000000e+00, %40 ], [ 1.000000e+00, %23 ], [ %.15253, %175 ], [ %.13251, %137 ], [ %.17255, %259 ], [ %.10248.lcssa, %._crit_edge398 ], [ %.7245.lcssa, %._crit_edge384 ], [ %.4242.lcssa, %._crit_edge370 ], [ %.1239.lcssa, %._crit_edge ]
  call void @llvm.lifetime.end.p0(i64 16, ptr nonnull %11) #7
  call void @llvm.lifetime.end.p0(i64 8, ptr nonnull %10) #7
  call void @llvm.lifetime.end.p0(i64 16, ptr nonnull %9) #7
  call void @llvm.lifetime.end.p0(i64 4, ptr nonnull %8) #7
  call void @llvm.lifetime.end.p0(i64 4, ptr nonnull %7) #7
  ret double %.18
}

; Function Attrs: mustprogress nocallback nofree nosync nounwind willreturn memory(argmem: readwrite)
declare void @llvm.lifetime.start.p0(i64 immarg, ptr nocapture) #1

declare i32 @lsame_(ptr noundef, ptr noundef) local_unnamed_addr #2

; Function Attrs: nofree nounwind
declare double @cabs(double noundef, double noundef) local_unnamed_addr #3

; Function Attrs: inlinehint nounwind uwtable
declare hidden { double, double } @Cd(ptr noundef) local_unnamed_addr #4

declare i32 @disnan_(ptr noundef) local_unnamed_addr #2

declare void @zlassq_(ptr noundef, ptr noundef, ptr noundef, ptr noundef, ptr noundef) local_unnamed_addr #2

declare void @dcombssq_(ptr noundef, ptr noundef) local_unnamed_addr #2

; Function Attrs: mustprogress nofree nounwind willreturn memory(write)
declare double @sqrt(double noundef) local_unnamed_addr #5

; Function Attrs: mustprogress nocallback nofree nosync nounwind willreturn memory(argmem: readwrite)
declare void @llvm.lifetime.end.p0(i64 immarg, ptr nocapture) #1

; Function Attrs: nocallback nofree nounwind willreturn memory(argmem: write)
declare void @llvm.memset.p0.i64(ptr nocapture writeonly, i8, i64, i1 immarg) #6

attributes #0 = { nounwind uwtable "min-legal-vector-width"="0" "no-trapping-math"="true" "stack-protector-buffer-size"="8" "target-cpu"="x86-64" "target-features"="+cmov,+cx8,+fxsr,+mmx,+sse,+sse2,+x87" "tune-cpu"="generic" }
attributes #1 = { mustprogress nocallback nofree nosync nounwind willreturn memory(argmem: readwrite) }
attributes #2 = { "no-trapping-math"="true" "stack-protector-buffer-size"="8" "target-cpu"="x86-64" "target-features"="+cmov,+cx8,+fxsr,+mmx,+sse,+sse2,+x87" "tune-cpu"="generic" }
attributes #3 = { nofree nounwind "no-trapping-math"="true" "stack-protector-buffer-size"="8" "target-cpu"="x86-64" "target-features"="+cmov,+cx8,+fxsr,+mmx,+sse,+sse2,+x87" "tune-cpu"="generic" }
attributes #4 = { inlinehint nounwind uwtable "min-legal-vector-width"="0" "no-trapping-math"="true" "stack-protector-buffer-size"="8" "target-cpu"="x86-64" "target-features"="+cmov,+cx8,+fxsr,+mmx,+sse,+sse2,+x87" "tune-cpu"="generic" }
attributes #5 = { mustprogress nofree nounwind willreturn memory(write) "no-trapping-math"="true" "stack-protector-buffer-size"="8" "target-cpu"="x86-64" "target-features"="+cmov,+cx8,+fxsr,+mmx,+sse,+sse2,+x87" "tune-cpu"="generic" }
attributes #6 = { nocallback nofree nounwind willreturn memory(argmem: write) }
attributes #7 = { nounwind }

!llvm.module.flags = !{!0, !1, !2, !3}
!llvm.ident = !{!4}

!0 = !{i32 1, !"wchar_size", i32 4}
!1 = !{i32 8, !"PIC Level", i32 2}
!2 = !{i32 7, !"PIE Level", i32 2}
!3 = !{i32 7, !"uwtable", i32 2}
!4 = !{!"clang version 19.1.0 (git@github.com:llvm/llvm-project.git a4bf6cd7cfb1a1421ba92bca9d017b49936c55e4)"}
!5 = !{!6, !6, i64 0}
!6 = !{!"int", !7, i64 0}
!7 = !{!"omnipotent char", !8, i64 0}
!8 = !{!"Simple C/C++ TBAA"}
!9 = !{!10, !10, i64 0}
!10 = !{!"double", !7, i64 0}
!11 = distinct !{!11, !12}
!12 = !{!"llvm.loop.mustprogress"}
!13 = distinct !{!13, !12}
!14 = distinct !{!14, !12}
!15 = distinct !{!15, !12}
!16 = distinct !{!16, !12}
!17 = distinct !{!17, !12}
!18 = distinct !{!18, !12}
!19 = distinct !{!19, !12}
!20 = !{!7, !7, i64 0}
!21 = distinct !{!21, !12}
!22 = distinct !{!22, !12}
!23 = distinct !{!23, !12}
!24 = distinct !{!24, !12}
!25 = distinct !{!25, !12}
!26 = distinct !{!26, !12}
!27 = distinct !{!27, !12, !28, !29}
!28 = !{!"llvm.loop.isvectorized", i32 1}
!29 = !{!"llvm.loop.unroll.runtime.disable"}
!30 = distinct !{!30, !12, !29, !28}
!31 = distinct !{!31, !12}
!32 = distinct !{!32, !12}
!33 = distinct !{!33, !12}
!34 = distinct !{!34, !12}
!35 = distinct !{!35, !12, !28, !29}
!36 = distinct !{!36, !12, !29, !28}
!37 = distinct !{!37, !12}
!38 = distinct !{!38, !12}
!39 = distinct !{!39, !12}
!40 = distinct !{!40, !12}
!41 = distinct !{!41, !12}
!42 = distinct !{!42, !12}
!43 = distinct !{!43, !12}
!44 = distinct !{!44, !12}
!45 = distinct !{!45, !12}


; Effective O3 passes: DSEPass,EarlyCSEPass,GVNPass,GlobalOptPass,IndVarSimplifyPass,InferFunctionAttrsPass,InstCombinePass,InstSimplifyPass,JumpThreadingPass,LCSSAPass,LICMPass,LoopIdiomRecognizePass,LoopLoadEliminationPass,LoopRotatePass,LoopSimplifyPass,LoopUnrollPass,LoopVectorizePass,PostOrderFunctionAttrsPass,ReassociatePass,SCCPPass,SLPVectorizerPass,SROAPass,SimplifyCFGPass,TailCallElimPass