File lapack_564f5cd6dd718723530ccdd421a63387e76d5fcdb30f49d1f0425db7bc512296.dll
Function:
    37b6b7fb0
    37b6b7fb0sormrq_:
    37b6b7fb0push r15
    37b6b7fb2push r14
    37b6b7fb4push r13
    37b6b7fb6push r12
    37b6b7fb8push rbp
    37b6b7fb9push rdi
    37b6b7fbapush rsi
    37b6b7fbbpush rbx
    37b6b7fbcsub rsp, 280
    37b6b7fc3mov r12, [rsp+448]
    37b6b7fcbmov [r12], 0
    37b6b7fd3mov rbp, rdx
    37b6b7fd6mov rbx, r8
    37b6b7fd9mov rsi, r9
    37b6b7fdcmov r8l, 1
    37b6b7fe2mov r9l, 1
    37b6b7fe8lea rdx, [rip+0xd7caa1]
    37b6b7fefmov rdi, rcx
    37b6b7ff2call lsame_
    37b6b7ff7mov r9l, 1
    37b6b7ffdmov r8l, 1
    37b6b8003mov rcx, rbp
    37b6b8006lea rdx, [rip+0xd7ca84]
    37b6b800dmov [rsp+232], eax
    37b6b8014mov r13l, eax
    37b6b8017call lsame_
    37b6b801cmov r10l, [rsi]
    37b6b801fmov r14l, eax
    37b6b8022mov rax, [rsp+440]
    37b6b802amov r15l, [rax]
    37b6b802dmov eax, [rbx]
    37b6b802fmov [rsp+164], eax
    37b6b8036test r13l, r13l
    37b6b8039je 0x37b6b8090
    37b6b803btest r10l, r10l
    37b6b803emov r13l, 1
    37b6b8044cmovg r13l, r10l
    37b6b8048test r14l, r14l
    37b6b804bje 0x37b6b813c
    37b6b8051
    37b6b8051loc_37b6b8051:
    37b6b8051mov edx, [rbx]
    37b6b8053test edx, edx
    37b6b8055js 0x37b6b80c8
    37b6b8057mov ecx, [rsi]
    37b6b8059test ecx, ecx
    37b6b805bjs 0x37b6b8170
    37b6b8061mov rax, [rsp+384]
    37b6b8069mov eax, [rax]
    37b6b806btest eax, eax
    37b6b806djs 0x37b6b807c
    37b6b806fcmp eax, [rsp+164]
    37b6b8076jle 0x37b6b8180
    37b6b807c
    37b6b807cloc_37b6b807c:
    37b6b807cmov edx, -5
    37b6b8081mov eax, 5
    37b6b8086jmp 0x37b6b80d2
    37b6b8088
    37b6b8088 0f 1f 84 00 00 00 00 00 ........
    37b6b8090
    37b6b8090loc_37b6b8090:
    37b6b8090mov r9l, 1
    37b6b8096mov r8l, 1
    37b6b809cmov rcx, rdi
    37b6b809fmov [rsp+168], r10l
    37b6b80a7lea rdx, [rip+0xd7c9e4]
    37b6b80aecall lsame_
    37b6b80b3test eax, eax
    37b6b80b5jne 0x37b6b8110
    37b6b80b7mov edx, -1
    37b6b80bcmov eax, 1
    37b6b80c1jmp 0x37b6b80d2
    37b6b80c3
    37b6b80c3 0f 1f 44 00 00 ..D..
    37b6b80c8
    37b6b80c8loc_37b6b80c8:
    37b6b80c8mov edx, -3
    37b6b80cdmov eax, 3
    37b6b80d2
    37b6b80d2loc_37b6b80d2:
    37b6b80d2mov [r12], edx
    37b6b80d6
    37b6b80d6loc_37b6b80d6:
    37b6b80d6lea rdx, [rsp+268]
    37b6b80demov r8l, 6
    37b6b80e4lea rcx, [rip+0xd7c9a9]
    37b6b80ebmov [rsp+268], eax
    37b6b80f2call xerbla_
    37b6b80f7nop
    37b6b80f8
    37b6b80f8loc_37b6b80f8:
    37b6b80f8add rsp, 280
    37b6b80ffpop rbx
    37b6b8100pop rsi
    37b6b8101pop rdi
    37b6b8102pop rbp
    37b6b8103pop r12
    37b6b8105pop r13
    37b6b8107pop r14
    37b6b8109pop r15
    37b6b810bret
    37b6b810c
    37b6b810c 0f 1f 40 00 ..@.
    37b6b8110
    37b6b8110loc_37b6b8110:
    37b6b8110mov eax, [rsp+164]
    37b6b8117mov r10l, [rsp+168]
    37b6b811fmov r13l, 1
    37b6b8125test eax, eax
    37b6b8127mov [rsp+164], r10l
    37b6b812fcmovg r13l, eax
    37b6b8133test r14l, r14l
    37b6b8136jne 0x37b6b8051
    37b6b813c
    37b6b813cloc_37b6b813c:
    37b6b813cmov r9l, 1
    37b6b8142mov r8l, 1
    37b6b8148mov rcx, rbp
    37b6b814blea rdx, [rip+0xd7c941]
    37b6b8152call lsame_
    37b6b8157test eax, eax
    37b6b8159jne 0x37b6b8051
    37b6b815fmov edx, -2
    37b6b8164mov eax, 2
    37b6b8169jmp 0x37b6b80d2
    37b6b816e
    37b6b816e 66 90 f.
    37b6b8170
    37b6b8170loc_37b6b8170:
    37b6b8170mov edx, -4
    37b6b8175mov eax, 4
    37b6b817ajmp 0x37b6b80d2
    37b6b817f
    37b6b817f 90 .
    37b6b8180
    37b6b8180loc_37b6b8180:
    37b6b8180mov r11, [rsp+400]
    37b6b8188test eax, eax
    37b6b818amov r8l, 1
    37b6b8190cmovle eax, r8l
    37b6b8194cmp [r11], eax
    37b6b8197jl 0x37b6b81e0
    37b6b8199mov r11, [rsp+424]
    37b6b81a1test edx, edx
    37b6b81a3mov eax, 1
    37b6b81a8cmovg eax, edx
    37b6b81abcmp [r11], eax
    37b6b81aejl 0x37b6b87d0
    37b6b81b4mov rax, [rsp+440]
    37b6b81bccmp [rax], r13l
    37b6b81bfjge 0x37b6b81f0
    37b6b81c1cmp r15l, -1
    37b6b81c5je 0x37b6b81f0
    37b6b81c7mov [r12], -12
    37b6b81cfmov eax, 12
    37b6b81d4jmp 0x37b6b80d6
    37b6b81d9
    37b6b81d9 0f 1f 80 00 00 00 00 .......
    37b6b81e0
    37b6b81e0loc_37b6b81e0:
    37b6b81e0mov edx, -7
    37b6b81e5mov eax, 7
    37b6b81eajmp 0x37b6b80d2
    37b6b81ef
    37b6b81ef 90 .
    37b6b81f0
    37b6b81f0loc_37b6b81f0:
    37b6b81f0mov eax, [r12]
    37b6b81f4test eax, eax
    37b6b81f6jne 0x37b6b885e
    37b6b81fcmov eax, 1
    37b6b8201test edx, edx
    37b6b8203je 0x37b6b820d
    37b6b8205test ecx, ecx
    37b6b8207jne 0x37b6b8660
    37b6b820d
    37b6b820dloc_37b6b820d:
    37b6b820dmov [rsp+256], eax
    37b6b8214lea rax, [rsp+256]
    37b6b821cmov rcx, rax
    37b6b821fmov [rsp+168], rax
    37b6b8227call sroundup_lwork_
    37b6b822cmov rax, [rsp+432]
    37b6b8234movss [rax], x0
    37b6b8238mov eax, [r12]
    37b6b823ctest eax, eax
    37b6b823ejne 0x37b6b885e
    37b6b8244cmp r15l, -1
    37b6b8248je 0x37b6b80f8
    37b6b824emov r11l, [rbx]
    37b6b8251test r11l, r11l
    37b6b8254je 0x37b6b80f8
    37b6b825amov r10l, [rsi]
    37b6b825dtest r10l, r10l
    37b6b8260je 0x37b6b80f8
    37b6b8266mov [rsp+252], r13l
    37b6b826ecmp [rsp+184], 1
    37b6b8276jle 0x37b6b85b0
    37b6b827cmov rax, [rsp+384]
    37b6b8284mov ecx, [rax]
    37b6b8286cmp ecx, [rsp+184]
    37b6b828djle 0x37b6b85b0
    37b6b8293mov rax, [rsp+440]
    37b6b829blea r11, [rsp+268]
    37b6b82a3mov eax, [rax]
    37b6b82a5cmp eax, [rsp+256]
    37b6b82acjl 0x37b6b8708
    37b6b82b2
    37b6b82b2loc_37b6b82b2:
    37b6b82b2mov ebp, [rsp+184]
    37b6b82b9imul ebp, r13l
    37b6b82bdcmp [rsp+232], r14l
    37b6b82c5je 0x37b6b87e0
    37b6b82cbmov edx, [rsp+232]
    37b6b82d2test edx, edx
    37b6b82d4je 0x37b6b8830
    37b6b82damov eax, [rsi]
    37b6b82dcmov [rsp+264], eax
    37b6b82e3test r14l, r14l
    37b6b82e6je 0x37b6b8842
    37b6b82ec
    37b6b82ecloc_37b6b82ec:
    37b6b82ecmov r9l, 84
    37b6b82f2
    37b6b82f2loc_37b6b82f2:
    37b6b82f2mov r8l, [rsp+184]
    37b6b82falea eax, [rcx-1]
    37b6b82fdxor edx, edx
    37b6b82ffmov r14l, 1
    37b6b8305div r8l
    37b6b8308mov r13l, eax
    37b6b830b
    37b6b830bloc_37b6b830b:
    37b6b830bmov rax, [rsp+432]
    37b6b8313movsxd rdx, ebp
    37b6b8316mov [rsp+352], rdi
    37b6b831emov [rsp+368], rbx
    37b6b8326mov rdi, [rsp+384]
    37b6b832elea r15, [rax+4*rdx]
    37b6b8332movsxd rdx, r8l
    37b6b8335mov [rsp+376], rsi
    37b6b833dmov ebx, [rsp+184]
    37b6b8344lea rax, [4*rdx]
    37b6b834cmovsxd rdx, r14l
    37b6b834fmov [rsp+247], r9b
    37b6b8357mov rsi, [rsp+400]
    37b6b835fmov [rsp+224], rax
    37b6b8367mov rax, [rsp+392]
    37b6b836fshl rdx, 2
    37b6b8373mov [rsp+236], r8l
    37b6b837blea rbp, [rax+rdx-4]
    37b6b8380mov rax, [rsp+408]
    37b6b8388mov [rsp+184], r11
    37b6b8390lea r12, [rax+rdx-4]
    37b6b8395lea rax, [rsp+248]
    37b6b839dmov [rsp+176], rax
    37b6b83a5lea rax, [rsp+247]
    37b6b83admov [rsp+192], rax
    37b6b83b5lea rax, [rsp+252]
    37b6b83bdmov [rsp+200], rax
    37b6b83c5lea rax, [rsp+264]
    37b6b83cdmov [rsp+216], rax
    37b6b83d5lea rax, [rsp+260]
    37b6b83ddmov [rsp+208], rax
    37b6b83e5jmp 0x37b6b84f6
    37b6b83ea
    37b6b83ea 66 0f 1f 44 00 00 f..D..
    37b6b83f0
    37b6b83f0loc_37b6b83f0:
    37b6b83f0mov r11, [rsp+368]
    37b6b83f8mov eax, [r11]
    37b6b83fbadd eax, r14l
    37b6b83fesub eax, ecx
    37b6b8400lea eax, [rdx+rax-1]
    37b6b8404mov [rsp+260], eax
    37b6b840b
    37b6b840bloc_37b6b840b:
    37b6b840bmov rax, [rsp+200]
    37b6b8413mov [rsp+72], r15
    37b6b8418lea r9, [rip+0xd7c689]
    37b6b841flea r8, [rip+0xd7c689]
    37b6b8426mov [rsp+64], rsi
    37b6b842bmov rdx, [rsp+192]
    37b6b8433mov [rsp+112], rax
    37b6b8438mov rax, [rsp+432]
    37b6b8440mov [rsp+56], rbp
    37b6b8445mov rcx, [rsp+352]
    37b6b844dmov [rsp+104], rax
    37b6b8452mov rax, [rsp+424]
    37b6b845amov [rsp+144], 7
    37b6b8466mov [rsp+96], rax
    37b6b846bmov rax, [rsp+416]
    37b6b8473mov [rsp+136], 8
    37b6b847fmov [rsp+88], rax
    37b6b8484lea rax, [rip+0xd7c62d]
    37b6b848bmov [rsp+80], rax
    37b6b8490mov rax, [rsp+176]
    37b6b8498mov [rsp+128], 1
    37b6b84a4mov [rsp+48], rax
    37b6b84a9mov rax, [rsp+216]
    37b6b84b1mov [rsp+120], 1
    37b6b84bamov [rsp+40], rax
    37b6b84bfmov rax, [rsp+208]
    37b6b84c7mov [rsp+32], rax
    37b6b84cccall slarfb_
    37b6b84d1test r13l, r13l
    37b6b84d4je 0x37b6b863b
    37b6b84damov rax, [rsp+224]
    37b6b84e2mov ecx, [rdi]
    37b6b84e4sub r13l, 1
    37b6b84e8add r14l, [rsp+236]
    37b6b84f0add rbp, rax
    37b6b84f3add r12, rax
    37b6b84f6
    37b6b84f6loc_37b6b84f6:
    37b6b84f6mov eax, ecx
    37b6b84f8mov edx, [rsp+164]
    37b6b84ffmov [rsp+80], 7
    37b6b8508sub eax, r14l
    37b6b850bmov [rsp+56], r15
    37b6b8510mov r9, [rsp+176]
    37b6b8518add eax, 1
    37b6b851bmov [rsp+48], r12
    37b6b8520mov r8, [rsp+184]
    37b6b8528cmp eax, ebx
    37b6b852amov [rsp+40], rsi
    37b6b852fcmovg eax, ebx
    37b6b8532sub edx, ecx
    37b6b8534mov [rsp+32], rbp
    37b6b8539lea rcx, [rip+0xd7c56f]
    37b6b8540mov [rsp+72], 8
    37b6b8549add edx, r14l
    37b6b854cmov [rsp+248], eax
    37b6b8553lea eax, [rax+rdx-1]
    37b6b8557lea rdx, [rip+0xd7c54a]
    37b6b855emov [rsp+268], eax
    37b6b8565lea rax, [rip+0xd7c54c]
    37b6b856cmov [rsp+64], rax
    37b6b8571call slarft_
    37b6b8576mov eax, [rsp+232]
    37b6b857dmov ecx, [rdi]
    37b6b857fmov edx, [rsp+248]
    37b6b8586test eax, eax
    37b6b8588jne 0x37b6b83f0
    37b6b858emov r11, [rsp+376]
    37b6b8596mov eax, [r11]
    37b6b8599add eax, r14l
    37b6b859csub eax, ecx
    37b6b859elea eax, [rdx+rax-1]
    37b6b85a2mov [rsp+264], eax
    37b6b85a9jmp 0x37b6b840b
    37b6b85ae
    37b6b85ae 66 90 f.
    37b6b85b0
    37b6b85b0loc_37b6b85b0:
    37b6b85b0lea r11, [rsp+268]
    37b6b85b8
    37b6b85b8loc_37b6b85b8:
    37b6b85b8mov [rsp+88], r11
    37b6b85bdmov r9, rsi
    37b6b85c0mov r8, rbx
    37b6b85c3mov rdx, rbp
    37b6b85c6mov rax, [rsp+432]
    37b6b85cemov rcx, rdi
    37b6b85d1mov [rsp+104], 1
    37b6b85damov [rsp+96], 1
    37b6b85e3mov [rsp+80], rax
    37b6b85e8mov rax, [rsp+424]
    37b6b85f0mov [rsp+72], rax
    37b6b85f5mov rax, [rsp+416]
    37b6b85fdmov [rsp+64], rax
    37b6b8602mov rax, [rsp+408]
    37b6b860amov [rsp+56], rax
    37b6b860fmov rax, [rsp+400]
    37b6b8617mov [rsp+48], rax
    37b6b861cmov rax, [rsp+392]
    37b6b8624mov [rsp+40], rax
    37b6b8629mov rax, [rsp+384]
    37b6b8631mov [rsp+32], rax
    37b6b8636call sormr2_
    37b6b863b
    37b6b863bloc_37b6b863b:
    37b6b863bmov rcx, [rsp+168]
    37b6b8643call sroundup_lwork_
    37b6b8648mov rax, [rsp+432]
    37b6b8650movss [rax], x0
    37b6b8654jmp 0x37b6b80f8
    37b6b8659
    37b6b8659 0f 1f 80 00 00 00 00 .......
    37b6b8660
    37b6b8660loc_37b6b8660:
    37b6b8660mov [rsp+40], rbp
    37b6b8665lea r11, [rsp+268]
    37b6b866dmov r9, rdi
    37b6b8670mov ecx, 2
    37b6b8675mov [rsp+32], 1
    37b6b867emov rdx, r11
    37b6b8681mov r8l, 1
    37b6b8687mov [rsp+168], r11
    37b6b868fcall _gfortran_concat_string
    37b6b8694lea rax, [rip+0xd7c405]
    37b6b869bmov r9, rbx
    37b6b869emov [rsp+64], 2
    37b6b86a7mov [rsp+48], rax
    37b6b86acmov rax, [rsp+384]
    37b6b86b4lea rdx, [rip+0xd7c3d9]
    37b6b86bblea rcx, [rip+0xd7c3da]
    37b6b86c2mov [rsp+32], rsi
    37b6b86c7mov r8, [rsp+168]
    37b6b86cfmov [rsp+56], 6
    37b6b86d8mov [rsp+40], rax
    37b6b86ddcall ilaenv_
    37b6b86e2mov edx, eax
    37b6b86e4mov eax, 64
    37b6b86e9cmp edx, eax
    37b6b86ebcmovle eax, edx
    37b6b86eemov [rsp+184], eax
    37b6b86f5imul eax, r13l
    37b6b86f9add eax, 4160
    37b6b86fejmp 0x37b6b820d
    37b6b8703
    37b6b8703 0f 1f 44 00 00 ..D..
    37b6b8708
    37b6b8708loc_37b6b8708:
    37b6b8708sub eax, 4160
    37b6b870dmov [rsp+40], rbp
    37b6b8712mov r9, rdi
    37b6b8715mov ecx, 2
    37b6b871acdq
    37b6b871bmov r8l, 1
    37b6b8721mov [rsp+32], 1
    37b6b872aidiv r13l
    37b6b872dmov [rsp+176], r11
    37b6b8735mov rdx, r11
    37b6b8738mov [rsp+184], eax
    37b6b873fcall _gfortran_concat_string
    37b6b8744lea rcx, [rip+0xd7c355]
    37b6b874bmov r9, rbx
    37b6b874emov [rsp+64], 2
    37b6b8757mov [rsp+48], rcx
    37b6b875cmov rcx, [rsp+384]
    37b6b8764lea rdx, [rip+0xd7c329]
    37b6b876bmov [rsp+32], rsi
    37b6b8770mov r8, [rsp+176]
    37b6b8778mov [rsp+40], rcx
    37b6b877dlea rcx, [rip+0xd7c320]
    37b6b8784mov [rsp+56], 6
    37b6b878dcall ilaenv_
    37b6b8792mov edx, 2
    37b6b8797mov r11, [rsp+176]
    37b6b879fcmp eax, edx
    37b6b87a1cmovl eax, edx
    37b6b87a4cmp [rsp+184], eax
    37b6b87abjl 0x37b6b85b8
    37b6b87b1mov rax, [rsp+384]
    37b6b87b9mov ecx, [rax]
    37b6b87bbcmp ecx, [rsp+184]
    37b6b87c2jg 0x37b6b82b2
    37b6b87c8jmp 0x37b6b85b8
    37b6b87cd
    37b6b87cd 0f 1f 00 ...
    37b6b87d0
    37b6b87d0loc_37b6b87d0:
    37b6b87d0mov edx, -10
    37b6b87d5mov eax, 10
    37b6b87dajmp 0x37b6b80d2
    37b6b87df
    37b6b87df 90 .
    37b6b87e0
    37b6b87e0loc_37b6b87e0:
    37b6b87e0mov r15l, [rsp+184]
    37b6b87e8lea eax, [rcx-1]
    37b6b87ebmov r9l, [rsp+232]
    37b6b87f3cdq
    37b6b87f4idiv r15l
    37b6b87f7lea eax, [rcx-1]
    37b6b87faneg r15l
    37b6b87fdmov r8l, r15l
    37b6b8800sub eax, edx
    37b6b8802lea r14l, [rax+1]
    37b6b8806test r9l, r9l
    37b6b8809je 0x37b6b884d
    37b6b880bmov edx, [rsi]
    37b6b880dmov r9l, 84
    37b6b8813mov [rsp+264], edx
    37b6b881a
    37b6b881aloc_37b6b881a:
    37b6b881axor edx, edx
    37b6b881cdiv [rsp+184]
    37b6b8823mov r13l, eax
    37b6b8826jmp 0x37b6b830b
    37b6b882b
    37b6b882b 0f 1f 44 00 00 ..D..
    37b6b8830
    37b6b8830loc_37b6b8830:
    37b6b8830mov eax, [rbx]
    37b6b8832mov [rsp+260], eax
    37b6b8839test r14l, r14l
    37b6b883cjne 0x37b6b82ec
    37b6b8842
    37b6b8842loc_37b6b8842:
    37b6b8842mov r9l, 78
    37b6b8848jmp 0x37b6b82f2
    37b6b884d
    37b6b884dloc_37b6b884d:
    37b6b884dmov edx, [rbx]
    37b6b884fmov r9l, 78
    37b6b8855mov [rsp+260], edx
    37b6b885cjmp 0x37b6b881a
    37b6b885e
    37b6b885eloc_37b6b885e:
    37b6b885eneg eax
    37b6b8860jmp 0x37b6b80d6
    37b6b7fb0
    37b6b8865
    37b6b8865 // align 0x10
    37b6b8870
    37b6b8870sormrz_:
    37b6b8870push r15
    37b6b8872push r14
    37b6b8874push r13
    37b6b8876push r12
    37b6b8878push rbp
    37b6b8879push rdi
    37b6b887apush rsi
    37b6b887bpush rbx
    37b6b887csub rsp, 296
    37b6b8883mov rax, [rsp+424]
    37b6b888bmov r12, [rsp+472]
    37b6b8893mov eax, [rax]
    37b6b8895mov [r12], 0
    37b6b889dmov [rsp+176], eax
    37b6b88a4mov rbp, rdx
    37b6b88a7mov rbx, r8
    37b6b88aamov rsi, r9
    37b6b88admov r8l, 1
    37b6b88b3mov r9l, 1
    37b6b88b9lea rdx, [rip+0xd7c200]
    37b6b88c0mov rdi, rcx
    37b6b88c3mov rax, [rsp+448]
    37b6b88cbmov eax, [rax]
    37b6b88cdmov [rsp+224], eax
    37b6b88d4call lsame_
    37b6b88d9mov rcx, rbp
    37b6b88dcmov r9l, 1
    37b6b88e2mov r8l, 1
    37b6b88e8lea rdx, [rip+0xd7c1d2]
    37b6b88efmov [rsp+164], eax
    37b6b88f6call lsame_
    37b6b88fbmov rcx, [rsp+464]
    37b6b8903mov r14l, [rsi]
    37b6b8906mov r13l, eax
    37b6b8909mov eax, [rsp+164]
    37b6b8910mov r10l, [rbx]
    37b6b8913mov r15l, [rcx]
    37b6b8916test eax, eax
    37b6b8918je 0x37b6b8970
    37b6b891atest r14l, r14l
    37b6b891dmov eax, 1
    37b6b8922cmovg eax, r14l
    37b6b8926mov [rsp+168], eax
    37b6b892dtest r13l, r13l
    37b6b8930je 0x37b6b8a17
    37b6b8936
    37b6b8936loc_37b6b8936:
    37b6b8936mov edx, [rbx]
    37b6b8938test edx, edx
    37b6b893ajs 0x37b6b89a8
    37b6b893cmov ecx, [rsi]
    37b6b893etest ecx, ecx
    37b6b8940js 0x37b6b8a60
    37b6b8946mov rax, [rsp+400]
    37b6b894emov eax, [rax]
    37b6b8950test eax, eax
    37b6b8952js 0x37b6b895d
    37b6b8954cmp eax, r10l
    37b6b8957jle 0x37b6b8a70
    37b6b895d
    37b6b895dloc_37b6b895d:
    37b6b895dmov edx, -5
    37b6b8962mov eax, 5
    37b6b8967jmp 0x37b6b89b2
    37b6b8969
    37b6b8969 0f 1f 80 00 00 00 00 .......
    37b6b8970
    37b6b8970loc_37b6b8970:
    37b6b8970mov r9l, 1
    37b6b8976mov r8l, 1
    37b6b897cmov rcx, rdi
    37b6b897fmov [rsp+168], r10l
    37b6b8987lea rdx, [rip+0xd7c134]
    37b6b898ecall lsame_
    37b6b8993test eax, eax
    37b6b8995jne 0x37b6b89f0
    37b6b8997mov edx, -1
    37b6b899cmov eax, 1
    37b6b89a1jmp 0x37b6b89b2
    37b6b89a3
    37b6b89a3 0f 1f 44 00 00 ..D..
    37b6b89a8
    37b6b89a8loc_37b6b89a8:
    37b6b89a8mov edx, -3
    37b6b89admov eax, 3
    37b6b89b2
    37b6b89b2loc_37b6b89b2:
    37b6b89b2mov [r12], edx
    37b6b89b6
    37b6b89b6loc_37b6b89b6:
    37b6b89b6lea rdx, [rsp+284]
    37b6b89bemov r8l, 6
    37b6b89c4lea rcx, [rip+0xd7c109]
    37b6b89cbmov [rsp+284], eax
    37b6b89d2call xerbla_
    37b6b89d7nop
    37b6b89d8
    37b6b89d8loc_37b6b89d8:
    37b6b89d8add rsp, 296
    37b6b89dfpop rbx
    37b6b89e0pop rsi
    37b6b89e1pop rdi
    37b6b89e2pop rbp
    37b6b89e3pop r12
    37b6b89e5pop r13
    37b6b89e7pop r14
    37b6b89e9pop r15
    37b6b89ebret
    37b6b89ec
    37b6b89ec 0f 1f 40 00 ..@.
    37b6b89f0
    37b6b89f0loc_37b6b89f0:
    37b6b89f0mov r10l, [rsp+168]
    37b6b89f8mov eax, 1
    37b6b89fdtest r10l, r10l
    37b6b8a00cmovg eax, r10l
    37b6b8a04mov r10l, r14l
    37b6b8a07mov [rsp+168], eax
    37b6b8a0etest r13l, r13l
    37b6b8a11jne 0x37b6b8936
    37b6b8a17
    37b6b8a17loc_37b6b8a17:
    37b6b8a17mov r9l, 1
    37b6b8a1dmov r8l, 1
    37b6b8a23mov rcx, rbp
    37b6b8a26mov [rsp+192], r10l
    37b6b8a2elea rdx, [rip+0xd7c08e]
    37b6b8a35call lsame_
    37b6b8a3amov r10l, [rsp+192]
    37b6b8a42test eax, eax
    37b6b8a44jne 0x37b6b8936
    37b6b8a4amov edx, -2
    37b6b8a4fmov eax, 2
    37b6b8a54jmp 0x37b6b89b2
    37b6b8a59
    37b6b8a59 0f 1f 80 00 00 00 00 .......
    37b6b8a60
    37b6b8a60loc_37b6b8a60:
    37b6b8a60mov edx, -4
    37b6b8a65mov eax, 4
    37b6b8a6ajmp 0x37b6b89b2
    37b6b8a6f
    37b6b8a6f 90 .
    37b6b8a70
    37b6b8a70loc_37b6b8a70:
    37b6b8a70mov r11, [rsp+408]
    37b6b8a78mov r8l, [r11]
    37b6b8a7btest r8l, r8l
    37b6b8a7ejs 0x37b6b8b05
    37b6b8a84mov r11l, [rsp+164]
    37b6b8a8ctest r11l, r11l
    37b6b8a8fje 0x37b6b8b00
    37b6b8a91cmp edx, r8l
    37b6b8a94jl 0x37b6b8b05
    37b6b8a96
    37b6b8a96loc_37b6b8a96:
    37b6b8a96mov r11, [rsp+424]
    37b6b8a9etest eax, eax
    37b6b8aa0mov r8l, 1
    37b6b8aa6cmovle eax, r8l
    37b6b8aaacmp [r11], eax
    37b6b8aadjl 0x37b6b9210
    37b6b8ab3mov r11, [rsp+448]
    37b6b8abbtest edx, edx
    37b6b8abdmov eax, 1
    37b6b8ac2cmovg eax, edx
    37b6b8ac5cmp [r11], eax
    37b6b8ac8jl 0x37b6b921f
    37b6b8acemov rax, [rsp+464]
    37b6b8ad6mov r11l, [rsp+168]
    37b6b8adecmp [rax], r11l
    37b6b8ae1jge 0x37b6b8b14
    37b6b8ae3cmp r15l, -1
    37b6b8ae7je 0x37b6b8b14
    37b6b8ae9mov [r12], -13
    37b6b8af1mov eax, 13
    37b6b8af6jmp 0x37b6b89b6
    37b6b8afb
    37b6b8afb 0f 1f 44 00 00 ..D..
    37b6b8b00
    37b6b8b00loc_37b6b8b00:
    37b6b8b00cmp ecx, r8l
    37b6b8b03jge 0x37b6b8a96
    37b6b8b05
    37b6b8b05loc_37b6b8b05:
    37b6b8b05mov edx, -6
    37b6b8b0amov eax, 6
    37b6b8b0fjmp 0x37b6b89b2
    37b6b8b14
    37b6b8b14loc_37b6b8b14:
    37b6b8b14mov eax, [r12]
    37b6b8b18test eax, eax
    37b6b8b1ajne 0x37b6b922e
    37b6b8b20mov eax, 1
    37b6b8b25test edx, edx
    37b6b8b27je 0x37b6b8b31
    37b6b8b29test ecx, ecx
    37b6b8b2bjne 0x37b6b9010
    37b6b8b31
    37b6b8b31loc_37b6b8b31:
    37b6b8b31lea r14, [rsp+276]
    37b6b8b39mov [rsp+276], eax
    37b6b8b40mov rcx, r14
    37b6b8b43call sroundup_lwork_
    37b6b8b48mov rax, [rsp+456]
    37b6b8b50movss [rax], x0
    37b6b8b54mov eax, [r12]
    37b6b8b58test eax, eax
    37b6b8b5ajne 0x37b6b922e
    37b6b8b60cmp r15l, -1
    37b6b8b64je 0x37b6b89d8
    37b6b8b6amov r8l, [rbx]
    37b6b8b6dtest r8l, r8l
    37b6b8b70je 0x37b6b89d8
    37b6b8b76mov r9l, [rsi]
    37b6b8b79test r9l, r9l
    37b6b8b7cje 0x37b6b89d8
    37b6b8b82mov eax, [rsp+168]
    37b6b8b89mov [rsp+272], eax
    37b6b8b90cmp [rsp+184], 1
    37b6b8b98jle 0x37b6b8f58
    37b6b8b9emov rax, [rsp+400]
    37b6b8ba6mov ecx, [rax]
    37b6b8ba8mov edx, ecx
    37b6b8baacmp ecx, [rsp+184]
    37b6b8bb1jle 0x37b6b8f58
    37b6b8bb7mov rax, [rsp+464]
    37b6b8bbfmov eax, [rax]
    37b6b8bc1cmp eax, [rsp+276]
    37b6b8bc8jl 0x37b6b90d0
    37b6b8bce
    37b6b8bceloc_37b6b8bce:
    37b6b8bcecmp [rsp+164], r13l
    37b6b8bd6je 0x37b6b91e0
    37b6b8bdcmov r11l, [rsp+184]
    37b6b8be4mov ebp, ecx
    37b6b8be6mov r12l, 1
    37b6b8becmov r15l, 1
    37b6b8bf2
    37b6b8bf2loc_37b6b8bf2:
    37b6b8bf2mov rax, [rsp+408]
    37b6b8bfamov r10l, [rsp+164]
    37b6b8c02mov eax, [rax]
    37b6b8c04test r10l, r10l
    37b6b8c07je 0x37b6b91a0
    37b6b8c0dsub r8l, eax
    37b6b8c10mov [rsp+284], r9l
    37b6b8c18lea r9l, [r8+1]
    37b6b8c1c
    37b6b8c1cloc_37b6b8c1c:
    37b6b8c1ccmp r13l, 1
    37b6b8c20sbb eax, eax
    37b6b8c22and eax, -6
    37b6b8c25add eax, 84
    37b6b8c28mov [rsp+263], al
    37b6b8c2ftest r11l, r11l
    37b6b8c32js 0x37b6b91b8
    37b6b8c38cmp r15l, edx
    37b6b8c3bjg 0x37b6b8ff0
    37b6b8c41sub ebp, r12l
    37b6b8c44xor edx, edx
    37b6b8c46mov eax, ebp
    37b6b8c48div r11l
    37b6b8c4bmov ebp, eax
    37b6b8c4d
    37b6b8c4dloc_37b6b8c4d:
    37b6b8c4dmovsxd rdx, [rsp+176]
    37b6b8c55movsxd r8, [rsp+224]
    37b6b8c5dxor eax, eax
    37b6b8c5fmovsxd r9, r9l
    37b6b8c62mov r10l, [rsp+184]
    37b6b8c6amov r13, [rsp+456]
    37b6b8c72mov [rsp+384], rbx
    37b6b8c7alea r12, [rip+0xd7be6f]
    37b6b8c81test rdx, rdx
    37b6b8c84mov [rsp+392], rsi
    37b6b8c8ccmovs rdx, rax
    37b6b8c90test r8, r8
    37b6b8c93mov [rsp+184], 1
    37b6b8c9emov esi, r10l
    37b6b8ca1cmovs r8, rax
    37b6b8ca5mov [rsp+228], r11l
    37b6b8cadimul r9, rdx
    37b6b8cb1not rdx
    37b6b8cb4mov [rsp+224], 1
    37b6b8cbfmov rax, r8
    37b6b8cc2mov [rsp+232], r8
    37b6b8ccanot rax
    37b6b8ccdmov [rsp+368], rdi
    37b6b8cd5mov [rsp+192], rax
    37b6b8cddmov eax, [rsp+168]
    37b6b8ce4add rdx, r9
    37b6b8ce7lea r9, [rsp+264]
    37b6b8cefmov [rsp+168], r9
    37b6b8cf7lea r9, [rsp+263]
    37b6b8cffimul eax, r10l
    37b6b8d03mov [rsp+200], r9
    37b6b8d0blea r9, [rsp+272]
    37b6b8d13mov [rsp+176], rdx
    37b6b8d1blea rdx, [rsp+284]
    37b6b8d23mov [rsp+208], r9
    37b6b8d2blea r9, [rsp+280]
    37b6b8d33cdqe
    37b6b8d35mov [rsp+216], r9
    37b6b8d3dlea rbx, [r13+4*rax]
    37b6b8d42mov [rsp+240], rdx
    37b6b8d4amov r13, [rsp+424]
    37b6b8d52mov [rsp+248], r14
    37b6b8d5ajmp 0x37b6b8e8e
    37b6b8d5f
    37b6b8d5f 90 .
    37b6b8d60
    37b6b8d60loc_37b6b8d60:
    37b6b8d60mov rax, [rsp+384]
    37b6b8d68mov [rsp+224], r15l
    37b6b8d70mov rcx, r14
    37b6b8d73mov edx, [rax]
    37b6b8d75sub edx, r15l
    37b6b8d78add edx, 1
    37b6b8d7bmov [rsp+280], edx
    37b6b8d82movsxd rdx, [rsp+184]
    37b6b8d8a
    37b6b8d8aloc_37b6b8d8a:
    37b6b8d8amov rax, [rsp+208]
    37b6b8d92lea r9, [rip+0xd7bd47]
    37b6b8d99lea r8, [rip+0xd7bd47]
    37b6b8da0mov [rsp+152], 7
    37b6b8dacimul rdx, [rsp+232]
    37b6b8db5add rdx, [rsp+192]
    37b6b8dbdmov [rsp+144], 8
    37b6b8dc9mov [rsp+120], rax
    37b6b8dceadd rdx, rcx
    37b6b8dd1mov rax, [rsp+456]
    37b6b8dd9mov rcx, [rsp+368]
    37b6b8de1mov [rsp+88], r12
    37b6b8de6mov [rsp+112], rax
    37b6b8debmov rax, [rsp+448]
    37b6b8df3mov [rsp+136], 1
    37b6b8dffmov [rsp+104], rax
    37b6b8e04mov rax, [rsp+440]
    37b6b8e0cmov [rsp+128], 1
    37b6b8e18lea rdx, [rax+4*rdx]
    37b6b8e1cmov rax, [rsp+408]
    37b6b8e24mov [rsp+80], rbx
    37b6b8e29mov [rsp+96], rdx
    37b6b8e2emov rdx, [rsp+200]
    37b6b8e36mov [rsp+56], rax
    37b6b8e3bmov rax, [rsp+168]
    37b6b8e43mov [rsp+72], r13
    37b6b8e48mov [rsp+48], rax
    37b6b8e4dmov rax, [rsp+240]
    37b6b8e55mov [rsp+64], rdi
    37b6b8e5amov [rsp+40], rax
    37b6b8e5fmov rax, [rsp+216]
    37b6b8e67mov [rsp+32], rax
    37b6b8e6ccall slarzb_
    37b6b8e71add r15l, [rsp+228]
    37b6b8e79test ebp, ebp
    37b6b8e7bje 0x37b6b90c0
    37b6b8e81mov rax, [rsp+400]
    37b6b8e89sub ebp, 1
    37b6b8e8cmov ecx, [rax]
    37b6b8e8e
    37b6b8e8eloc_37b6b8e8e:
    37b6b8e8emov rax, [rsp+176]
    37b6b8e96movsxd r14, r15l
    37b6b8e99sub ecx, r15l
    37b6b8e9cmov [rsp+80], 7
    37b6b8ea5add ecx, 1
    37b6b8ea8mov [rsp+64], r12
    37b6b8eadmov r9, [rsp+168]
    37b6b8eb5lea rdx, [r14+rax]
    37b6b8eb9mov rax, [rsp+416]
    37b6b8ec1cmp ecx, esi
    37b6b8ec3mov [rsp+72], 8
    37b6b8ecccmovg ecx, esi
    37b6b8ecfmov [rsp+56], rbx
    37b6b8ed4mov r8, [rsp+408]
    37b6b8edclea rdi, [rax+4*rdx]
    37b6b8ee0mov rax, [rsp+432]
    37b6b8ee8mov [rsp+40], r13
    37b6b8eedmov [rsp+32], rdi
    37b6b8ef2lea rdx, [rax+4*r14-4]
    37b6b8ef7mov [rsp+264], ecx
    37b6b8efelea rcx, [rip+0xd7bbe2]
    37b6b8f05mov [rsp+48], rdx
    37b6b8f0alea rdx, [rip+0xd7bbcf]
    37b6b8f11call slarzt_
    37b6b8f16mov eax, [rsp+164]
    37b6b8f1dtest eax, eax
    37b6b8f1fjne 0x37b6b8d60
    37b6b8f25mov rax, [rsp+392]
    37b6b8f2dmov [rsp+184], r15l
    37b6b8f35movsxd rcx, [rsp+224]
    37b6b8f3dmov edx, [rax]
    37b6b8f3fsub edx, r15l
    37b6b8f42add edx, 1
    37b6b8f45mov [rsp+284], edx
    37b6b8f4cmov rdx, r14
    37b6b8f4fjmp 0x37b6b8d8a
    37b6b8f54
    37b6b8f54 0f 1f 40 00 ..@.
    37b6b8f58
    37b6b8f58loc_37b6b8f58:
    37b6b8f58mov r9, rsi
    37b6b8f5bmov r8, rbx
    37b6b8f5emov rdx, rbp
    37b6b8f61mov rcx, rdi
    37b6b8f64lea rax, [rsp+268]
    37b6b8f6cmov [rsp+112], 1
    37b6b8f75mov [rsp+96], rax
    37b6b8f7amov rax, [rsp+456]
    37b6b8f82mov [rsp+104], 1
    37b6b8f8bmov [rsp+88], rax
    37b6b8f90mov rax, [rsp+448]
    37b6b8f98mov [rsp+80], rax
    37b6b8f9dmov rax, [rsp+440]
    37b6b8fa5mov [rsp+72], rax
    37b6b8faamov rax, [rsp+432]
    37b6b8fb2mov [rsp+64], rax
    37b6b8fb7mov rax, [rsp+424]
    37b6b8fbfmov [rsp+56], rax
    37b6b8fc4mov rax, [rsp+416]
    37b6b8fccmov [rsp+48], rax
    37b6b8fd1mov rax, [rsp+408]
    37b6b8fd9mov [rsp+40], rax
    37b6b8fdemov rax, [rsp+400]
    37b6b8fe6mov [rsp+32], rax
    37b6b8febcall sormr3_
    37b6b8ff0
    37b6b8ff0loc_37b6b8ff0:
    37b6b8ff0mov rcx, r14
    37b6b8ff3call sroundup_lwork_
    37b6b8ff8mov rax, [rsp+456]
    37b6b9000movss [rax], x0
    37b6b9004jmp 0x37b6b89d8
    37b6b9009
    37b6b9009 0f 1f 80 00 00 00 00 .......
    37b6b9010
    37b6b9010loc_37b6b9010:
    37b6b9010mov [rsp+40], rbp
    37b6b9015lea rdx, [rsp+284]
    37b6b901dmov r9, rdi
    37b6b9020mov ecx, 2
    37b6b9025mov [rsp+32], 1
    37b6b902emov r8l, 1
    37b6b9034mov [rsp+184], rdx
    37b6b903ccall _gfortran_concat_string
    37b6b9041lea rax, [rip+0xd7ba88]
    37b6b9048mov r9, rbx
    37b6b904bmov [rsp+64], 2
    37b6b9054mov [rsp+48], rax
    37b6b9059mov rax, [rsp+400]
    37b6b9061lea rdx, [rip+0xd7ba5c]
    37b6b9068lea rcx, [rip+0xd7ba5d]
    37b6b906fmov [rsp+32], rsi
    37b6b9074mov r8, [rsp+184]
    37b6b907cmov [rsp+56], 6
    37b6b9085mov [rsp+40], rax
    37b6b908acall ilaenv_
    37b6b908fmov edx, eax
    37b6b9091mov eax, 64
    37b6b9096cmp edx, eax
    37b6b9098cmovle eax, edx
    37b6b909bmov ecx, eax
    37b6b909dmov [rsp+184], eax
    37b6b90a4mov eax, [rsp+168]
    37b6b90abimul eax, ecx
    37b6b90aeadd eax, 4160
    37b6b90b3jmp 0x37b6b8b31
    37b6b90b8
    37b6b90b8 0f 1f 84 00 00 00 00 00 ........
    37b6b90c0
    37b6b90c0loc_37b6b90c0:
    37b6b90c0mov r14, [rsp+248]
    37b6b90c8jmp 0x37b6b8ff0
    37b6b90cd
    37b6b90cd 0f 1f 00 ...
    37b6b90d0
    37b6b90d0loc_37b6b90d0:
    37b6b90d0sub eax, 4160
    37b6b90d5mov [rsp+40], rbp
    37b6b90damov r9, rdi
    37b6b90ddmov ecx, 2
    37b6b90e2mov [rsp+32], 1
    37b6b90ebcdq
    37b6b90ecmov r8l, 1
    37b6b90f2idiv [rsp+168]
    37b6b90f9lea rdx, [rsp+284]
    37b6b9101mov [rsp+192], rdx
    37b6b9109mov [rsp+184], eax
    37b6b9110call _gfortran_concat_string
    37b6b9115lea rcx, [rip+0xd7b9b4]
    37b6b911cmov r9, rbx
    37b6b911fmov [rsp+64], 2
    37b6b9128mov [rsp+48], rcx
    37b6b912dmov rcx, [rsp+400]
    37b6b9135lea rdx, [rip+0xd7b988]
    37b6b913cmov [rsp+32], rsi
    37b6b9141mov r8, [rsp+192]
    37b6b9149mov [rsp+40], rcx
    37b6b914elea rcx, [rip+0xd7b987]
    37b6b9155mov [rsp+56], 6
    37b6b915ecall ilaenv_
    37b6b9163mov edx, 2
    37b6b9168cmp eax, edx
    37b6b916acmovl eax, edx
    37b6b916dcmp [rsp+184], eax
    37b6b9174jl 0x37b6b8f58
    37b6b917amov rax, [rsp+400]
    37b6b9182mov ecx, [rax]
    37b6b9184mov edx, ecx
    37b6b9186cmp ecx, [rsp+184]
    37b6b918djle 0x37b6b8f58
    37b6b9193mov r8l, [rbx]
    37b6b9196mov r9l, [rsi]
    37b6b9199jmp 0x37b6b8bce
    37b6b919e
    37b6b919e 66 90 f.
    37b6b91a0
    37b6b91a0loc_37b6b91a0:
    37b6b91a0sub r9l, eax
    37b6b91a3mov [rsp+280], r8l
    37b6b91abadd r9l, 1
    37b6b91afjmp 0x37b6b8c1c
    37b6b91b4
    37b6b91b4 0f 1f 40 00 ..@.
    37b6b91b8
    37b6b91b8loc_37b6b91b8:
    37b6b91b8cmp r15l, edx
    37b6b91bbjl 0x37b6b8ff0
    37b6b91c1mov eax, r12l
    37b6b91c4mov r8l, r11l
    37b6b91c7xor edx, edx
    37b6b91c9sub eax, ebp
    37b6b91cbneg r8l
    37b6b91cediv r8l
    37b6b91d1mov ebp, eax
    37b6b91d3jmp 0x37b6b8c4d
    37b6b91d8
    37b6b91d8 0f 1f 84 00 00 00 00 00 ........
    37b6b91e0
    37b6b91e0loc_37b6b91e0:
    37b6b91e0lea r10l, [rcx-1]
    37b6b91e4mov r11l, [rsp+184]
    37b6b91ecmov ebp, 1
    37b6b91f1mov eax, r10l
    37b6b91f4cdq
    37b6b91f5idiv r11l
    37b6b91f8neg r11l
    37b6b91fbsub r10l, edx
    37b6b91femov edx, 1
    37b6b9203lea r15l, [r10+1]
    37b6b9207mov r12l, r15l
    37b6b920ajmp 0x37b6b8bf2
    37b6b920f
    37b6b920f 90 .
    37b6b9210
    37b6b9210loc_37b6b9210:
    37b6b9210mov edx, -8
    37b6b9215mov eax, 8
    37b6b921ajmp 0x37b6b89b2
    37b6b921f
    37b6b921floc_37b6b921f:
    37b6b921fmov edx, -11
    37b6b9224mov eax, 11
    37b6b9229jmp 0x37b6b89b2
    37b6b922e
    37b6b922eloc_37b6b922e:
    37b6b922eneg eax
    37b6b9230jmp 0x37b6b89b6
    37b6b8870
    37b6b9235
    37b6b9235 // align 0x10
    37b6b9240
    37b6b9240sormtr_:
    37b6b9240push r15
    37b6b9242push r14
    37b6b9244push r13
    37b6b9246push r12
    37b6b9248push rbp
    37b6b9249push rdi
    37b6b924apush rsi
    37b6b924bpush rbx
    37b6b924csub rsp, 200
    37b6b9253mov rax, [rsp+344]
    37b6b925bmov eax, [rax]
    37b6b925dmov [rsp+144], eax
    37b6b9264mov r13, rdx
    37b6b9267mov rbx, r9
    37b6b926amov rdi, r8
    37b6b926dmov r9l, 1
    37b6b9273mov r8l, 1
    37b6b9279lea rdx, [rip+0xd7b880]
    37b6b9280mov rsi, rcx
    37b6b9283mov rax, [rsp+320]
    37b6b928bmov eax, [rax]
    37b6b928dmov [rsp+148], eax
    37b6b9294mov rax, [rsp+368]
    37b6b929cmov [rax], 0
    37b6b92a2call lsame_
    37b6b92a7mov r9l, 1
    37b6b92admov r8l, 1
    37b6b92b3mov rcx, r13
    37b6b92b6lea rdx, [rip+0xd7b844]
    37b6b92bdmov r12l, eax
    37b6b92c0call lsame_
    37b6b92c5mov ebp, [rbx]
    37b6b92c7mov r14l, eax
    37b6b92camov rax, [rsp+360]
    37b6b92d2mov r15l, [rax]
    37b6b92d5mov rax, [rsp+304]
    37b6b92ddmov r10l, [rax]
    37b6b92e0test r12l, r12l
    37b6b92e3je 0x37b6b9400
    37b6b92e9test r10l, r10l
    37b6b92ecmov eax, 1
    37b6b92f1cmovg eax, r10l
    37b6b92f5mov [rsp+136], eax
    37b6b92fc
    37b6b92fcloc_37b6b92fc:
    37b6b92fctest r14l, r14l
    37b6b92ffjne 0x37b6b9348
    37b6b9301mov r9l, 1
    37b6b9307mov r8l, 1
    37b6b930dlea rdx, [rip+0xd7b7ec]
    37b6b9314mov rcx, r13
    37b6b9317call lsame_
    37b6b931ctest eax, eax
    37b6b931ejne 0x37b6b9348
    37b6b9320mov rax, [rsp+368]
    37b6b9328lea r13, [rsp+188]
    37b6b9330mov [rax], -2
    37b6b9336mov eax, -2
    37b6b933b
    37b6b933bloc_37b6b933b:
    37b6b933bneg eax
    37b6b933djmp 0x37b6b948c
    37b6b9342
    37b6b9342 66 0f 1f 44 00 00 f..D..
    37b6b9348
    37b6b9348loc_37b6b9348:
    37b6b9348mov r9l, 1
    37b6b934emov r8l, 1
    37b6b9354lea rdx, [rip+0xd7b7a8]
    37b6b935bmov rcx, rdi
    37b6b935ecall lsame_
    37b6b9363test eax, eax
    37b6b9365je 0x37b6b94c0
    37b6b936b
    37b6b936bloc_37b6b936b:
    37b6b936bmov eax, [rbx]
    37b6b936dtest eax, eax
    37b6b936fjs 0x37b6b9470
    37b6b9375mov rcx, [rsp+304]
    37b6b937dmov edx, [rcx]
    37b6b937ftest edx, edx
    37b6b9381js 0x37b6b94f0
    37b6b9387mov rcx, [rsp+320]
    37b6b938ftest ebp, ebp
    37b6b9391mov edx, 1
    37b6b9396cmovg edx, ebp
    37b6b9399cmp [rcx], edx
    37b6b939bjl 0x37b6b9500
    37b6b93a1mov rcx, [rsp+344]
    37b6b93a9test eax, eax
    37b6b93abmov edx, 1
    37b6b93b0cmovle eax, edx
    37b6b93b3cmp [rcx], eax
    37b6b93b5jl 0x37b6b9510
    37b6b93bbmov rax, [rsp+360]
    37b6b93c3mov ecx, [rsp+136]
    37b6b93cacmp [rax], ecx
    37b6b93ccmov rax, [rsp+368]
    37b6b93d4jge 0x37b6b9520
    37b6b93dacmp r15l, -1
    37b6b93deje 0x37b6b9520
    37b6b93e4mov [rax], -12
    37b6b93ealea r13, [rsp+188]
    37b6b93f2mov eax, 12
    37b6b93f7jmp 0x37b6b948c
    37b6b93fc
    37b6b93fc 0f 1f 40 00 ..@.
    37b6b9400
    37b6b9400loc_37b6b9400:
    37b6b9400mov r9l, 1
    37b6b9406mov r8l, 1
    37b6b940cmov rcx, rsi
    37b6b940fmov [rsp+128], r10l
    37b6b9417lea rdx, [rip+0xd7b6e4]
    37b6b941ecall lsame_
    37b6b9423test eax, eax
    37b6b9425jne 0x37b6b9450
    37b6b9427mov rax, [rsp+368]
    37b6b942flea r13, [rsp+188]
    37b6b9437mov [rax], -1
    37b6b943dmov eax, -1
    37b6b9442neg eax
    37b6b9444jmp 0x37b6b948c
    37b6b9446
    37b6b9446 66 2e 0f 1f 84 00 00 00 00 00 f.........
    37b6b9450
    37b6b9450loc_37b6b9450:
    37b6b9450test ebp, ebp
    37b6b9452mov eax, 1
    37b6b9457cmovg eax, ebp
    37b6b945amov ebp, [rsp+128]
    37b6b9461mov [rsp+136], eax
    37b6b9468jmp 0x37b6b92fc
    37b6b946d
    37b6b946d 0f 1f 00 ...
    37b6b9470
    37b6b9470loc_37b6b9470:
    37b6b9470mov edx, -4
    37b6b9475mov eax, 4
    37b6b947a
    37b6b947aloc_37b6b947a:
    37b6b947amov rdi, [rsp+368]
    37b6b9482lea r13, [rsp+188]
    37b6b948amov [rdi], edx
    37b6b948c
    37b6b948cloc_37b6b948c:
    37b6b948cmov r8l, 6
    37b6b9492mov rdx, r13
    37b6b9495lea rcx, [rip+0xd7b67e]
    37b6b949cmov [rsp+188], eax
    37b6b94a3call xerbla_
    37b6b94a8nop
    37b6b94a9
    37b6b94a9loc_37b6b94a9:
    37b6b94a9add rsp, 200
    37b6b94b0pop rbx
    37b6b94b1pop rsi
    37b6b94b2pop rdi
    37b6b94b3pop rbp
    37b6b94b4pop r12
    37b6b94b6pop r13
    37b6b94b8pop r14
    37b6b94bapop r15
    37b6b94bcret
    37b6b94bd
    37b6b94bd 0f 1f 00 ...
    37b6b94c0
    37b6b94c0loc_37b6b94c0:
    37b6b94c0mov r9l, 1
    37b6b94c6mov r8l, 1
    37b6b94cclea rdx, [rip+0xd7b631]
    37b6b94d3mov rcx, rdi
    37b6b94d6call lsame_
    37b6b94dbtest eax, eax
    37b6b94ddjne 0x37b6b936b
    37b6b94e3mov edx, -3
    37b6b94e8mov eax, 3
    37b6b94edjmp 0x37b6b947a
    37b6b94ef
    37b6b94ef 90 .
    37b6b94f0
    37b6b94f0loc_37b6b94f0:
    37b6b94f0mov edx, -5
    37b6b94f5mov eax, 5
    37b6b94fajmp 0x37b6b947a
    37b6b94ff
    37b6b94ff 90 .
    37b6b9500
    37b6b9500loc_37b6b9500:
    37b6b9500mov edx, -7
    37b6b9505mov eax, 7
    37b6b950ajmp 0x37b6b947a
    37b6b950f
    37b6b950f 90 .
    37b6b9510
    37b6b9510loc_37b6b9510:
    37b6b9510mov edx, -10
    37b6b9515mov eax, 10
    37b6b951ajmp 0x37b6b947a
    37b6b951f
    37b6b951f 90 .
    37b6b9520
    37b6b9520loc_37b6b9520:
    37b6b9520mov eax, [rax]
    37b6b9522test eax, eax
    37b6b9524jne 0x37b6b99fe
    37b6b952alea rax, [rsp+180]
    37b6b9532mov [rsp+40], rdi
    37b6b9537mov r9, rsi
    37b6b953amov ecx, 2
    37b6b953fmov [rsp+32], 1
    37b6b9548mov r8l, 1
    37b6b954emov rdx, rax
    37b6b9551mov [rsp+128], rax
    37b6b9559test r14l, r14l
    37b6b955cje 0x37b6b9768
    37b6b9562test r12l, r12l
    37b6b9565je 0x37b6b97f8
    37b6b956bcall _gfortran_concat_string
    37b6b9570mov eax, [rbx]
    37b6b9572lea r13, [rsp+188]
    37b6b957amov [rsp+64], 2
    37b6b9583mov [rsp+56], 6
    37b6b958cmov r8, [rsp+128]
    37b6b9594lea r9, [rsp+184]
    37b6b959clea rdx, [rip+0xd7b562]
    37b6b95a3sub eax, 1
    37b6b95a6mov [rsp+40], r13
    37b6b95ablea rcx, [rip+0xd7b55a]
    37b6b95b2mov [rsp+184], eax
    37b6b95b9mov [rsp+188], eax
    37b6b95c0lea rax, [rip+0xd7b549]
    37b6b95c7mov [rsp+48], rax
    37b6b95ccmov rax, [rsp+304]
    37b6b95d4mov [rsp+152], r9
    37b6b95dcmov [rsp+32], rax
    37b6b95e1call ilaenv_
    37b6b95e6
    37b6b95e6loc_37b6b95e6:
    37b6b95e6imul eax, [rsp+136]
    37b6b95eemov [rsp+176], eax
    37b6b95f5lea rax, [rsp+176]
    37b6b95fdmov rcx, rax
    37b6b9600mov [rsp+136], rax
    37b6b9608call sroundup_lwork_
    37b6b960dmov rax, [rsp+352]
    37b6b9615movss [rax], x0
    37b6b9619mov rax, [rsp+368]
    37b6b9621mov eax, [rax]
    37b6b9623test eax, eax
    37b6b9625jne 0x37b6b933b
    37b6b962bcmp r15l, -1
    37b6b962fje 0x37b6b94a9
    37b6b9635mov eax, [rbx]
    37b6b9637test eax, eax
    37b6b9639je 0x37b6b9750
    37b6b963fmov rbx, [rsp+304]
    37b6b9647mov edx, [rbx]
    37b6b9649cmp ebp, 1
    37b6b964cje 0x37b6b9750
    37b6b9652test edx, edx
    37b6b9654je 0x37b6b9750
    37b6b965atest r12l, r12l
    37b6b965dje 0x37b6b9908
    37b6b9663sub eax, 1
    37b6b9666mov [rsp+184], edx
    37b6b966dmov [rsp+180], eax
    37b6b9674mov eax, 4
    37b6b9679test r14l, r14l
    37b6b967cjne 0x37b6b9940
    37b6b9682
    37b6b9682loc_37b6b9682:
    37b6b9682add rax, [rsp+336]
    37b6b968asub ebp, 1
    37b6b968dmov rcx, rsi
    37b6b9690mov rbx, [rsp+360]
    37b6b9698mov [rsp+64], rax
    37b6b969dmov rax, [rsp+328]
    37b6b96a5lea rdx, [rsp+172]
    37b6b96admov [rsp+88], rbx
    37b6b96b2mov rbx, [rsp+352]
    37b6b96bamov [rsp+56], rax
    37b6b96bfmov rax, [rsp+320]
    37b6b96c7mov [rsp+80], rbx
    37b6b96ccmov rbx, [rsp+344]
    37b6b96d4mov [rsp+48], rax
    37b6b96d9mov rax, [rsp+312]
    37b6b96e1mov [rsp+96], rdx
    37b6b96e6mov r9, [rsp+152]
    37b6b96eemov rdx, rdi
    37b6b96f1add rax, 4
    37b6b96f5mov [rsp+72], rbx
    37b6b96famov r8, [rsp+128]
    37b6b9702mov [rsp+112], 1
    37b6b970bmov [rsp+104], 1
    37b6b9714mov [rsp+40], rax
    37b6b9719mov [rsp+32], r13
    37b6b971emov [rsp+188], ebp
    37b6b9725call sormqr_
    37b6b972a
    37b6b972aloc_37b6b972a:
    37b6b972amov rcx, [rsp+136]
    37b6b9732call sroundup_lwork_
    37b6b9737mov rax, [rsp+352]
    37b6b973fmovss [rax], x0
    37b6b9743jmp 0x37b6b94a9
    37b6b9748
    37b6b9748 0f 1f 84 00 00 00 00 00 ........
    37b6b9750
    37b6b9750loc_37b6b9750:
    37b6b9750mov rax, [rsp+352]
    37b6b9758mov [rax], 0x3f800000
    37b6b975ejmp 0x37b6b94a9
    37b6b9763
    37b6b9763 0f 1f 44 00 00 ..D..
    37b6b9768
    37b6b9768loc_37b6b9768:
    37b6b9768test r12l, r12l
    37b6b976bje 0x37b6b9880
    37b6b9771call _gfortran_concat_string
    37b6b9776mov eax, [rbx]
    37b6b9778lea r13, [rsp+188]
    37b6b9780mov [rsp+64], 2
    37b6b9789mov [rsp+56], 6
    37b6b9792mov r8, [rsp+128]
    37b6b979alea r9, [rsp+184]
    37b6b97a2lea rdx, [rip+0xd7b36b]
    37b6b97a9sub eax, 1
    37b6b97acmov [rsp+40], r13
    37b6b97b1lea rcx, [rip+0xd7b354]
    37b6b97b8mov [rsp+184], eax
    37b6b97bfmov [rsp+188], eax
    37b6b97c6lea rax, [rip+0xd7b343]
    37b6b97cdmov [rsp+48], rax
    37b6b97d2mov rax, [rsp+304]
    37b6b97damov [rsp+152], r9
    37b6b97e2mov [rsp+32], rax
    37b6b97e7call ilaenv_
    37b6b97ecjmp 0x37b6b95e6
    37b6b97f1
    37b6b97f1 0f 1f 80 00 00 00 00 .......
    37b6b97f8
    37b6b97f8loc_37b6b97f8:
    37b6b97f8call _gfortran_concat_string
    37b6b97fdmov rax, [rsp+304]
    37b6b9805lea r13, [rsp+188]
    37b6b980dmov r8, [rsp+128]
    37b6b9815mov r9, rbx
    37b6b9818lea rdx, [rip+0xd7b2e6]
    37b6b981flea rcx, [rip+0xd7b2e6]
    37b6b9826mov eax, [rax]
    37b6b9828mov [rsp+40], r13
    37b6b982dmov [rsp+64], 2
    37b6b9836mov [rsp+56], 6
    37b6b983fsub eax, 1
    37b6b9842mov [rsp+184], eax
    37b6b9849mov [rsp+188], eax
    37b6b9850lea rax, [rip+0xd7b2b9]
    37b6b9857mov [rsp+48], rax
    37b6b985clea rax, [rsp+184]
    37b6b9864mov [rsp+32], rax
    37b6b9869mov [rsp+152], rax
    37b6b9871call ilaenv_
    37b6b9876jmp 0x37b6b95e6
    37b6b987b
    37b6b987b 0f 1f 44 00 00 ..D..
    37b6b9880
    37b6b9880loc_37b6b9880:
    37b6b9880call _gfortran_concat_string
    37b6b9885mov rax, [rsp+304]
    37b6b988dlea r13, [rsp+188]
    37b6b9895mov r8, [rsp+128]
    37b6b989dmov r9, rbx
    37b6b98a0lea rdx, [rip+0xd7b26d]
    37b6b98a7lea rcx, [rip+0xd7b25e]
    37b6b98aemov eax, [rax]
    37b6b98b0mov [rsp+40], r13
    37b6b98b5mov [rsp+64], 2
    37b6b98bemov [rsp+56], 6
    37b6b98c7sub eax, 1
    37b6b98camov [rsp+184], eax
    37b6b98d1mov [rsp+188], eax
    37b6b98d8lea rax, [rip+0xd7b231]
    37b6b98dfmov [rsp+48], rax
    37b6b98e4lea rax, [rsp+184]
    37b6b98ecmov [rsp+32], rax
    37b6b98f1mov [rsp+152], rax
    37b6b98f9call ilaenv_
    37b6b98fejmp 0x37b6b95e6
    37b6b9903
    37b6b9903 0f 1f 44 00 00 ..D..
    37b6b9908
    37b6b9908loc_37b6b9908:
    37b6b9908sub edx, 1
    37b6b990bmov [rsp+180], eax
    37b6b9912mov [rsp+184], edx
    37b6b9919test r14l, r14l
    37b6b991cjne 0x37b6b9940
    37b6b991emovsxd rax, [rsp+144]
    37b6b9926xor edx, edx
    37b6b9928test rax, rax
    37b6b992bcmovs rax, rdx
    37b6b992fshl rax, 2
    37b6b9933jmp 0x37b6b9682
    37b6b9938
    37b6b9938 0f 1f 84 00 00 00 00 00 ........
    37b6b9940
    37b6b9940loc_37b6b9940:
    37b6b9940mov rbx, [rsp+360]
    37b6b9948sub ebp, 1
    37b6b994bmov [rsp+32], r13
    37b6b9950mov rcx, rsi
    37b6b9953movsxd rax, [rsp+148]
    37b6b995blea rdx, [rsp+172]
    37b6b9963mov [rsp+104], 1
    37b6b996cmov [rsp+88], rbx
    37b6b9971mov rbx, [rsp+352]
    37b6b9979mov [rsp+96], rdx
    37b6b997exor edx, edx
    37b6b9980test rax, rax
    37b6b9983mov r9, [rsp+152]
    37b6b998bmov [rsp+80], rbx
    37b6b9990mov rbx, [rsp+344]
    37b6b9998cmovs rax, rdx
    37b6b999cmov rdx, rdi
    37b6b999fmov r8, [rsp+128]
    37b6b99a7mov [rsp+188], ebp
    37b6b99aemov [rsp+72], rbx
    37b6b99b3mov rbx, [rsp+336]
    37b6b99bbmov [rsp+112], 1
    37b6b99c4mov [rsp+64], rbx
    37b6b99c9mov rbx, [rsp+328]
    37b6b99d1mov [rsp+56], rbx
    37b6b99d6mov rbx, [rsp+320]
    37b6b99demov [rsp+48], rbx
    37b6b99e3mov rbx, [rsp+312]
    37b6b99eblea rax, [rbx+4*rax]
    37b6b99efmov [rsp+40], rax
    37b6b99f4call sormql_
    37b6b99f9jmp 0x37b6b972a
    37b6b99fe
    37b6b99feloc_37b6b99fe:
    37b6b99feneg eax
    37b6b9a00lea r13, [rsp+188]
    37b6b9a08jmp 0x37b6b948c
    37b6b9240
    37b6b9a0d
    37b6b9a0d // align 0x10
    37b6b9a10
    37b6b9a10spbcon_:
    37b6b9a10push r15
    37b6b9a12push r14
    37b6b9a14push r13
    37b6b9a16push r12
    37b6b9a18push rbp
    37b6b9a19push rdi
    37b6b9a1apush rsi
    37b6b9a1bpush rbx
    37b6b9a1csub rsp, 248
    37b6b9a23movups [rsp+208], x6
    37b6b9a2bmovups [rsp+224], x7
    37b6b9a33mov rdi, [rsp+392]
    37b6b9a3bmov r12, [rsp+352]
    37b6b9a43mov rbx, [rsp+376]
    37b6b9a4bmov [rdi], 0
    37b6b9a51mov r15, rdx
    37b6b9a54mov rsi, r8
    37b6b9a57mov rbp, r9
    37b6b9a5amov r8l, 1
    37b6b9a60mov r9l, 1
    37b6b9a66lea rdx, [rip+0xd7b0b3]
    37b6b9a6dmov r14, rcx
    37b6b9a70call lsame_
    37b6b9a75mov r13l, eax
    37b6b9a78test eax, eax
    37b6b9a7aje 0x37b6b9e38
    37b6b9a80
    37b6b9a80loc_37b6b9a80:
    37b6b9a80mov edx, [r15]
    37b6b9a83test edx, edx
    37b6b9a85js 0x37b6b9de0
    37b6b9a8bmov eax, [rsi]
    37b6b9a8dtest eax, eax
    37b6b9a8fjs 0x37b6b9e70
    37b6b9a95cmp eax, [r12]
    37b6b9a99jge 0x37b6b9e80
    37b6b9a9fmov rax, [rsp+360]
    37b6b9aa7pxor x0, x0
    37b6b9aabmovss x1, [rax]
    37b6b9aafcomiss x0, x1
    37b6b9ab2ja 0x37b6b9f60
    37b6b9ab8mov eax, [rdi]
    37b6b9abatest eax, eax
    37b6b9abcjne 0x37b6b9f6f
    37b6b9ac2mov rax, [rsp+368]
    37b6b9acamov [rax], 0
    37b6b9ad0test edx, edx
    37b6b9ad2je 0x37b6b9e90
    37b6b9ad8ucomiss x1, x0
    37b6b9adbjp 0x37b6b9ae3
    37b6b9addje 0x37b6b9e0e
    37b6b9ae3
    37b6b9ae3loc_37b6b9ae3:
    37b6b9ae3mov edx, 12
    37b6b9ae8lea rcx, [rip+0xd7b039]
    37b6b9aeflea r14, [rsp+180]
    37b6b9af7call slamch_
    37b6b9afclea rax, [rsp+196]
    37b6b9b04mov [rsp+180], 0
    37b6b9b0fmovss x6, [rip+0xd7b049]
    37b6b9b17mov [rsp+144], rax
    37b6b9b1flea rax, [rsp+176]
    37b6b9b27movaps x7, x0
    37b6b9b2amov [rsp+136], rax
    37b6b9b32mov eax, r13l
    37b6b9b35mov r13, r15
    37b6b9b38mov [rsp+175], 78
    37b6b9b40mov r15l, eax
    37b6b9b43jmp 0x37b6b9c6a
    37b6b9b48
    37b6b9b48 0f 1f 84 00 00 00 00 00 ........
    37b6b9b50
    37b6b9b50loc_37b6b9b50:
    37b6b9b50mov [rsp+80], rdx
    37b6b9b55lea rdx, [rsp+188]
    37b6b9b5dlea r8, [rip+0xd7afd0]
    37b6b9b64mov [rsp+72], rdx
    37b6b9b69lea rcx, [rip+0xd7afd5]
    37b6b9b70lea rdx, [rip+0xd7afc5]
    37b6b9b77mov [rsp+104], 9
    37b6b9b80mov [rsp+96], 5
    37b6b9b89mov [rsp+88], rdi
    37b6b9b8emov [rsp+64], rbx
    37b6b9b93mov [rsp+56], r12
    37b6b9b98mov [rsp+48], rbp
    37b6b9b9dmov [rsp+40], rsi
    37b6b9ba2mov [rsp+32], r13
    37b6b9ba7mov [rsp+152], r9
    37b6b9bafcall slatbs_
    37b6b9bb4mov [rsp+88], rdi
    37b6b9bb9mov r9, [rsp+152]
    37b6b9bc1lea r8, [rip+0xd7af6c]
    37b6b9bc8mov [rsp+120], 1
    37b6b9bd1lea rcx, [rip+0xd7af6d]
    37b6b9bd8mov [rsp+112], 8
    37b6b9be1mov [rsp+104], 12
    37b6b9beamov [rsp+96], 5
    37b6b9bf3mov eax, [r13]
    37b6b9bf7mov [rsp+64], rbx
    37b6b9bfclea edx, [rax+rax]
    37b6b9bffmov [rsp+56], r12
    37b6b9c04movsxd rdx, edx
    37b6b9c07mov [rsp+48], rbp
    37b6b9c0clea rdx, [rbx+4*rdx]
    37b6b9c10mov [rsp+40], rsi
    37b6b9c15mov [rsp+80], rdx
    37b6b9c1alea rdx, [rsp+192]
    37b6b9c22mov [rsp+72], rdx
    37b6b9c27lea rdx, [rip+0xd7af1c]
    37b6b9c2emov [rsp+32], r13
    37b6b9c33mov [rsp+175], 89
    37b6b9c3bcall slatbs_
    37b6b9c40
    37b6b9c40loc_37b6b9c40:
    37b6b9c40movss x0, [rsp+188]
    37b6b9c49mulss x0, [rsp+192]
    37b6b9c52movss [rsp+184], x0
    37b6b9c5bucomiss x0, x6
    37b6b9c5ejp 0x37b6b9ee8
    37b6b9c64jne 0x37b6b9ee8
    37b6b9c6a
    37b6b9c6aloc_37b6b9c6a:
    37b6b9c6amov rax, [rsp+144]
    37b6b9c72movsxd rdx, [r13]
    37b6b9c76mov [rsp+40], r14
    37b6b9c7bmov r8, rbx
    37b6b9c7emov r9, [rsp+384]
    37b6b9c86mov rcx, r13
    37b6b9c89mov [rsp+48], rax
    37b6b9c8emov rax, [rsp+136]
    37b6b9c96lea rdx, [rbx+4*rdx]
    37b6b9c9amov [rsp+32], rax
    37b6b9c9fcall slacn2_
    37b6b9ca4mov eax, [rsp+180]
    37b6b9cabtest eax, eax
    37b6b9cadje 0x37b6b9ea0
    37b6b9cb3mov eax, [r13]
    37b6b9cb7lea r9, [rsp+175]
    37b6b9cbfmov [rsp+120], 1
    37b6b9cc8mov [rsp+112], 8
    37b6b9cd1lea edx, [rax+rax]
    37b6b9cd4movsxd rdx, edx
    37b6b9cd7lea rdx, [rbx+4*rdx]
    37b6b9cdbtest r15l, r15l
    37b6b9cdejne 0x37b6b9b50
    37b6b9ce4mov [rsp+80], rdx
    37b6b9ce9lea rdx, [rsp+188]
    37b6b9cf1lea r8, [rip+0xd7ae3c]
    37b6b9cf8mov [rsp+72], rdx
    37b6b9cfdlea rcx, [rip+0xd7ae52]
    37b6b9d04lea rdx, [rip+0xd7ae3f]
    37b6b9d0bmov [rsp+104], 12
    37b6b9d14mov [rsp+96], 5
    37b6b9d1dmov [rsp+88], rdi
    37b6b9d22mov [rsp+64], rbx
    37b6b9d27mov [rsp+56], r12
    37b6b9d2cmov [rsp+48], rbp
    37b6b9d31mov [rsp+40], rsi
    37b6b9d36mov [rsp+32], r13
    37b6b9d3bmov [rsp+152], r9
    37b6b9d43call slatbs_
    37b6b9d48mov [rsp+88], rdi
    37b6b9d4dmov r9, [rsp+152]
    37b6b9d55lea r8, [rip+0xd7add8]
    37b6b9d5cmov [rsp+120], 1
    37b6b9d65lea rcx, [rip+0xd7adea]
    37b6b9d6cmov [rsp+112], 8
    37b6b9d75mov [rsp+104], 9
    37b6b9d7emov [rsp+96], 5
    37b6b9d87mov eax, [r13]
    37b6b9d8bmov [rsp+64], rbx
    37b6b9d90lea edx, [rax+rax]
    37b6b9d93mov [rsp+56], r12
    37b6b9d98movsxd rdx, edx
    37b6b9d9bmov [rsp+48], rbp
    37b6b9da0lea rdx, [rbx+4*rdx]
    37b6b9da4mov [rsp+40], rsi
    37b6b9da9mov [rsp+80], rdx
    37b6b9daelea rdx, [rsp+192]
    37b6b9db6mov [rsp+72], rdx
    37b6b9dbblea rdx, [rip+0xd7ad7a]
    37b6b9dc2mov [rsp+32], r13
    37b6b9dc7mov [rsp+175], 89
    37b6b9dcfcall slatbs_
    37b6b9dd4jmp 0x37b6b9c40
    37b6b9dd9
    37b6b9dd9 0f 1f 80 00 00 00 00 .......
    37b6b9de0
    37b6b9de0loc_37b6b9de0:
    37b6b9de0mov edx, -2
    37b6b9de5mov eax, 2
    37b6b9dea
    37b6b9dealoc_37b6b9dea:
    37b6b9deamov [rdi], edx
    37b6b9dec
    37b6b9decloc_37b6b9dec:
    37b6b9declea rdx, [rsp+196]
    37b6b9df4mov r8l, 6
    37b6b9dfalea rcx, [rip+0xd7ad21]
    37b6b9e01mov [rsp+196], eax
    37b6b9e08call xerbla_
    37b6b9e0dnop
    37b6b9e0e
    37b6b9e0eloc_37b6b9e0e:
    37b6b9e0emovups x6, [rsp+208]
    37b6b9e16movups x7, [rsp+224]
    37b6b9e1eadd rsp, 248
    37b6b9e25pop rbx
    37b6b9e26pop rsi
    37b6b9e27pop rdi
    37b6b9e28pop rbp
    37b6b9e29pop r12
    37b6b9e2bpop r13
    37b6b9e2dpop r14
    37b6b9e2fpop r15
    37b6b9e31ret
    37b6b9e32
    37b6b9e32 66 0f 1f 44 00 00 f..D..
    37b6b9e38
    37b6b9e38loc_37b6b9e38:
    37b6b9e38mov r9l, 1
    37b6b9e3emov r8l, 1
    37b6b9e44lea rdx, [rip+0xd7acd6]
    37b6b9e4bmov rcx, r14
    37b6b9e4ecall lsame_
    37b6b9e53test eax, eax
    37b6b9e55jne 0x37b6b9a80
    37b6b9e5bmov edx, -1
    37b6b9e60mov eax, 1
    37b6b9e65jmp 0x37b6b9dea
    37b6b9e67
    37b6b9e67 66 0f 1f 84 00 00 00 00 00 f........
    37b6b9e70
    37b6b9e70loc_37b6b9e70:
    37b6b9e70mov edx, -3
    37b6b9e75mov eax, 3
    37b6b9e7ajmp 0x37b6b9dea
    37b6b9e7f
    37b6b9e7f 90 .
    37b6b9e80
    37b6b9e80loc_37b6b9e80:
    37b6b9e80mov edx, -5
    37b6b9e85mov eax, 5
    37b6b9e8ajmp 0x37b6b9dea
    37b6b9e8f
    37b6b9e8f 90 .
    37b6b9e90
    37b6b9e90loc_37b6b9e90:
    37b6b9e90mov [rax], 0x3f800000
    37b6b9e96jmp 0x37b6b9e0e
    37b6b9e9b
    37b6b9e9b 0f 1f 44 00 00 ..D..
    37b6b9ea0
    37b6b9ea0loc_37b6b9ea0:
    37b6b9ea0movss x1, [rsp+176]
    37b6b9ea9pxor x0, x0
    37b6b9eaducomiss x1, x0
    37b6b9eb0jp 0x37b6b9eb8
    37b6b9eb2je 0x37b6b9e0e
    37b6b9eb8
    37b6b9eb8loc_37b6b9eb8:
    37b6b9eb8movss x0, [rip+0xd7aca0]
    37b6b9ec0mov rax, [rsp+360]
    37b6b9ec8divss x0, x1
    37b6b9eccdivss x0, [rax]
    37b6b9ed0mov rax, [rsp+368]
    37b6b9ed8movss [rax], x0
    37b6b9edcjmp 0x37b6b9e0e
    37b6b9ee1
    37b6b9ee1 0f 1f 80 00 00 00 00 .......
    37b6b9ee8
    37b6b9ee8loc_37b6b9ee8:
    37b6b9ee8lea r8, [rip+0xd7ac6d]
    37b6b9eefmov rdx, rbx
    37b6b9ef2mov rcx, r13
    37b6b9ef5movss [rsp+152], x0
    37b6b9efecall isamax_
    37b6b9f03movss x0, [rsp+152]
    37b6b9f0ccdqe
    37b6b9f0emovss x1, [rbx+4*rax-4]
    37b6b9f14andps x1, [rip+0xd7ac55]
    37b6b9f1bmulss x1, x7
    37b6b9f1fcomiss x1, x0
    37b6b9f22ja 0x37b6b9e0e
    37b6b9f28pxor x1, x1
    37b6b9f2cucomiss x0, x1
    37b6b9f2fjp 0x37b6b9f37
    37b6b9f31je 0x37b6b9e0e
    37b6b9f37
    37b6b9f37loc_37b6b9f37:
    37b6b9f37lea rdx, [rsp+184]
    37b6b9f3flea r9, [rip+0xd7ac16]
    37b6b9f46mov r8, rbx
    37b6b9f49mov rcx, r13
    37b6b9f4ccall srscl_
    37b6b9f51jmp 0x37b6b9c6a
    37b6b9f56
    37b6b9f56 66 2e 0f 1f 84 00 00 00 00 00 f.........
    37b6b9f60
    37b6b9f60loc_37b6b9f60:
    37b6b9f60mov edx, -6
    37b6b9f65mov eax, 6
    37b6b9f6ajmp 0x37b6b9dea
    37b6b9f6f
    37b6b9f6floc_37b6b9f6f:
    37b6b9f6fneg eax
    37b6b9f71jmp 0x37b6b9dec
    37b6b9a10
    37b6b9f76
    37b6b9f76 // align 0x10
    37b6b9f80
    37b6b9f80spbequ_:
    37b6b9f80push r13
    37b6b9f82push r12
    37b6b9f84push rbp
    37b6b9f85push rdi
    37b6b9f86push rsi
    37b6b9f87push rbx
    37b6b9f88sub rsp, 72
    37b6b9f8cmov rax, [rsp+160]
    37b6b9f94mov rbx, [rsp+168]
    37b6b9f9cmov esi, [rax]
    37b6b9f9emov rax, [rsp+192]
    37b6b9fa6mov [rax], 0
    37b6b9facmov r12, rdx
    37b6b9fafmov rbp, r8
    37b6b9fb2mov rdi, r9
    37b6b9fb5mov r8l, 1
    37b6b9fbbmov r9l, 1
    37b6b9fc1lea rdx, [rip+0xd7abb8]
    37b6b9fc8mov r13, rcx
    37b6b9fcbcall lsame_
    37b6b9fd0mov r11l, eax
    37b6b9fd3test eax, eax
    37b6b9fd5je 0x37b6ba1c8
    37b6b9fdb
    37b6b9fdbloc_37b6b9fdb:
    37b6b9fdbmov r10l, [r12]
    37b6b9fdftest r10l, r10l
    37b6b9fe2js 0x37b6ba188
    37b6b9fe8movsxd rax, [rbp]
    37b6b9fectest eax, eax
    37b6b9feejs 0x37b6ba290
    37b6b9ff4mov rdx, [rsp+160]
    37b6b9ffccmp eax, [rdx]
    37b6b9ffejge 0x37b6ba2a0
    37b6ba004mov rcx, [rsp+192]
    37b6ba00cmov edx, [rcx]
    37b6ba00etest edx, edx
    37b6ba010jne 0x37b6ba2c6
    37b6ba016test r10l, r10l
    37b6ba019je 0x37b6ba210
    37b6ba01ftest r11l, r11l
    37b6ba022je 0x37b6ba2b0
    37b6ba028lea edx, [rax+1]
    37b6ba02bmovsxd rdx, edx
    37b6ba02e
    37b6ba02eloc_37b6ba02e:
    37b6ba02emovss x1, [rdi+4*rax]
    37b6ba033mov rax, [rsp+184]
    37b6ba03bmovss [rbx], x1
    37b6ba03fmovss [rax], x1
    37b6ba043cmp r10l, 1
    37b6ba047je 0x37b6ba240
    37b6ba04dmovsxd rax, esi
    37b6ba050lea r8l, [r10-2]
    37b6ba054movaps x2, x1
    37b6ba057xor ecx, ecx
    37b6ba059test rax, rax
    37b6ba05clea r8, [rbx+4*r8+8]
    37b6ba061cmovs rax, rcx
    37b6ba065mov rcx, rax
    37b6ba068lea r11, [4*rax]
    37b6ba070not rcx
    37b6ba073lea rax, [rcx+2*rax]
    37b6ba077mov rcx, rbx
    37b6ba07aadd rax, rdx
    37b6ba07dlea rdx, [rdi+4*rax]
    37b6ba081lea rax, [rbx+4]
    37b6ba085nop [rax+rax]
    37b6ba08anop [rax+rax]
    37b6ba095nop [rax+rax]
    37b6ba0a0
    37b6ba0a0loc_37b6ba0a0:
    37b6ba0a0movss x0, [rdx]
    37b6ba0a4add rax, 4
    37b6ba0a8add rdx, r11
    37b6ba0abmovss [rax-4], x0
    37b6ba0b0minss x1, x0
    37b6ba0b4maxss x2, x0
    37b6ba0b8cmp rax, r8
    37b6ba0bbjne 0x37b6ba0a0
    37b6ba0bdpxor x0, x0
    37b6ba0c1mov rax, [rsp+184]
    37b6ba0c9comiss x0, x1
    37b6ba0ccmovss [rax], x2
    37b6ba0d0jae 0x37b6ba250
    37b6ba0d6lea eax, [r10-1]
    37b6ba0dacmp eax, 2
    37b6ba0ddjbe 0x37b6ba2bc
    37b6ba0e3mov eax, r10l
    37b6ba0e6movss x3, [rip+0xd7aa9a]
    37b6ba0eeshr eax, 2
    37b6ba0f1shl rax, 4
    37b6ba0f5shufps x3, x3, 0
    37b6ba0f9add rax, rbx
    37b6ba0fcnop [rax]
    37b6ba100
    37b6ba100loc_37b6ba100:
    37b6ba100movups x4, [rcx]
    37b6ba103movaps x2, x3
    37b6ba106add rcx, 16
    37b6ba10asqrtps x0, x4
    37b6ba10ddivps x2, x0
    37b6ba110movups [rcx-16], x2
    37b6ba114cmp rax, rcx
    37b6ba117jne 0x37b6ba100
    37b6ba119test r10b, 3
    37b6ba11dje 0x37b6ba152
    37b6ba11fmov eax, r10l
    37b6ba122and eax, -4
    37b6ba125add eax, 1
    37b6ba128
    37b6ba128loc_37b6ba128:
    37b6ba128movss x3, [rip+0xd7aa58]
    37b6ba130cdqe
    37b6ba132
    37b6ba132loc_37b6ba132:
    37b6ba132movss x2, [rbx+4*rax-4]
    37b6ba138movaps x0, x3
    37b6ba13bsqrtss x2, x2
    37b6ba13fdivss x0, x2
    37b6ba143movss [rbx+4*rax-4], x0
    37b6ba149add rax, 1
    37b6ba14dcmp r10l, eax
    37b6ba150jge 0x37b6ba132
    37b6ba152
    37b6ba152loc_37b6ba152:
    37b6ba152mov rax, [rsp+184]
    37b6ba15asqrtss x1, x1
    37b6ba15emovss x0, [rax]
    37b6ba162mov rax, [rsp+176]
    37b6ba16asqrtss x0, x0
    37b6ba16edivss x1, x0
    37b6ba172movss [rax], x1
    37b6ba176add rsp, 72
    37b6ba17apop rbx
    37b6ba17bpop rsi
    37b6ba17cpop rdi
    37b6ba17dpop rbp
    37b6ba17epop r12
    37b6ba180pop r13
    37b6ba182ret
    37b6ba183
    37b6ba183 0f 1f 44 00 00 ..D..
    37b6ba188
    37b6ba188loc_37b6ba188:
    37b6ba188mov eax, -2
    37b6ba18dmov edx, 2
    37b6ba192
    37b6ba192loc_37b6ba192:
    37b6ba192mov rsi, [rsp+192]
    37b6ba19amov [rsi], eax
    37b6ba19c
    37b6ba19cloc_37b6ba19c:
    37b6ba19cmov [rsp+60], edx
    37b6ba1a0mov r8l, 6
    37b6ba1a6lea rdx, [rsp+60]
    37b6ba1ablea rcx, [rip+0xd7a9d0]
    37b6ba1b2call xerbla_
    37b6ba1b7nop
    37b6ba1b8
    37b6ba1b8loc_37b6ba1b8:
    37b6ba1b8add rsp, 72
    37b6ba1bcpop rbx
    37b6ba1bdpop rsi
    37b6ba1bepop rdi
    37b6ba1bfpop rbp
    37b6ba1c0pop r12
    37b6ba1c2pop r13
    37b6ba1c4ret
    37b6ba1c5
    37b6ba1c5 0f 1f 00 ...
    37b6ba1c8
    37b6ba1c8loc_37b6ba1c8:
    37b6ba1c8mov r9l, 1
    37b6ba1cemov r8l, 1
    37b6ba1d4mov rcx, r13
    37b6ba1d7mov [rsp+44], eax
    37b6ba1dblea rdx, [rip+0xd7a99f]
    37b6ba1e2call lsame_
    37b6ba1e7mov r11l, [rsp+44]
    37b6ba1ectest eax, eax
    37b6ba1eejne 0x37b6b9fdb
    37b6ba1f4mov rax, [rsp+192]
    37b6ba1fcmov edx, 1
    37b6ba201mov [rax], -1
    37b6ba207jmp 0x37b6ba19c
    37b6ba209
    37b6ba209 0f 1f 80 00 00 00 00 .......
    37b6ba210
    37b6ba210loc_37b6ba210:
    37b6ba210mov rax, [rsp+176]
    37b6ba218mov [rax], 0x3f800000
    37b6ba21emov rax, [rsp+184]
    37b6ba226mov [rax], 0
    37b6ba22cadd rsp, 72
    37b6ba230pop rbx
    37b6ba231pop rsi
    37b6ba232pop rdi
    37b6ba233pop rbp
    37b6ba234pop r12
    37b6ba236pop r13
    37b6ba238ret
    37b6ba239
    37b6ba239 0f 1f 80 00 00 00 00 .......
    37b6ba240
    37b6ba240loc_37b6ba240:
    37b6ba240pxor x0, x0
    37b6ba244comiss x0, x1
    37b6ba247jb 0x37b6ba2bc
    37b6ba249nop [rax]
    37b6ba250
    37b6ba250loc_37b6ba250:
    37b6ba250mov eax, 1
    37b6ba255pxor x0, x0
    37b6ba259jmp 0x37b6ba26d
    37b6ba25b
    37b6ba25b 0f 1f 44 00 00 ..D..
    37b6ba260
    37b6ba260loc_37b6ba260:
    37b6ba260add rax, 1
    37b6ba264cmp r10l, eax
    37b6ba267jl 0x37b6ba1b8
    37b6ba26d
    37b6ba26dloc_37b6ba26d:
    37b6ba26dcomiss x0, [rbx+4*rax-4]
    37b6ba272jb 0x37b6ba260
    37b6ba274mov rsi, [rsp+192]
    37b6ba27cmov [rsi], eax
    37b6ba27eadd rsp, 72
    37b6ba282pop rbx
    37b6ba283pop rsi
    37b6ba284pop rdi
    37b6ba285pop rbp
    37b6ba286pop r12
    37b6ba288pop r13
    37b6ba28aret
    37b6ba28b
    37b6ba28b 0f 1f 44 00 00 ..D..
    37b6ba290
    37b6ba290loc_37b6ba290:
    37b6ba290mov eax, -3
    37b6ba295mov edx, 3
    37b6ba29ajmp 0x37b6ba192
    37b6ba29f
    37b6ba29f 90 .
    37b6ba2a0
    37b6ba2a0loc_37b6ba2a0:
    37b6ba2a0mov eax, -5
    37b6ba2a5mov edx, 5
    37b6ba2aajmp 0x37b6ba192
    37b6ba2af
    37b6ba2af 90 .
    37b6ba2b0
    37b6ba2b0loc_37b6ba2b0:
    37b6ba2b0xor eax, eax
    37b6ba2b2mov edx, 1
    37b6ba2b7jmp 0x37b6ba02e
    37b6ba2bc
    37b6ba2bcloc_37b6ba2bc:
    37b6ba2bcmov eax, 1
    37b6ba2c1jmp 0x37b6ba128
    37b6ba2c6
    37b6ba2c6loc_37b6ba2c6:
    37b6ba2c6neg edx
    37b6ba2c8jmp 0x37b6ba19c
    37b6b9f80