Similarity

37c427e20
37c427e20zunmbr_64_:
37c427e20push r15
37c427e22push r14
37c427e24push r13
37c427e26push r12
37c427e28push rbp
37c427e29push rdi
37c427e2apush rsi
37c427e2bpush rbx
37c427e2csub rsp, 232
37c427e33mov rax, [rsp+360]
37c427e3bmov rax, [rax]
37c427e3emov rsi, rdx
37c427e41mov rdi, r8
37c427e44mov rbx, r9
37c427e47mov r8l, 1
37c427e4dmov r9l, 1
37c427e53mov [rsp+152], rax
37c427e5blea rdx, [rip+0x4ca1e]
37c427e62mov rbp, rcx
37c427e65mov rax, [rsp+384]
37c427e6dmov rax, [rax]
37c427e70mov [rsp+144], rax
37c427e78mov rax, [rsp+408]
37c427e80mov [rax], 0
37c427e87call lsame_64_
37c427e8cmov r9l, 1
37c427e92mov r8l, 1
37c427e98mov rcx, rsi
37c427e9blea rdx, [rip+0x4c9df]
37c427ea2mov r12, rax
37c427ea5call lsame_64_
37c427eaamov r9l, 1
37c427eb0mov r8l, 1
37c427eb6mov rcx, rdi
37c427eb9lea rdx, [rip+0x4c9c2]
37c427ec0mov r13, rax
37c427ec3call lsame_64_
37c427ec8mov r15, [rbx]
37c427ecbmov [rsp+136], rax
37c427ed3mov rax, [rsp+400]
37c427edbmov r14, [rax]
37c427edemov rax, [rsp+336]
37c427ee6mov r11, [rax]
37c427ee9test r13, r13
37c427eecje 0x37c427f88
37c427ef2test r12, r12
37c427ef5je 0x37c4280c0
37c427efb
37c427efbloc_37c427efb:
37c427efbtest r11, r11
37c427efemov eax, 1
37c427f03cmovg rax, r11
37c427f07mov rbp, rax
37c427f0a
37c427f0aloc_37c427f0a:
37c427f0acmp [rsp+136], 0
37c427f13je 0x37c428020
37c427f19
37c427f19loc_37c427f19:
37c427f19mov rdx, [rbx]
37c427f1ctest rdx, rdx
37c427f1fjs 0x37c427fd0
37c427f25mov rax, [rsp+336]
37c427f2dmov rcx, [rax]
37c427f30test rcx, rcx
37c427f33js 0x37c428180
37c427f39mov rax, [rsp+344]
37c427f41mov rax, [rax]
37c427f44test rax, rax
37c427f47js 0x37c428100
37c427f4dmov r10, [rsp+360]
37c427f55mov r8, [r10]
37c427f58test r12, r12
37c427f5bje 0x37c428118
37c427f61test r15, r15
37c427f64mov eax, 1
37c427f69cmovg rax, r15
37c427f6dcmp rax, r8
37c427f70jle 0x37c428135
37c427f76
37c427f76loc_37c427f76:
37c427f76mov rdx, -8
37c427f7dmov eax, 8
37c427f82jmp 0x37c427fdc
37c427f84
37c427f84 0f 1f 40 00 ..@.
37c427f88
37c427f88loc_37c427f88:
37c427f88test r12, r12
37c427f8bje 0x37c428078
37c427f91
37c427f91loc_37c427f91:
37c427f91mov r9l, 1
37c427f97mov r8l, 1
37c427f9dmov rcx, rsi
37c427fa0mov [rsp+160], r11
37c427fa8lea rdx, [rip+0x4c8d4]
37c427fafcall lsame_64_
37c427fb4test rax, rax
37c427fb7jne 0x37c428058
37c427fbdmov rdx, -2
37c427fc4mov eax, 2
37c427fc9jmp 0x37c427fdc
37c427fcb
37c427fcb 0f 1f 44 00 00 ..D..
37c427fd0
37c427fd0loc_37c427fd0:
37c427fd0mov rdx, -4
37c427fd7mov eax, 4
37c427fdc
37c427fdcloc_37c427fdc:
37c427fdcmov rdi, [rsp+408]
37c427fe4mov [rdi], rdx
37c427fe7
37c427fe7loc_37c427fe7:
37c427fe7lea rdx, [rsp+216]
37c427fefmov r8l, 6
37c427ff5lea rcx, [rip+0x4c8aa]
37c427ffcmov [rsp+216], rax
37c428004call xerbla_64_
37c428009nop
37c42800a
37c42800aloc_37c42800a:
37c42800aadd rsp, 232
37c428011pop rbx
37c428012pop rsi
37c428013pop rdi
37c428014pop rbp
37c428015pop r12
37c428017pop r13
37c428019pop r14
37c42801bpop r15
37c42801dret
37c42801e
37c42801e 66 90 f.
37c428020
37c428020loc_37c428020:
37c428020mov r9l, 1
37c428026mov r8l, 1
37c42802clea rdx, [rip+0x4c851]
37c428033mov rcx, rdi
37c428036call lsame_64_
37c42803btest rax, rax
37c42803ejne 0x37c427f19
37c428044mov rdx, -3
37c42804bmov eax, 3
37c428050jmp 0x37c427fdc
37c428052
37c428052 66 0f 1f 44 00 00 f..D..
37c428058
37c428058loc_37c428058:
37c428058test r15, r15
37c42805bmov eax, 1
37c428060cmovg rax, r15
37c428064mov r15, [rsp+160]
37c42806cmov rbp, rax
37c42806fjmp 0x37c427f0a
37c428074
37c428074 0f 1f 40 00 ..@.
37c428078
37c428078loc_37c428078:
37c428078mov r9l, 1
37c42807emov r8l, 1
37c428084mov rcx, rbp
37c428087mov [rsp+160], r11
37c42808flea rdx, [rip+0x4c816]
37c428096call lsame_64_
37c42809bmov r11, [rsp+160]
37c4280a3test rax, rax
37c4280a6jne 0x37c427f91
37c4280ac
37c4280acloc_37c4280ac:
37c4280acmov rdx, -1
37c4280b3mov eax, 1
37c4280b8jmp 0x37c427fdc
37c4280bd
37c4280bd 0f 1f 00 ...
37c4280c0
37c4280c0loc_37c4280c0:
37c4280c0mov r9l, 1
37c4280c6mov r8l, 1
37c4280ccmov rcx, rbp
37c4280cfmov [rsp+160], r11
37c4280d7lea rdx, [rip+0x4c7ce]
37c4280decall lsame_64_
37c4280e3mov r11, [rsp+160]
37c4280ebtest rax, rax
37c4280eejne 0x37c427efb
37c4280f4jmp 0x37c4280ac
37c4280f6
37c4280f6 66 2e 0f 1f 84 00 00 00 00 00 f.........
37c428100
37c428100loc_37c428100:
37c428100mov rdx, -6
37c428107mov eax, 6
37c42810cjmp 0x37c427fdc
37c428111
37c428111 0f 1f 80 00 00 00 00 .......
37c428118
37c428118loc_37c428118:
37c428118cmp rax, r15
37c42811bmov r9l, 1
37c428121cmovg rax, r15
37c428125test rax, rax
37c428128cmovle rax, r9
37c42812ccmp rax, r8
37c42812fjg 0x37c427f76
37c428135
37c428135loc_37c428135:
37c428135mov r10, [rsp+384]
37c42813dtest rdx, rdx
37c428140mov eax, 1
37c428145cmovg rax, rdx
37c428149cmp [r10], rax
37c42814cjl 0x37c428198
37c42814emov rax, [rsp+400]
37c428156cmp [rax], rbp
37c428159mov rax, [rsp+408]
37c428161jge 0x37c4281b0
37c428163cmp r14, -1
37c428167je 0x37c4288d0
37c42816dmov [rax], -13
37c428174mov eax, 13
37c428179jmp 0x37c427fe7
37c42817e
37c42817e 66 90 f.
37c428180
37c428180loc_37c428180:
37c428180mov rdx, -5
37c428187mov eax, 5
37c42818cjmp 0x37c427fdc
37c428191
37c428191 0f 1f 80 00 00 00 00 .......
37c428198
37c428198loc_37c428198:
37c428198mov rdx, -11
37c42819fmov eax, 11
37c4281a4jmp 0x37c427fdc
37c4281a9
37c4281a9 0f 1f 80 00 00 00 00 .......
37c4281b0
37c4281b0loc_37c4281b0:
37c4281b0mov rax, [rax]
37c4281b3test rax, rax
37c4281b6jne 0x37c428900
37c4281bctest rdx, rdx
37c4281bfje 0x37c428430
37c4281c5
37c4281c5loc_37c4281c5:
37c4281c5test rcx, rcx
37c4281c8je 0x37c428430
37c4281cemov [rsp+40], rdi
37c4281d3lea rdx, [rsp+200]
37c4281dbmov r9, rsi
37c4281demov r8l, 1
37c4281e4mov [rsp+32], 1
37c4281edtest r12, r12
37c4281f0je 0x37c428570
37c4281f6test r13, r13
37c4281f9je 0x37c428778
37c4281ffmov ecx, 2
37c428204mov [rsp+160], rdx
37c42820ccall _gfortran_concat_string
37c428211mov rax, [rbx]
37c428214mov [rsp+64], 2
37c42821dlea r9, [rsp+208]
37c428225mov [rsp+56], 6
37c42822emov r8, [rsp+160]
37c428236lea rdx, [rip+0x4c648]
37c42823dlea rcx, [rip+0x4c64c]
37c428244sub rax, 1
37c428248mov [rsp+208], rax
37c428250mov [rsp+216], rax
37c428258lea rax, [rip+0x4c639]
37c42825fmov [rsp+48], rax
37c428264lea rax, [rsp+216]
37c42826cmov [rsp+40], rax
37c428271mov rax, [rsp+336]
37c428279mov [rsp+32], rax
37c42827ecall ilaenv_64_
37c428283
37c428283loc_37c428283:
37c428283imul rax, rbp
37c428287pxor x0, x0
37c42828bcvtsi2sd x0, rax
37c428290mov rax, [rsp+408]
37c428298mov rax, [rax]
37c42829b
37c42829bloc_37c42829b:
37c42829bmov rcx, [rsp+392]
37c4282a3mov [rcx+8], 0
37c4282abmovsd_xmm [rcx], x0
37c4282aftest rax, rax
37c4282b2jne 0x37c428900
37c4282b8cmp r14, -1
37c4282bcje 0x37c42800a
37c4282c2mov rax, [rbx]
37c4282c5test rax, rax
37c4282c8je 0x37c42800a
37c4282cemov rdx, [rsp+336]
37c4282d6mov r8, [rdx]
37c4282d9test r8, r8
37c4282dcje 0x37c42800a
37c4282e2mov rcx, [rsp+144]
37c4282eaxor edx, edx
37c4282ectest rcx, rcx
37c4282efcmovs rcx, rdx
37c4282f3mov rdx, [rsp+344]
37c4282fbmov r9, rcx
37c4282femov rcx, [rdx]
37c428301test r12, r12
37c428304je 0x37c428440
37c42830acmp r15, rcx
37c42830djge 0x37c428608
37c428313cmp r15, 1
37c428317jle 0x37c428410
37c42831dtest r13, r13
37c428320je 0x37c4288c0
37c428326sub rax, 1
37c42832amov edx, 16
37c42832f
37c42832floc_37c42832f:
37c42832fmov [rsp+200], rax
37c428337lea r10, [r15-1]
37c42833blea rax, [rsp+192]
37c428343add rdx, [rsp+376]
37c42834bmov [rsp+96], rax
37c428350mov rax, [rsp+400]
37c428358mov rcx, rsi
37c42835blea r9, [rsp+208]
37c428363mov [rsp+64], rdx
37c428368mov rdx, rdi
37c42836bmov [rsp+88], rax
37c428370mov rax, [rsp+392]
37c428378mov [rsp+104], 1
37c428381mov [rsp+80], rax
37c428386mov rax, [rsp+384]
37c42838emov [rsp+208], r8
37c428396lea r8, [rsp+200]
37c42839emov [rsp+72], rax
37c4283a3mov rax, [rsp+368]
37c4283abmovsd_xmm [rsp+136], x0
37c4283b4mov [rsp+56], rax
37c4283b9mov rax, [rsp+360]
37c4283c1mov [rsp+216], r10
37c4283c9mov [rsp+48], rax
37c4283cemov rax, [rsp+352]
37c4283d6mov [rsp+112], 1
37c4283dfadd rax, 16
37c4283e3mov [rsp+40], rax
37c4283e8lea rax, [rsp+216]
37c4283f0mov [rsp+32], rax
37c4283f5call zunmqr_64_
37c4283famovsd_xmm x0, [rsp+136]
37c428403nop
37c428405nop [rax+rax]
37c428410
37c428410loc_37c428410:
37c428410mov rax, [rsp+392]
37c428418mov [rax+8], 0
37c428420movsd_xmm [rax], x0
37c428424jmp 0x37c42800a
37c428429
37c428429 0f 1f 80 00 00 00 00 .......
37c428430
37c428430loc_37c428430:
37c428430movsd_xmm x0, [rip+0x4c478]
37c428438jmp 0x37c42829b
37c42843d
37c42843d 0f 1f 00 ...
37c428440
37c428440loc_37c428440:
37c428440cmp [rsp+136], 1
37c428449sbb edx, edx
37c42844band edx, 11
37c42844eadd edx, 67
37c428451mov [rsp+191], dl
37c428458cmp r15, rcx
37c42845bjg 0x37c4286b8
37c428461cmp r15, 1
37c428465jle 0x37c428410
37c428467mov rbx, [rsp+152]
37c42846fxor ecx, ecx
37c428471test rbx, rbx
37c428474cmovns rcx, rbx
37c428478test r13, r13
37c42847bje 0x37c4288a8
37c428481sub rax, 1
37c428485mov edx, 16
37c42848a
37c42848aloc_37c42848a:
37c42848amov [rsp+200], rax
37c428492lea rax, [rsp+192]
37c42849aadd rdx, [rsp+376]
37c4284a2lea r10, [r15-1]
37c4284a6mov [rsp+96], rax
37c4284abmov rax, [rsp+400]
37c4284b3lea r9, [rsp+208]
37c4284bbmov [rsp+64], rdx
37c4284c0lea rdx, [rsp+191]
37c4284c8mov [rsp+88], rax
37c4284cdmov rax, [rsp+392]
37c4284d5mov [rsp+104], 1
37c4284demov [rsp+80], rax
37c4284e3mov rax, [rsp+384]
37c4284ebmov [rsp+208], r8
37c4284f3lea r8, [rsp+200]
37c4284fbmov [rsp+72], rax
37c428500mov rax, [rsp+368]
37c428508movsd_xmm [rsp+136], x0
37c428511mov [rsp+56], rax
37c428516mov rax, [rsp+360]
37c42851emov [rsp+216], r10
37c428526mov [rsp+48], rax
37c42852bmov rax, rcx
37c42852emov rcx, rsi
37c428531mov [rsp+112], 1
37c42853ashl rax, 4
37c42853eadd rax, [rsp+352]
37c428546mov [rsp+40], rax
37c42854blea rax, [rsp+216]
37c428553mov [rsp+32], rax
37c428558call zunmlq_64_
37c42855dmovsd_xmm x0, [rsp+136]
37c428566jmp 0x37c428410
37c42856b
37c42856b 0f 1f 44 00 00 ..D..
37c428570
37c428570loc_37c428570:
37c428570test r13, r13
37c428573je 0x37c428810
37c428579mov ecx, 2
37c42857emov [rsp+160], rdx
37c428586call _gfortran_concat_string
37c42858bmov rax, [rbx]
37c42858emov [rsp+64], 2
37c428597lea r9, [rsp+208]
37c42859fmov [rsp+56], 6
37c4285a8mov r8, [rsp+160]
37c4285b0lea rdx, [rip+0x4c2e9]
37c4285b7lea rcx, [rip+0x4c2d2]
37c4285besub rax, 1
37c4285c2mov [rsp+208], rax
37c4285camov [rsp+216], rax
37c4285d2lea rax, [rip+0x4c2bf]
37c4285d9mov [rsp+48], rax
37c4285delea rax, [rsp+216]
37c4285e6mov [rsp+40], rax
37c4285ebmov rax, [rsp+336]
37c4285f3mov [rsp+32], rax
37c4285f8call ilaenv_64_
37c4285fdjmp 0x37c428283
37c428602
37c428602 66 0f 1f 44 00 00 f..D..
37c428608
37c428608loc_37c428608:
37c428608lea rax, [rsp+192]
37c428610mov r8, rbx
37c428613mov rcx, rsi
37c428616mov [rsp+32], rdx
37c42861bmov [rsp+96], rax
37c428620mov rax, [rsp+400]
37c428628mov rdx, rdi
37c42862bmov [rsp+112], 1
37c428634mov r9, [rsp+336]
37c42863cmov [rsp+88], rax
37c428641mov rax, [rsp+392]
37c428649mov [rsp+104], 1
37c428652mov [rsp+80], rax
37c428657mov rax, [rsp+384]
37c42865fmovsd_xmm [rsp+136], x0
37c428668mov [rsp+72], rax
37c42866dmov rax, [rsp+376]
37c428675mov [rsp+64], rax
37c42867amov rax, [rsp+368]
37c428682mov [rsp+56], rax
37c428687mov rax, [rsp+360]
37c42868fmov [rsp+48], rax
37c428694mov rax, [rsp+352]
37c42869cmov [rsp+40], rax
37c4286a1call zunmqr_64_
37c4286a6movsd_xmm x0, [rsp+136]
37c4286afjmp 0x37c428410
37c4286b4
37c4286b4 0f 1f 40 00 ..@.
37c4286b8
37c4286b8loc_37c4286b8:
37c4286b8lea rax, [rsp+192]
37c4286c0mov r8, rbx
37c4286c3mov rcx, rsi
37c4286c6mov [rsp+112], 1
37c4286cfmov [rsp+96], rax
37c4286d4mov rax, [rsp+400]
37c4286dclea rdx, [rsp+191]
37c4286e4mov [rsp+104], 1
37c4286edmov r9, [rsp+336]
37c4286f5mov [rsp+88], rax
37c4286famov rax, [rsp+392]
37c428702movsd_xmm [rsp+136], x0
37c42870bmov [rsp+80], rax
37c428710mov rax, [rsp+384]
37c428718mov [rsp+72], rax
37c42871dmov rax, [rsp+376]
37c428725mov [rsp+64], rax
37c42872amov rax, [rsp+368]
37c428732mov [rsp+56], rax
37c428737mov rax, [rsp+360]
37c42873fmov [rsp+48], rax
37c428744mov rax, [rsp+352]
37c42874cmov [rsp+40], rax
37c428751mov rax, [rsp+344]
37c428759mov [rsp+32], rax
37c42875ecall zunmlq_64_
37c428763movsd_xmm x0, [rsp+136]
37c42876cjmp 0x37c428410
37c428771
37c428771 0f 1f 80 00 00 00 00 .......
37c428778
37c428778loc_37c428778:
37c428778mov ecx, 2
37c42877dmov [rsp+168], rdx
37c428785call _gfortran_concat_string
37c42878amov rax, [rsp+336]
37c428792mov r9, rbx
37c428795mov r8, [rsp+168]
37c42879dlea rdx, [rip+0x4c0e1]
37c4287a4lea rcx, [rip+0x4c0e5]
37c4287abmov rax, [rax]
37c4287aemov [rsp+64], 2
37c4287b7mov [rsp+56], 6
37c4287c0mov [rsp+160], rax
37c4287c8sub rax, 1
37c4287ccmov [rsp+208], rax
37c4287d4mov [rsp+216], rax
37c4287dclea rax, [rip+0x4c0b5]
37c4287e3mov [rsp+48], rax
37c4287e8lea rax, [rsp+216]
37c4287f0mov [rsp+40], rax
37c4287f5lea rax, [rsp+208]
37c4287fdmov [rsp+32], rax
37c428802call ilaenv_64_
37c428807jmp 0x37c428283
37c42880c
37c42880c 0f 1f 40 00 ..@.
37c428810
37c428810loc_37c428810:
37c428810mov ecx, 2
37c428815mov [rsp+168], rdx
37c42881dcall _gfortran_concat_string
37c428822mov rax, [rsp+336]
37c42882amov r9, rbx
37c42882dmov r8, [rsp+168]
37c428835lea rdx, [rip+0x4c064]
37c42883clea rcx, [rip+0x4c04d]
37c428843mov rax, [rax]
37c428846mov [rsp+64], 2
37c42884fmov [rsp+56], 6
37c428858mov [rsp+160], rax
37c428860sub rax, 1
37c428864mov [rsp+208], rax
37c42886cmov [rsp+216], rax
37c428874lea rax, [rip+0x4c01d]
37c42887bmov [rsp+48], rax
37c428880lea rax, [rsp+216]
37c428888mov [rsp+40], rax
37c42888dlea rax, [rsp+208]
37c428895mov [rsp+32], rax
37c42889acall ilaenv_64_
37c42889fjmp 0x37c428283
37c4288a4
37c4288a4 0f 1f 40 00 ..@.
37c4288a8
37c4288a8loc_37c4288a8:
37c4288a8mov rdx, r9
37c4288absub r8, 1
37c4288afshl rdx, 4
37c4288b3jmp 0x37c42848a
37c4288b8
37c4288b8 0f 1f 84 00 00 00 00 00 ........
37c4288c0
37c4288c0loc_37c4288c0:
37c4288c0mov rdx, r9
37c4288c3sub r8, 1
37c4288c7shl rdx, 4
37c4288cbjmp 0x37c42832f
37c4288d0
37c4288d0loc_37c4288d0:
37c4288d0mov rax, [rax]
37c4288d3test rax, rax
37c4288d6jne 0x37c428900
37c4288d8test rdx, rdx
37c4288dbjne 0x37c4281c5
37c4288e1mov rax, [rsp+392]
37c4288e9mov rsi, [rip+0x4bfc0]
37c4288f0mov [rax+8], 0
37c4288f8mov [rax], rsi
37c4288fbjmp 0x37c42800a
37c428900
37c428900loc_37c428900:
37c428900neg rax
37c428903jmp 0x37c427fe7
37c427e20

37c428908
37c428908 // align 0x10

37c428910
37c428910zunmhr_64_:
37c428910push r15
37c428912push r14
37c428914push r13
37c428916push r12
37c428918push rbp
37c428919push rdi
37c42891apush rsi
37c42891bpush rbx
37c42891csub rsp, 200
37c428923mov rax, [rsp+328]
37c42892bmov r15, [rsp+376]
37c428933mov rax, [rax]
37c428936mov [r15], 0
37c42893dmov rsi, rcx
37c428940mov rbx, r8
37c428943mov rdi, r9
37c428946mov rbp, rdx
37c428949mov [rsp+136], rax
37c428951mov rax, [rsp+352]
37c428959mov r9l, 1
37c42895fmov r8l, 1
37c428965mov rcx, [rsp+304]
37c42896dlea rdx, [rip+0x4bf4c]
37c428974mov rax, [rax]
37c428977mov [rsp+144], rax
37c42897fmov rax, [rsp+312]
37c428987mov rax, [rax]
37c42898asub rax, [rcx]
37c42898dmov rcx, rsi
37c428990mov [rsp+176], rax
37c428998call lsame_64_
37c42899dmov r10, [rdi]
37c4289a0mov r13, [rbx]
37c4289a3mov r12, rax
37c4289a6mov rax, [rsp+368]
37c4289aemov r14, [rax]
37c4289b1test r12, r12
37c4289b4je 0x37c428a40
37c4289batest r10, r10
37c4289bdmov eax, 1
37c4289c2cmovg rax, r10
37c4289c6mov [rsp+128], rax
37c4289ce
37c4289celoc_37c4289ce:
37c4289cemov r9l, 1
37c4289d4mov r8l, 1
37c4289dalea rdx, [rip+0x4bee1]
37c4289e1mov rcx, rbp
37c4289e4call lsame_64_
37c4289e9test rax, rax
37c4289ecje 0x37c428b00
37c4289f2
37c4289f2loc_37c4289f2:
37c4289f2mov rax, [rbx]
37c4289f5test rax, rax
37c4289f8js 0x37c428a88
37c4289fecmp [rdi], 0
37c428a02js 0x37c428b38
37c428a08test r13, r13
37c428a0bmov edx, 1
37c428a10cmovg rdx, r13
37c428a14mov rcx, rdx
37c428a17mov rdx, [rsp+304]
37c428a1fmov rdx, [rdx]
37c428a22test rdx, rdx
37c428a25jle 0x37c428a30
37c428a27cmp rdx, rcx
37c428a2ajle 0x37c428b50
37c428a30
37c428a30loc_37c428a30:
37c428a30mov rdx, -5
37c428a37mov eax, 5
37c428a3cjmp 0x37c428a94
37c428a3e
37c428a3e 66 90 f.
37c428a40
37c428a40loc_37c428a40:
37c428a40mov r9l, 1
37c428a46mov r8l, 1
37c428a4cmov rcx, rsi
37c428a4fmov [rsp+128], r10
37c428a57lea rdx, [rip+0x4be63]
37c428a5ecall lsame_64_
37c428a63test rax, rax
37c428a66jne 0x37c428ad8
37c428a68mov [r15], -1
37c428a6fmov rax, -1
37c428a76lea r13, [rsp+184]
37c428a7e
37c428a7eloc_37c428a7e:
37c428a7eneg rax
37c428a81jmp 0x37c428a9f
37c428a83
37c428a83 0f 1f 44 00 00 ..D..
37c428a88
37c428a88loc_37c428a88:
37c428a88mov rdx, -3
37c428a8fmov eax, 3
37c428a94
37c428a94loc_37c428a94:
37c428a94mov [r15], rdx
37c428a97lea r13, [rsp+184]
37c428a9f
37c428a9floc_37c428a9f:
37c428a9fmov r8l, 6
37c428aa5mov rdx, r13
37c428aa8lea rcx, [rip+0x4be31]
37c428aafmov [rsp+184], rax
37c428ab7call xerbla_64_
37c428abcnop
37c428abd
37c428abdloc_37c428abd:
37c428abdadd rsp, 200
37c428ac4pop rbx
37c428ac5pop rsi
37c428ac6pop rdi
37c428ac7pop rbp
37c428ac8pop r12
37c428acapop r13
37c428accpop r14
37c428acepop r15
37c428ad0ret
37c428ad1
37c428ad1 0f 1f 80 00 00 00 00 .......
37c428ad8
37c428ad8loc_37c428ad8:
37c428ad8test r13, r13
37c428adbmov eax, 1
37c428ae0cmovg rax, r13
37c428ae4mov r13, [rsp+128]
37c428aecmov [rsp+128], rax
37c428af4jmp 0x37c4289ce
37c428af9
37c428af9 0f 1f 80 00 00 00 00 .......
37c428b00
37c428b00loc_37c428b00:
37c428b00mov r9l, 1
37c428b06mov r8l, 1
37c428b0clea rdx, [rip+0x4bdb0]
37c428b13mov rcx, rbp
37c428b16call lsame_64_
37c428b1btest rax, rax
37c428b1ejne 0x37c4289f2
37c428b24mov rdx, -2
37c428b2bmov eax, 2
37c428b30jmp 0x37c428a94
37c428b35
37c428b35 0f 1f 00 ...
37c428b38
37c428b38loc_37c428b38:
37c428b38mov rdx, -4
37c428b3fmov eax, 4
37c428b44jmp 0x37c428a94
37c428b49
37c428b49 0f 1f 80 00 00 00 00 .......
37c428b50
37c428b50loc_37c428b50:
37c428b50mov r11, [rsp+312]
37c428b58cmp rdx, r13
37c428b5bcmovg rdx, r13
37c428b5fmov r8, [r11]
37c428b62cmp r8, rdx
37c428b65jl 0x37c428b6c
37c428b67cmp r8, r13
37c428b6ajle 0x37c428b80
37c428b6c
37c428b6cloc_37c428b6c:
37c428b6cmov rdx, -6
37c428b73mov eax, 6
37c428b78jmp 0x37c428a94
37c428b7d
37c428b7d 0f 1f 00 ...
37c428b80
37c428b80loc_37c428b80:
37c428b80mov rdx, [rsp+328]
37c428b88cmp [rdx], rcx
37c428b8bjl 0x37c428e85
37c428b91mov rcx, [rsp+352]
37c428b99test rax, rax
37c428b9cmov edx, 1
37c428ba1cmovle rax, rdx
37c428ba5cmp [rcx], rax
37c428ba8jl 0x37c428e96
37c428baemov rax, [rsp+368]
37c428bb6mov rcx, [rsp+128]
37c428bbecmp [rax], rcx
37c428bc1jge 0x37c428be8
37c428bc3cmp r14, -1
37c428bc7je 0x37c428be8
37c428bc9mov [r15], -13
37c428bd0mov eax, 13
37c428bd5lea r13, [rsp+184]
37c428bddjmp 0x37c428a9f
37c428be2
37c428be2 66 0f 1f 44 00 00 f..D..
37c428be8
37c428be8loc_37c428be8:
37c428be8mov rax, [r15]
37c428bebtest rax, rax
37c428beejne 0x37c428ea7
37c428bf4lea r13, [rsp+184]
37c428bfcmov [rsp+40], rbp
37c428c01mov r9, rsi
37c428c04mov ecx, 2
37c428c09mov [rsp+32], 1
37c428c12mov r8l, 1
37c428c18mov rdx, r13
37c428c1btest r12, r12
37c428c1eje 0x37c428e40
37c428c24call _gfortran_concat_string
37c428c29lea r10, [rsp+176]
37c428c31mov [rsp+32], rdi
37c428c36lea rax, [rip+0x4bc9b]
37c428c3dmov [rsp+64], 2
37c428c46mov r9, r10
37c428c49mov [rsp+56], 6
37c428c52mov [rsp+48], rax
37c428c57mov [rsp+40], r10
37c428c5cmov [rsp+152], r10
37c428c64
37c428c64loc_37c428c64:
37c428c64mov r8, r13
37c428c67lea rdx, [rip+0x4bc56]
37c428c6elea rcx, [rip+0x4bc5b]
37c428c75call ilaenv_64_
37c428c7apxor x0, x0
37c428c7eimul rax, [rsp+128]
37c428c87mov r10, [rsp+152]
37c428c8fcvtsi2sd x0, rax
37c428c94mov rax, [rsp+360]
37c428c9cmov [rax+8], 0
37c428ca4movsd_xmm [rax], x0
37c428ca8mov rax, [r15]
37c428cabtest rax, rax
37c428caejne 0x37c428a7e
37c428cb4cmp r14, -1
37c428cb8je 0x37c428abd
37c428cbemov rcx, [rbx]
37c428cc1test rcx, rcx
37c428cc4je 0x37c428e28
37c428ccamov r8, [rdi]
37c428ccdtest r8, r8
37c428cd0je 0x37c428e28
37c428cd6mov r9, [rsp+176]
37c428cdetest r9, r9
37c428ce1je 0x37c428e28
37c428ce7mov rdi, [rsp+136]
37c428cefxor eax, eax
37c428cf1test rdi, rdi
37c428cf4cmovns rax, rdi
37c428cf8mov rdi, [rsp+304]
37c428d00mov r11, [rdi]
37c428d03mov rbx, rax
37c428d06not rbx
37c428d09lea rdi, [r11+1]
37c428d0dmov rdx, r11
37c428d10test r12, r12
37c428d13jne 0x37c428d37
37c428d15mov rdx, [rsp+144]
37c428d1dxor r8l, r8l
37c428d20test rdx, rdx
37c428d23cmovns r8, rdx
37c428d27mov rdx, r8
37c428d2aimul rdx, rdi
37c428d2esub rdx, r8
37c428d31mov r8, r9
37c428d34mov r9, rcx
37c428d37
37c428d37loc_37c428d37:
37c428d37imul rax, r11
37c428d3bshl rdx, 4
37c428d3flea rcx, [rsp+160]
37c428d47add rdx, [rsp+344]
37c428d4fmov [rsp+96], rcx
37c428d54mov rcx, [rsp+368]
37c428d5cmov [rsp+64], rdx
37c428d61lea rdx, [r11-1]
37c428d65mov [rsp+88], rcx
37c428d6ashl rdx, 4
37c428d6eadd rax, rbx
37c428d71mov rcx, [rsp+360]
37c428d79add rdx, [rsp+336]
37c428d81add rax, rdi
37c428d84mov [rsp+112], 1
37c428d8dmov [rsp+80], rcx
37c428d92shl rax, 4
37c428d96mov rcx, [rsp+352]
37c428d9emov [rsp+56], rdx
37c428da3mov rdx, [rsp+328]
37c428dabadd rax, [rsp+320]
37c428db3mov [rsp+72], rcx
37c428db8mov rcx, rsi
37c428dbbmov [rsp+48], rdx
37c428dc0mov rdx, rbp
37c428dc3mov [rsp+40], rax
37c428dc8mov [rsp+104], 1
37c428dd1mov [rsp+32], r10
37c428dd6mov [rsp+184], r8
37c428ddelea r8, [rsp+168]
37c428de6mov [rsp+168], r9
37c428deemov r9, r13
37c428df1movsd_xmm [rsp+128], x0
37c428dfacall zunmqr_64_
37c428dffmov rax, [rsp+360]
37c428e07movsd_xmm x0, [rsp+128]
37c428e10mov [rax+8], 0
37c428e18movsd_xmm [rax], x0
37c428e1cjmp 0x37c428abd
37c428e21
37c428e21 0f 1f 80 00 00 00 00 .......
37c428e28
37c428e28loc_37c428e28:
37c428e28mov rax, [rsp+360]
37c428e30movq x0, [rip+0x4bab8]
37c428e38movups [rax], x0
37c428e3bjmp 0x37c428abd
37c428e40
37c428e40loc_37c428e40:
37c428e40call _gfortran_concat_string
37c428e45lea r10, [rsp+176]
37c428e4dlea rax, [rip+0x4ba84]
37c428e54mov r9, rbx
37c428e57mov [rsp+64], 2
37c428e60mov [rsp+56], 6
37c428e69mov [rsp+48], rax
37c428e6emov [rsp+40], r10
37c428e73mov [rsp+32], r10
37c428e78mov [rsp+152], r10
37c428e80jmp 0x37c428c64
37c428e85
37c428e85loc_37c428e85:
37c428e85mov rdx, -8
37c428e8cmov eax, 8
37c428e91jmp 0x37c428a94
37c428e96
37c428e96loc_37c428e96:
37c428e96mov rdx, -11
37c428e9dmov eax, 11
37c428ea2jmp 0x37c428a94
37c428ea7
37c428ea7loc_37c428ea7:
37c428ea7neg rax
37c428eaalea r13, [rsp+184]
37c428eb2jmp 0x37c428a9f
37c428910

37c428eb7
37c428eb7 // align 0x10

37c428ec0
37c428ec0zunml2_64_:
37c428ec0push r15
37c428ec2push r14
37c428ec4push r13
37c428ec6push r12
37c428ec8push rbp
37c428ec9push rdi
37c428ecapush rsi
37c428ecbpush rbx
37c428eccsub rsp, 248
37c428ed3mov rbp, [rsp+408]
37c428edbmov rax, [rsp+368]
37c428ee3mov [rbp], 0
37c428eebmov rsi, [rax]
37c428eeemov rax, [rsp+392]
37c428ef6mov [rsp+344], r9
37c428efemov rbx, rdx
37c428f01mov r9l, 1
37c428f07lea rdx, [rip+0x4b9f2]
37c428f0emov rdi, r8
37c428f11mov r8l, 1
37c428f17mov [rsp+320], rcx
37c428f1fmov r12, [rax]
37c428f22call lsame_64_
37c428f27mov r9l, 1
37c428f2dmov r8l, 1
37c428f33mov rcx, rbx
37c428f36lea rdx, [rip+0x4b9c4]
37c428f3dmov r14, rax
37c428f40call lsame_64_
37c428f45mov [rsp+88], rax
37c428f4atest r14, r14
37c428f4dje 0x37c428ff0
37c428f53mov r15, [rdi]
37c428f56
37c428f56loc_37c428f56:
37c428f56cmp [rsp+88], 0
37c428f5cje 0x37c429038
37c428f62
37c428f62loc_37c428f62:
37c428f62mov rdx, [rdi]
37c428f65test rdx, rdx
37c428f68js 0x37c428fa8
37c428f6amov rax, [rsp+344]
37c428f72mov rcx, [rax]
37c428f75test rcx, rcx
37c428f78js 0x37c429070
37c428f7emov rax, [rsp+352]
37c428f86mov rbx, [rax]
37c428f89test rbx, rbx
37c428f8cjs 0x37c428f97
37c428f8ecmp rbx, r15
37c428f91jle 0x37c429088
37c428f97
37c428f97loc_37c428f97:
37c428f97mov rdx, -5
37c428f9emov eax, 5
37c428fa3jmp 0x37c428fb4
37c428fa5
37c428fa5 0f 1f 00 ...
37c428fa8
37c428fa8loc_37c428fa8:
37c428fa8mov rdx, -3
37c428fafmov eax, 3
37c428fb4
37c428fb4loc_37c428fb4:
37c428fb4mov [rbp], rdx
37c428fb8
37c428fb8loc_37c428fb8:
37c428fb8lea rdx, [rsp+224]
37c428fc0mov r8l, 6
37c428fc6lea rcx, [rip+0x4b937]
37c428fcdmov [rsp+224], rax
37c428fd5call xerbla_64_
37c428fdanop
37c428fdb
37c428fdbloc_37c428fdb:
37c428fdbadd rsp, 248
37c428fe2pop rbx
37c428fe3pop rsi
37c428fe4pop rdi
37c428fe5pop rbp
37c428fe6pop r12
37c428fe8pop r13
37c428feapop r14
37c428fecpop r15
37c428feeret
37c428fef
37c428fef 90 .
37c428ff0
37c428ff0loc_37c428ff0:
37c428ff0mov rax, [rsp+344]
37c428ff8mov rcx, [rsp+320]
37c429000mov r9l, 1
37c429006mov r8l, 1
37c42900clea rdx, [rip+0x4b8ef]
37c429013mov r15, [rax]
37c429016call lsame_64_
37c42901btest rax, rax
37c42901ejne 0x37c428f56
37c429024mov rdx, -1
37c42902bmov eax, 1
37c429030jmp 0x37c428fb4
37c429032
37c429032 66 0f 1f 44 00 00 f..D..
37c429038
37c429038loc_37c429038:
37c429038mov r9l, 1
37c42903emov r8l, 1
37c429044lea rdx, [rip+0x4b8b8]
37c42904bmov rcx, rbx
37c42904ecall lsame_64_
37c429053test rax, rax
37c429056jne 0x37c428f62
37c42905cmov rdx, -2
37c429063mov eax, 2
37c429068jmp 0x37c428fb4
37c42906d
37c42906d 0f 1f 00 ...
37c429070
37c429070loc_37c429070:
37c429070mov rdx, -4
37c429077mov eax, 4
37c42907cjmp 0x37c428fb4
37c429081
37c429081 0f 1f 80 00 00 00 00 .......
37c429088
37c429088loc_37c429088:
37c429088mov r10, [rsp+368]
37c429090test rbx, rbx
37c429093mov eax, 1
37c429098cmovg rax, rbx
37c42909ccmp [r10], rax
37c42909fjl 0x37c4290d0
37c4290a1mov r10, [rsp+392]
37c4290a9test rdx, rdx
37c4290acmov eax, 1
37c4290b1cmovg rax, rdx
37c4290b5cmp [r10], rax
37c4290b8jge 0x37c4290e8
37c4290bamov rdx, -10
37c4290c1mov eax, 10
37c4290c6jmp 0x37c428fb4
37c4290cb
37c4290cb 0f 1f 44 00 00 ..D..
37c4290d0
37c4290d0loc_37c4290d0:
37c4290d0mov rdx, -7
37c4290d7mov eax, 7
37c4290dcjmp 0x37c428fb4
37c4290e1
37c4290e1 0f 1f 80 00 00 00 00 .......
37c4290e8
37c4290e8loc_37c4290e8:
37c4290e8mov rax, [rbp]
37c4290ectest rax, rax
37c4290efjne 0x37c42947a
37c4290f5test rdx, rdx
37c4290f8je 0x37c428fdb
37c4290fetest rcx, rcx
37c429101je 0x37c428fdb
37c429107test rbx, rbx
37c42910aje 0x37c428fdb
37c429110cmp r14, [rsp+88]
37c429115je 0x37c429440
37c42911btest r14, r14
37c42911eje 0x37c429460
37c429124mov [rsp+208], rcx
37c42912c
37c42912cloc_37c42912c:
37c42912clea r13, [rbx-1]
37c429130mov rax, -1
37c429137
37c429137loc_37c429137:
37c429137xor r8l, r8l
37c42913atest rsi, rsi
37c42913dlea rdx, [rsp+224]
37c429145mov [rsp+336], rdi
37c42914dcmovns r8, rsi
37c429151xor ecx, ecx
37c429153test r12, r12
37c429156mov [rsp+136], rdx
37c42915ecmovns rcx, r12
37c429162lea rdx, [rsp+208]
37c42916amov [rsp+160], r14
37c429172mov rdi, [rsp+376]
37c42917amov r9, r8
37c42917dmov r10, r8
37c429180mov [rsp+128], rdx
37c429188mov r12l, 1
37c42918eimul r9, rax
37c429192mov rsi, rcx
37c429195lea r11, [r8+1]
37c429199not r10
37c42919cnot rsi
37c42919fimul r11, rax
37c4291a3add r10, rbx
37c4291a6mov ebp, 1
37c4291abmov [rsp+96], rsi
37c4291b0lea rsi, [rbx+1]
37c4291b4lea rdx, [rsp+200]
37c4291bcadd r9, rax
37c4291bfimul rsi, r8
37c4291c3mov [rsp+120], rdx
37c4291c8lea rdx, [rsp+216]
37c4291d0shl r9, 4
37c4291d4shl r11, 4
37c4291d8mov [rsp+176], rdx
37c4291e0mov [rsp+104], r9
37c4291e5mov r9, rbx
37c4291e8imul r9, r8
37c4291ecadd rsi, r10
37c4291efmov [rsp+112], r11
37c4291f4shl rsi, 4
37c4291f8mov [rsp+144], rcx
37c429200add rsi, [rsp+360]
37c429208mov [rsp+152], rax
37c429210add r9, r10
37c429213shl r9, 4
37c429217add r9, [rsp+360]
37c42921fmov r14, r9
37c429222jmp 0x37c42932f
37c429227
37c429227 66 0f 1f 84 00 00 00 00 00 f........
37c429230
37c429230loc_37c429230:
37c429230mov rax, [rsp+336]
37c429238mov rbp, rbx
37c42923bmov rax, [rax]
37c42923emov rdx, rax
37c429241mov [rsp+168], rax
37c429249sub rdx, rbx
37c42924cadd rdx, 1
37c429250mov [rsp+200], rdx
37c429258
37c429258loc_37c429258:
37c429258mov rdx, rbx
37c42925bshl rdx, 4
37c42925fmovsd_xmm x1, [rdi+rdx-8]
37c429265movsd_xmm x0, [rdi+rdx-16]
37c42926bcmp [rsp+88], 0
37c429271je 0x37c42927b
37c429273xorpd x1, [rip+0x4b695]
37c42927b
37c42927bloc_37c42927b:
37c42927bmov r11, [rsp+144]
37c429283unpcklpd x0, x1
37c429287movups [rsp+224], x0
37c42928fimul r11, r12
37c429293add r11, [rsp+96]
37c429298add r11, rbp
37c42929bshl r11, 4
37c42929fadd r11, [rsp+384]
37c4292a7cmp rbx, r15
37c4292aajl 0x37c429370
37c4292b0mov rax, [rsp+400]
37c4292b8mov [rsp+48], r11
37c4292bdmov r9, r14
37c4292c0mov [rsp+72], 1
37c4292c9mov r8, [rsp+128]
37c4292d1mov [rsp+64], rax
37c4292d6mov rax, [rsp+392]
37c4292demov rdx, [rsp+120]
37c4292e3mov rcx, [rsp+320]
37c4292ebmov [rsp+56], rax
37c4292f0mov rax, [rsp+136]
37c4292f8mov [rsp+40], rax
37c4292fdmov rax, [rsp+368]
37c429305mov [rsp+32], rax
37c42930acall zlarf1f_64_
37c42930f
37c42930floc_37c42930f:
37c42930fsub r13, 1
37c429313add r14, [rsp+104]
37c429318add rsi, [rsp+112]
37c42931dadd rbx, [rsp+152]
37c429325cmp r13, -1
37c429329je 0x37c428fdb
37c42932f
37c42932floc_37c42932f:
37c42932fcmp [rsp+160], 0
37c429338jne 0x37c429230
37c42933emov rax, [rsp+344]
37c429346mov r12, rbx
37c429349mov rax, [rax]
37c42934cmov rdx, rax
37c42934fmov [rsp+168], rax
37c429357sub rdx, rbx
37c42935aadd rdx, 1
37c42935emov [rsp+208], rdx
37c429366jmp 0x37c429258
37c42936b
37c42936b 0f 1f 44 00 00 ..D..
37c429370
37c429370loc_37c429370:
37c429370mov r8, [rsp+368]
37c429378mov rcx, [rsp+176]
37c429380mov r10, r15
37c429383mov rdx, rsi
37c429386sub r10, rbx
37c429389mov [rsp+184], r11
37c429391mov [rsp+216], r10
37c429399mov [rsp+168], r10
37c4293a1call zlacgv_64_
37c4293a6mov rax, [rsp+400]
37c4293aemov rdx, [rsp+120]
37c4293b3mov r9, r14
37c4293b6mov r11, [rsp+184]
37c4293bemov r8, [rsp+128]
37c4293c6mov [rsp+72], 1
37c4293cfmov [rsp+64], rax
37c4293d4mov rax, [rsp+392]
37c4293dcmov [rsp+48], r11
37c4293e1mov rcx, [rsp+320]
37c4293e9mov [rsp+56], rax
37c4293eemov rax, [rsp+136]
37c4293f6mov [rsp+40], rax
37c4293fbmov rax, [rsp+368]
37c429403mov [rsp+32], rax
37c429408call zlarf1f_64_
37c42940dmov r10, [rsp+168]
37c429415mov r8, [rsp+368]
37c42941dmov rdx, rsi
37c429420mov rcx, [rsp+176]
37c429428mov [rsp+216], r10
37c429430call zlacgv_64_
37c429435jmp 0x37c42930f
37c42943a
37c42943a 66 0f 1f 44 00 00 f..D..
37c429440
37c429440loc_37c429440:
37c429440test r14, r14
37c429443je 0x37c429470
37c429445mov [rsp+208], rcx
37c42944d
37c42944dloc_37c42944d:
37c42944dlea r13, [rbx-1]
37c429451mov eax, 1
37c429456mov ebx, 1
37c42945bjmp 0x37c429137
37c429460
37c429460loc_37c429460:
37c429460mov [rsp+200], rdx
37c429468jmp 0x37c42912c
37c42946d
37c42946d 0f 1f 00 ...
37c429470
37c429470loc_37c429470:
37c429470mov [rsp+200], rdx
37c429478jmp 0x37c42944d
37c42947a
37c42947aloc_37c42947a:
37c42947aneg rax
37c42947djmp 0x37c428fb8
37c428ec0

37c429482
37c429482 // align 0x10

37c429490
37c429490zunmlq_64_:
37c429490push r15
37c429492push r14
37c429494push r13
37c429496push r12
37c429498push rbp
37c429499push rdi
37c42949apush rsi
37c42949bpush rbx
37c42949csub rsp, 344
37c4294a3movups [rsp+320], x6
37c4294abmov rax, [rsp+464]
37c4294b3mov r12, [rsp+512]
37c4294bbmov rax, [rax]
37c4294bemov [r12], 0
37c4294c6mov rbp, rdx
37c4294c9mov rbx, r8
37c4294ccmov rsi, r9
37c4294cfmov r8l, 1
37c4294d5mov r9l, 1
37c4294dbmov [rsp+192], rax
37c4294e3lea rdx, [rip+0x4b436]
37c4294eamov rdi, rcx
37c4294edmov rax, [rsp+488]
37c4294f5mov rax, [rax]
37c4294f8mov [rsp+200], rax
37c429500call lsame_64_
37c429505mov r9l, 1
37c42950bmov r8l, 1
37c429511mov rcx, rbp
37c429514lea rdx, [rip+0x4b406]
37c42951bmov [rsp+184], rax
37c429523mov r14, rax
37c429526call lsame_64_
37c42952bmov r13, [rsi]
37c42952emov [rsp+160], rax
37c429536mov rax, [rsp+504]
37c42953emov r15, [rax]
37c429541mov rax, [rbx]
37c429544mov [rsp+168], rax
37c42954ctest r14, r14
37c42954fje 0x37c4295b0
37c429551test r13, r13
37c429554mov r14l, 1
37c42955acmovg r14, r13
37c42955ecmp [rsp+160], 0
37c429567je 0x37c429664
37c42956d
37c42956dloc_37c42956d:
37c42956dmov rax, [rbx]
37c429570test rax, rax
37c429573js 0x37c4295e0
37c429575cmp [rsi], 0
37c429579js 0x37c4296a0
37c42957fmov rdx, [rsp+448]
37c429587mov rdx, [rdx]
37c42958atest rdx, rdx
37c42958djs 0x37c42959d
37c42958fcmp rdx, [rsp+168]
37c429597jle 0x37c4296b8
37c42959d
37c42959dloc_37c42959d:
37c42959dmov rdx, -5
37c4295a4mov eax, 5
37c4295a9jmp 0x37c4295ec
37c4295ab
37c4295ab 0f 1f 44 00 00 ..D..
37c4295b0
37c4295b0loc_37c4295b0:
37c4295b0mov r9l, 1
37c4295b6mov r8l, 1
37c4295bclea rdx, [rip+0x4b35f]
37c4295c3mov rcx, rdi
37c4295c6call lsame_64_
37c4295cbtest rax, rax
37c4295cejne 0x37c429638
37c4295d0mov rdx, -1
37c4295d7mov eax, 1
37c4295dcjmp 0x37c4295ec
37c4295de
37c4295de 66 90 f.
37c4295e0
37c4295e0loc_37c4295e0:
37c4295e0mov rdx, -3
37c4295e7mov eax, 3
37c4295ec
37c4295ecloc_37c4295ec:
37c4295ecmov [r12], rdx
37c4295f0lea r13, [rsp+312]
37c4295f8lea r11, [rip+0x4b325]
37c4295ff
37c4295ffloc_37c4295ff:
37c4295ffmov r8l, 6
37c429605mov rdx, r13
37c429608mov rcx, r11
37c42960bmov [rsp+312], rax
37c429613call xerbla_64_
37c429618nop
37c429619
37c429619loc_37c429619:
37c429619movups x6, [rsp+320]
37c429621add rsp, 344
37c429628pop rbx
37c429629pop rsi
37c42962apop rdi
37c42962bpop rbp
37c42962cpop r12
37c42962epop r13
37c429630pop r14
37c429632pop r15
37c429634ret
37c429635
37c429635 0f 1f 00 ...
37c429638
37c429638loc_37c429638:
37c429638mov rax, [rsp+168]
37c429640mov r14l, 1
37c429646mov [rsp+168], r13
37c42964etest rax, rax
37c429651cmovg r14, rax
37c429655cmp [rsp+160], 0
37c42965ejne 0x37c42956d
37c429664
37c429664loc_37c429664:
37c429664mov r9l, 1
37c42966amov r8l, 1
37c429670mov rcx, rbp
37c429673lea rdx, [rip+0x4b2a9]
37c42967acall lsame_64_
37c42967ftest rax, rax
37c429682jne 0x37c42956d
37c429688mov rdx, -2
37c42968fmov eax, 2
37c429694jmp 0x37c4295ec
37c429699
37c429699 0f 1f 80 00 00 00 00 .......
37c4296a0
37c4296a0loc_37c4296a0:
37c4296a0mov rdx, -4
37c4296a7mov eax, 4
37c4296acjmp 0x37c4295ec
37c4296b1
37c4296b1 0f 1f 80 00 00 00 00 .......
37c4296b8
37c4296b8loc_37c4296b8:
37c4296b8mov ecx, 1
37c4296bdtest rdx, rdx
37c4296c0cmovle rdx, rcx
37c4296c4mov rcx, [rsp+464]
37c4296cccmp [rcx], rdx
37c4296cfjl 0x37c429730
37c4296d1mov rcx, [rsp+488]
37c4296d9test rax, rax
37c4296dcmov edx, 1
37c4296e1cmovle rax, rdx
37c4296e5cmp [rcx], rax
37c4296e8jl 0x37c429dd0
37c4296eemov rax, [rsp+504]
37c4296f6cmp [rax], r14
37c4296f9jge 0x37c429741
37c4296fbcmp r15, -1
37c4296ffje 0x37c429e58
37c429705mov [r12], -12
37c42970dmov eax, 12
37c429712lea r13, [rsp+312]
37c42971alea r11, [rip+0x4b203]
37c429721jmp 0x37c4295ff
37c429726
37c429726 66 2e 0f 1f 84 00 00 00 00 00 f.........
37c429730
37c429730loc_37c429730:
37c429730mov rdx, -7
37c429737mov eax, 7
37c42973cjmp 0x37c4295ec
37c429741
37c429741loc_37c429741:
37c429741mov rax, [r12]
37c429745test rax, rax
37c429748jne 0x37c429e61
37c42974emov [rsp+40], rbp
37c429753lea r13, [rsp+312]
37c42975bmov r9, rdi
37c42975emov ecx, 2
37c429763mov [rsp+32], 1
37c42976cmov r8l, 1
37c429772mov rdx, r13
37c429775call _gfortran_concat_string
37c42977amov [rsp+32], rsi
37c42977fmov r9, rbx
37c429782mov r8, r13
37c429785lea rax, [rip+0x4b1ac]
37c42978clea r11, [rip+0x4b191]
37c429793mov [rsp+64], 2
37c42979cmov [rsp+48], rax
37c4297a1mov rax, [rsp+448]
37c4297a9mov rdx, r11
37c4297aclea rcx, [rip+0x4b17d]
37c4297b3mov [rsp+56], 6
37c4297bcmov [rsp+40], rax
37c4297c1mov [rsp+176], r11
37c4297c9call ilaenv_64_
37c4297cemov r10l, 64
37c4297d4pxor x0, x0
37c4297d8mov r11, [rsp+176]
37c4297e0cmp rax, r10
37c4297e3mov rdx, rax
37c4297e6cmovle r10, rax
37c4297eamov rax, [rsp+496]
37c4297f2mov r8, r10
37c4297f5mov [rax+8], 0
37c4297fdimul r8, r14
37c429801lea r9, [r8+4160]
37c429808cvtsi2sd x0, r9
37c42980dmovsd_xmm [rax], x0
37c429811mov rax, [r12]
37c429815test rax, rax
37c429818jne 0x37c429f40
37c42981ecmp r15, -1
37c429822je 0x37c429619
37c429828cmp [rbx], 0
37c42982cje 0x37c429c18
37c429832cmp [rsi], 0
37c429836je 0x37c429c18
37c42983cmov rax, [rsp+448]
37c429844mov rcx, [rax]
37c429847test rcx, rcx
37c42984aje 0x37c429c18
37c429850mov [rsp+288], r14
37c429858cmp rdx, 1
37c42985cjle 0x37c429c30
37c429862cmp rcx, r10
37c429865jle 0x37c429c30
37c42986bmov rax, [rsp+504]
37c429873mov rax, [rax]
37c429876cmp rax, r9
37c429879jl 0x37c429cf0
37c42987f
37c42987floc_37c42987f:
37c42987fmov rdx, [rsp+192]
37c429887xor eax, eax
37c429889mov r9, [rsp+184]
37c429891test rdx, rdx
37c429894cmovs rdx, rax
37c429898mov r14, rdx
37c42989bmov rbp, rdx
37c42989emov rdx, [rsp+200]
37c4298a6not r14
37c4298a9test rdx, rdx
37c4298accmovns rax, rdx
37c4298b0mov [rsp+192], rax
37c4298b8not rax
37c4298bbmov [rsp+200], rax
37c4298c3cmp r9, [rsp+160]
37c4298cbje 0x37c429de8
37c4298d1lea r12, [rcx-1]
37c4298d5mov r11, r10
37c4298d8mov rax, r12
37c4298dbneg r11
37c4298decqo
37c4298e0idiv r10
37c4298e3sub r12, rdx
37c4298e6lea r15, [r12+1]
37c4298ebtest r9, r9
37c4298eeje 0x37c429e20
37c4298f4mov rax, [rsi]
37c4298f7mov [rsp+304], rax
37c4298ffcmp [rsp+160], 0
37c429908je 0x37c429e3a
37c42990e
37c42990eloc_37c42990e:
37c42990emov r9l, 67
37c429914
37c429914loc_37c429914:
37c429914mov rax, r12
37c429917xor edx, edx
37c429919div r10
37c42991cmov r12, rax
37c42991f
37c42991floc_37c42991f:
37c42991flea rax, [rbp+1]
37c429923mov rdx, rbp
37c429926shl r8, 4
37c42992amovapd x6, x0
37c42992eimul rax, r11
37c429932mov [rsp+279], r9b
37c42993amov r9, [rsp+496]
37c429942imul rdx, r15
37c429946mov [rsp+416], rdi
37c42994emov rdi, [rsp+464]
37c429956add r9, r8
37c429959mov [rsp+432], rbx
37c429961mov rbx, r10
37c429964shl rax, 4
37c429968mov [rsp+440], rsi
37c429970mov rsi, r9
37c429973mov [rsp+256], rax
37c42997blea rax, [r14+r15]
37c42997flea r14, [rip+0x4afd2]
37c429986add rax, rdx
37c429989mov rdx, [rsp+472]
37c429991mov [rsp+248], r13
37c429999lea r13, [rsp+280]
37c4299a1shl rax, 4
37c4299a5add rax, [rsp+456]
37c4299admov [rsp+176], 1
37c4299b9sub rdx, 16
37c4299bdmov rbp, rax
37c4299c0mov rax, [rsp+168]
37c4299c8mov [rsp+160], 1
37c4299d4mov [rsp+240], rdx
37c4299dclea rdx, [rsp+279]
37c4299e4mov [rsp+168], rdx
37c4299eclea rdx, [rsp+288]
37c4299f4add rax, 1
37c4299f8mov [rsp+208], rdx
37c429a00lea rdx, [rsp+304]
37c429a08mov [rsp+224], rdx
37c429a10lea rdx, [rsp+296]
37c429a18mov [rsp+232], rax
37c429a20mov [rsp+216], rdx
37c429a28mov [rsp+264], r11
37c429a30jmp 0x37c429b5e
37c429a35
37c429a35 0f 1f 00 ...
37c429a38
37c429a38loc_37c429a38:
37c429a38mov rax, [rsp+432]
37c429a40mov [rsp+160], r15
37c429a48mov rax, [rax]
37c429a4bsub rax, r15
37c429a4eadd rax, 1
37c429a52mov [rsp+296], rax
37c429a5a
37c429a5aloc_37c429a5a:
37c429a5amov rax, [rsp+208]
37c429a62mov [rsp+64], rdi
37c429a67lea r9, [rip+0x4aeda]
37c429a6elea r8, [rip+0x4aeda]
37c429a75mov [rsp+56], rbp
37c429a7amov rdx, [rsp+168]
37c429a82mov [rsp+112], rax
37c429a87mov rax, [rsp+496]
37c429a8fmov [rsp+48], r13
37c429a94mov rcx, [rsp+416]
37c429a9cmov [rsp+104], rax
37c429aa1mov rax, [rsp+488]
37c429aa9mov [rsp+144], 7
37c429ab5mov [rsp+96], rax
37c429abamov rax, [rsp+176]
37c429ac2imul rax, [rsp+192]
37c429acbmov [rsp+80], r14
37c429ad0add rax, [rsp+200]
37c429ad8mov [rsp+72], rsi
37c429addadd rax, [rsp+160]
37c429ae5mov [rsp+136], 7
37c429af1mov [rsp+128], 1
37c429afdshl rax, 4
37c429b01add rax, [rsp+480]
37c429b09mov [rsp+88], rax
37c429b0emov rax, [rsp+224]
37c429b16mov [rsp+120], 1
37c429b1fmov [rsp+40], rax
37c429b24mov rax, [rsp+216]
37c429b2cmov [rsp+32], rax
37c429b31call zlarfb_64_
37c429b36test r12, r12
37c429b39je 0x37c429ce0
37c429b3fmov rax, [rsp+448]
37c429b47add rbp, [rsp+256]
37c429b4fsub r12, 1
37c429b53add r15, [rsp+264]
37c429b5bmov rcx, [rax]
37c429b5e
37c429b5eloc_37c429b5e:
37c429b5esub rcx, r15
37c429b61mov [rsp+64], r14
37c429b66mov rax, [rsp+232]
37c429b6emov r9, r13
37c429b71add rcx, 1
37c429b75mov [rsp+56], rsi
37c429b7amov r8, [rsp+248]
37c429b82lea rdx, [rip+0x4adbf]
37c429b89cmp rcx, rbx
37c429b8cmov [rsp+40], rdi
37c429b91cmovg rcx, rbx
37c429b95sub rax, r15
37c429b98mov [rsp+32], rbp
37c429b9dmov [rsp+312], rax
37c429ba5mov rax, r15
37c429ba8shl rax, 4
37c429bacadd rax, [rsp+240]
37c429bb4mov [rsp+80], 7
37c429bbdmov [rsp+72], 7
37c429bc6mov [rsp+48], rax
37c429bcbmov [rsp+280], rcx
37c429bd3lea rcx, [rip+0x4ad75]
37c429bdacall zlarft_64_
37c429bdfcmp [rsp+184], 0
37c429be8jne 0x37c429a38
37c429beemov rax, [rsp+440]
37c429bf6mov [rsp+176], r15
37c429bfemov rax, [rax]
37c429c01sub rax, r15
37c429c04add rax, 1
37c429c08mov [rsp+304], rax
37c429c10jmp 0x37c429a5a
37c429c15
37c429c15 0f 1f 00 ...
37c429c18
37c429c18loc_37c429c18:
37c429c18mov rax, [rsp+496]
37c429c20mov rdi, [rip+0x4ad39]
37c429c27mov [rax], rdi
37c429c2ajmp 0x37c429619
37c429c2f
37c429c2f 90 .
37c429c30
37c429c30loc_37c429c30:
37c429c30mov [rsp+88], r13
37c429c35mov r9, rsi
37c429c38mov r8, rbx
37c429c3bmov rdx, rbp
37c429c3emov rax, [rsp+496]
37c429c46mov rcx, rdi
37c429c49mov [rsp+104], 1
37c429c52mov [rsp+96], 1
37c429c5bmov [rsp+80], rax
37c429c60mov rax, [rsp+488]
37c429c68movsd_xmm [rsp+160], x0
37c429c71mov [rsp+72], rax
37c429c76mov rax, [rsp+480]
37c429c7emov [rsp+64], rax
37c429c83mov rax, [rsp+472]
37c429c8bmov [rsp+56], rax
37c429c90mov rax, [rsp+464]
37c429c98mov [rsp+48], rax
37c429c9dmov rax, [rsp+456]
37c429ca5mov [rsp+40], rax
37c429caamov rax, [rsp+448]
37c429cb2mov [rsp+32], rax
37c429cb7call zunml2_64_
37c429cbcmovsd_xmm x0, [rsp+160]
37c429cc5
37c429cc5loc_37c429cc5:
37c429cc5mov rax, [rsp+496]
37c429ccdmov [rax+8], 0
37c429cd5movsd_xmm [rax], x0
37c429cd9jmp 0x37c429619
37c429cde
37c429cde 66 90 f.
37c429ce0
37c429ce0loc_37c429ce0:
37c429ce0movapd x0, x6
37c429ce4jmp 0x37c429cc5
37c429ce6
37c429ce6 66 2e 0f 1f 84 00 00 00 00 00 f.........
37c429cf0
37c429cf0loc_37c429cf0:
37c429cf0sub rax, 4160
37c429cf6mov [rsp+40], rbp
37c429cfbmov r9, rdi
37c429cfemov ecx, 2
37c429d03cqo
37c429d05mov r8l, 1
37c429d0bmov [rsp+32], 1
37c429d14idiv r14
37c429d17mov [rsp+216], r11
37c429d1fmovsd_xmm [rsp+208], x0
37c429d28mov rdx, r13
37c429d2bmov [rsp+176], rax
37c429d33call _gfortran_concat_string
37c429d38mov [rsp+32], rsi
37c429d3dmov r9, rbx
37c429d40mov r8, r13
37c429d43lea rax, [rip+0x4abee]
37c429d4amov rdx, [rsp+216]
37c429d52mov [rsp+64], 2
37c429d5blea rcx, [rip+0x4abde]
37c429d62mov [rsp+48], rax
37c429d67mov rax, [rsp+448]
37c429d6fmov [rsp+56], 6
37c429d78mov [rsp+40], rax
37c429d7dcall ilaenv_64_
37c429d82mov edx, 2
37c429d87mov r10, [rsp+176]
37c429d8fmovsd_xmm x0, [rsp+208]
37c429d98cmp rax, rdx
37c429d9bcmovl rax, rdx
37c429d9fcmp r10, rax
37c429da2jl 0x37c429c30
37c429da8mov rax, [rsp+448]
37c429db0mov rcx, [rax]
37c429db3cmp rcx, r10
37c429db6jle 0x37c429c30
37c429dbcimul r14, r10
37c429dc0mov r8, r14
37c429dc3jmp 0x37c42987f
37c429dc8
37c429dc8 0f 1f 84 00 00 00 00 00 ........
37c429dd0
37c429dd0loc_37c429dd0:
37c429dd0mov rdx, -10
37c429dd7mov eax, 10
37c429ddcjmp 0x37c4295ec
37c429de1
37c429de1 0f 1f 80 00 00 00 00 .......
37c429de8
37c429de8loc_37c429de8:
37c429de8cmp [rsp+184], 0
37c429df1je 0x37c429e45
37c429df3mov rax, [rsi]
37c429df6mov r9l, 67
37c429dfcmov [rsp+304], rax
37c429e04
37c429e04loc_37c429e04:
37c429e04lea rax, [rcx-1]
37c429e08xor edx, edx
37c429e0amov r11, r10
37c429e0dmov r15l, 1
37c429e13div r10
37c429e16mov r12, rax
37c429e19jmp 0x37c42991f
37c429e1e
37c429e1e 66 90 f.
37c429e20
37c429e20loc_37c429e20:
37c429e20mov rax, [rbx]
37c429e23mov [rsp+296], rax
37c429e2bcmp [rsp+160], 0
37c429e34jne 0x37c42990e
37c429e3a
37c429e3aloc_37c429e3a:
37c429e3amov r9l, 78
37c429e40jmp 0x37c429914
37c429e45
37c429e45loc_37c429e45:
37c429e45mov rax, [rbx]
37c429e48mov r9l, 78
37c429e4emov [rsp+296], rax
37c429e56jmp 0x37c429e04
37c429e58
37c429e58loc_37c429e58:
37c429e58mov rax, [r12]
37c429e5ctest rax, rax
37c429e5fje 0x37c429e78
37c429e61
37c429e61loc_37c429e61:
37c429e61neg rax
37c429e64lea r13, [rsp+312]
37c429e6clea r11, [rip+0x4aab1]
37c429e73jmp 0x37c4295ff
37c429e78
37c429e78loc_37c429e78:
37c429e78mov [rsp+40], rbp
37c429e7dlea r13, [rsp+312]
37c429e85mov r9, rdi
37c429e88mov ecx, 2
37c429e8dmov [rsp+32], 1
37c429e96mov r8l, 1
37c429e9cmov rdx, r13
37c429e9fcall _gfortran_concat_string
37c429ea4mov [rsp+32], rsi
37c429ea9mov r9, rbx
37c429eacmov r8, r13
37c429eaflea rax, [rip+0x4aa82]
37c429eb6lea r11, [rip+0x4aa67]
37c429ebdmov [rsp+64], 2
37c429ec6mov [rsp+48], rax
37c429ecbmov rax, [rsp+448]
37c429ed3mov rdx, r11
37c429ed6lea rcx, [rip+0x4aa53]
37c429eddmov [rsp+56], 6
37c429ee6mov [rsp+40], rax
37c429eebmov [rsp+160], r11
37c429ef3call ilaenv_64_
37c429ef8mov edx, 64
37c429efdpxor x0, x0
37c429f01mov r11, [rsp+160]
37c429f09cmp rax, rdx
37c429f0ccmovg rax, rdx
37c429f10imul rax, r14
37c429f14add rax, 4160
37c429f1acvtsi2sd x0, rax
37c429f1fmov rax, [rsp+496]
37c429f27mov [rax+8], 0
37c429f2fmovsd_xmm [rax], x0
37c429f33mov rax, [r12]
37c429f37test rax, rax
37c429f3aje 0x37c429619
37c429f40
37c429f40loc_37c429f40:
37c429f40neg rax
37c429f43jmp 0x37c4295ff
37c429490