Similarity

37b6b4690
37b6b4690sormbr_:
37b6b4690push r15
37b6b4692push r14
37b6b4694push r13
37b6b4696push r12
37b6b4698push rbp
37b6b4699push rdi
37b6b469apush rsi
37b6b469bpush rbx
37b6b469csub rsp, 200
37b6b46a3mov rax, [rsp+328]
37b6b46abmov eax, [rax]
37b6b46admov [rsp+148], eax
37b6b46b4mov rsi, rdx
37b6b46b7mov rdi, r8
37b6b46bamov rbx, r9
37b6b46bdmov r8l, 1
37b6b46c3mov r9l, 1
37b6b46c9lea rdx, [rip+0xd802b0]
37b6b46d0mov r12, rcx
37b6b46d3mov rax, [rsp+352]
37b6b46dbmov eax, [rax]
37b6b46ddmov [rsp+144], eax
37b6b46e4mov rax, [rsp+376]
37b6b46ecmov [rax], 0
37b6b46f2call lsame_
37b6b46f7mov r9l, 1
37b6b46fdmov r8l, 1
37b6b4703mov rcx, rsi
37b6b4706lea rdx, [rip+0xd80274]
37b6b470dmov ebp, eax
37b6b470fcall lsame_
37b6b4714mov r9l, 1
37b6b471amov r8l, 1
37b6b4720mov rcx, rdi
37b6b4723lea rdx, [rip+0xd80258]
37b6b472amov r15l, eax
37b6b472dcall lsame_
37b6b4732mov r14l, [rbx]
37b6b4735mov [rsp+128], eax
37b6b473cmov rax, [rsp+368]
37b6b4744mov eax, [rax]
37b6b4746mov [rsp+132], eax
37b6b474dmov rax, [rsp+304]
37b6b4755mov r13l, [rax]
37b6b4758test r15l, r15l
37b6b475bje 0x37b6b4800
37b6b4761test ebp, ebp
37b6b4763je 0x37b6b4938
37b6b4769
37b6b4769loc_37b6b4769:
37b6b4769test r13l, r13l
37b6b476cmov eax, 1
37b6b4771cmovg eax, r13l
37b6b4775mov [rsp+136], eax
37b6b477c
37b6b477cloc_37b6b477c:
37b6b477cmov ecx, [rsp+128]
37b6b4783test ecx, ecx
37b6b4785je 0x37b6b48a0
37b6b478b
37b6b478bloc_37b6b478b:
37b6b478bmov eax, [rbx]
37b6b478dtest eax, eax
37b6b478fjs 0x37b6b4850
37b6b4795mov rdx, [rsp+304]
37b6b479dmov edx, [rdx]
37b6b479ftest edx, edx
37b6b47a1js 0x37b6b49e0
37b6b47a7mov rcx, [rsp+312]
37b6b47afmov edx, [rcx]
37b6b47b1test edx, edx
37b6b47b3js 0x37b6b4960
37b6b47b9mov rcx, [rsp+328]
37b6b47c1mov ecx, [rcx]
37b6b47c3test ebp, ebp
37b6b47c5je 0x37b6b4970
37b6b47cbtest r14l, r14l
37b6b47cemov edx, 1
37b6b47d3cmovg edx, r14l
37b6b47d7cmp edx, ecx
37b6b47d9jle 0x37b6b498b
37b6b47df
37b6b47dfloc_37b6b47df:
37b6b47dfmov rax, [rsp+376]
37b6b47e7lea r12, [rsp+188]
37b6b47efmov [rax], -8
37b6b47f5mov eax, -8
37b6b47fa
37b6b47faloc_37b6b47fa:
37b6b47faneg eax
37b6b47fcjmp 0x37b6b486c
37b6b47fe
37b6b47fe 66 90 f.
37b6b4800
37b6b4800loc_37b6b4800:
37b6b4800test ebp, ebp
37b6b4802je 0x37b6b48f0
37b6b4808
37b6b4808loc_37b6b4808:
37b6b4808mov r9l, 1
37b6b480emov r8l, 1
37b6b4814lea rdx, [rip+0xd80168]
37b6b481bmov rcx, rsi
37b6b481ecall lsame_
37b6b4823test eax, eax
37b6b4825jne 0x37b6b48d0
37b6b482bmov rax, [rsp+376]
37b6b4833lea r12, [rsp+188]
37b6b483bmov [rax], -2
37b6b4841mov eax, -2
37b6b4846neg eax
37b6b4848jmp 0x37b6b486c
37b6b484a
37b6b484a 66 0f 1f 44 00 00 f..D..
37b6b4850
37b6b4850loc_37b6b4850:
37b6b4850mov edx, -4
37b6b4855mov eax, 4
37b6b485a
37b6b485aloc_37b6b485a:
37b6b485amov rdi, [rsp+376]
37b6b4862lea r12, [rsp+188]
37b6b486amov [rdi], edx
37b6b486c
37b6b486cloc_37b6b486c:
37b6b486cmov r8l, 6
37b6b4872mov rdx, r12
37b6b4875lea rcx, [rip+0xd8011e]
37b6b487cmov [rsp+188], eax
37b6b4883call xerbla_
37b6b4888nop
37b6b4889
37b6b4889loc_37b6b4889:
37b6b4889add rsp, 200
37b6b4890pop rbx
37b6b4891pop rsi
37b6b4892pop rdi
37b6b4893pop rbp
37b6b4894pop r12
37b6b4896pop r13
37b6b4898pop r14
37b6b489apop r15
37b6b489cret
37b6b489d
37b6b489d 0f 1f 00 ...
37b6b48a0
37b6b48a0loc_37b6b48a0:
37b6b48a0mov r9l, 1
37b6b48a6mov r8l, 1
37b6b48aclea rdx, [rip+0xd800d1]
37b6b48b3mov rcx, rdi
37b6b48b6call lsame_
37b6b48bbtest eax, eax
37b6b48bdjne 0x37b6b478b
37b6b48c3mov edx, -3
37b6b48c8mov eax, 3
37b6b48cdjmp 0x37b6b485a
37b6b48cf
37b6b48cf 90 .
37b6b48d0
37b6b48d0loc_37b6b48d0:
37b6b48d0test r14l, r14l
37b6b48d3mov eax, 1
37b6b48d8cmovg eax, r14l
37b6b48dcmov r14l, r13l
37b6b48dfmov [rsp+136], eax
37b6b48e6jmp 0x37b6b477c
37b6b48eb
37b6b48eb 0f 1f 44 00 00 ..D..
37b6b48f0
37b6b48f0loc_37b6b48f0:
37b6b48f0mov r9l, 1
37b6b48f6mov r8l, 1
37b6b48fclea rdx, [rip+0xd8009d]
37b6b4903mov rcx, r12
37b6b4906call lsame_
37b6b490btest eax, eax
37b6b490djne 0x37b6b4808
37b6b4913
37b6b4913loc_37b6b4913:
37b6b4913mov rax, [rsp+376]
37b6b491blea r12, [rsp+188]
37b6b4923mov [rax], -1
37b6b4929mov eax, -1
37b6b492eneg eax
37b6b4930jmp 0x37b6b486c
37b6b4935
37b6b4935 0f 1f 00 ...
37b6b4938
37b6b4938loc_37b6b4938:
37b6b4938mov r9l, 1
37b6b493emov r8l, 1
37b6b4944lea rdx, [rip+0xd80055]
37b6b494bmov rcx, r12
37b6b494ecall lsame_
37b6b4953test eax, eax
37b6b4955jne 0x37b6b4769
37b6b495bjmp 0x37b6b4913
37b6b495d
37b6b495d 0f 1f 00 ...
37b6b4960
37b6b4960loc_37b6b4960:
37b6b4960mov edx, -6
37b6b4965mov eax, 6
37b6b496ajmp 0x37b6b485a
37b6b496f
37b6b496f 90 .
37b6b4970
37b6b4970loc_37b6b4970:
37b6b4970cmp edx, r14l
37b6b4973mov r8l, 1
37b6b4979cmovg edx, r14l
37b6b497dtest edx, edx
37b6b497fcmovle edx, r8l
37b6b4983cmp edx, ecx
37b6b4985jg 0x37b6b47df
37b6b498b
37b6b498bloc_37b6b498b:
37b6b498bmov rcx, [rsp+352]
37b6b4993test eax, eax
37b6b4995mov edx, 1
37b6b499acmovle eax, edx
37b6b499dcmp [rcx], eax
37b6b499fjl 0x37b6b49f0
37b6b49a1mov rax, [rsp+368]
37b6b49a9mov ecx, [rsp+136]
37b6b49b0cmp [rax], ecx
37b6b49b2mov rax, [rsp+376]
37b6b49bajge 0x37b6b4a00
37b6b49bccmp [rsp+132], -1
37b6b49c4je 0x37b6b4a00
37b6b49c6mov [rax], -13
37b6b49cclea r12, [rsp+188]
37b6b49d4mov eax, 13
37b6b49d9jmp 0x37b6b486c
37b6b49de
37b6b49de 66 90 f.
37b6b49e0
37b6b49e0loc_37b6b49e0:
37b6b49e0mov edx, -5
37b6b49e5mov eax, 5
37b6b49eajmp 0x37b6b485a
37b6b49ef
37b6b49ef 90 .
37b6b49f0
37b6b49f0loc_37b6b49f0:
37b6b49f0mov edx, -11
37b6b49f5mov eax, 11
37b6b49fajmp 0x37b6b485a
37b6b49ff
37b6b49ff 90 .
37b6b4a00
37b6b4a00loc_37b6b4a00:
37b6b4a00mov eax, [rax]
37b6b4a02test eax, eax
37b6b4a04jne 0x37b6b5089
37b6b4a0alea r13, [rsp+180]
37b6b4a12mov [rsp+40], rdi
37b6b4a17mov r9, rsi
37b6b4a1amov ecx, 2
37b6b4a1fmov [rsp+32], 1
37b6b4a28mov r8l, 1
37b6b4a2emov rdx, r13
37b6b4a31test ebp, ebp
37b6b4a33je 0x37b6b4c60
37b6b4a39test r15l, r15l
37b6b4a3cje 0x37b6b4e08
37b6b4a42call _gfortran_concat_string
37b6b4a47mov eax, [rbx]
37b6b4a49lea r12, [rsp+188]
37b6b4a51mov [rsp+64], 2
37b6b4a5amov [rsp+40], r12
37b6b4a5flea r9, [rsp+184]
37b6b4a67mov r8, r13
37b6b4a6alea rdx, [rip+0xd7ff14]
37b6b4a71sub eax, 1
37b6b4a74lea rcx, [rip+0xd7ff11]
37b6b4a7bmov [rsp+56], 6
37b6b4a84mov [rsp+184], eax
37b6b4a8bmov [rsp+188], eax
37b6b4a92lea rax, [rip+0xd7fef7]
37b6b4a99mov [rsp+48], rax
37b6b4a9emov rax, [rsp+304]
37b6b4aa6mov [rsp+152], r9
37b6b4aaemov [rsp+32], rax
37b6b4ab3call ilaenv_
37b6b4ab8
37b6b4ab8loc_37b6b4ab8:
37b6b4ab8imul eax, [rsp+136]
37b6b4ac0mov [rsp+176], eax
37b6b4ac7lea rax, [rsp+176]
37b6b4acfmov rcx, rax
37b6b4ad2mov [rsp+136], rax
37b6b4adacall sroundup_lwork_
37b6b4adfmov rax, [rsp+360]
37b6b4ae7movss [rax], x0
37b6b4aebmov rax, [rsp+376]
37b6b4af3mov eax, [rax]
37b6b4af5test eax, eax
37b6b4af7jne 0x37b6b47fa
37b6b4afdcmp [rsp+132], -1
37b6b4b05je 0x37b6b4889
37b6b4b0bmov rax, [rsp+360]
37b6b4b13mov [rax], 0x3f800000
37b6b4b19mov eax, [rbx]
37b6b4b1btest eax, eax
37b6b4b1dje 0x37b6b4889
37b6b4b23mov rcx, [rsp+304]
37b6b4b2bmov ecx, [rcx]
37b6b4b2dtest ecx, ecx
37b6b4b2fje 0x37b6b4889
37b6b4b35movsxd rdx, [rsp+144]
37b6b4b3dxor r8l, r8l
37b6b4b40mov r11, [rsp+312]
37b6b4b48test rdx, rdx
37b6b4b4bmov r9l, [r11]
37b6b4b4ecmovs rdx, r8
37b6b4b52mov r10, rdx
37b6b4b55not r10
37b6b4b58test ebp, ebp
37b6b4b5aje 0x37b6b4ce8
37b6b4b60cmp r14l, r9l
37b6b4b63jge 0x37b6b4f10
37b6b4b69cmp r14l, 1
37b6b4b6djle 0x37b6b4c40
37b6b4b73test r15l, r15l
37b6b4b76je 0x37b6b5078
37b6b4b7csub eax, 1
37b6b4b7fmov edx, 4
37b6b4b84
37b6b4b84loc_37b6b4b84:
37b6b4b84mov [rsp+32], r12
37b6b4b89mov r9, [rsp+152]
37b6b4b91mov r8, r13
37b6b4b94mov [rsp+180], eax
37b6b4b9blea eax, [r14-1]
37b6b4b9fmov [rsp+188], eax
37b6b4ba6lea rax, [rsp+172]
37b6b4baemov [rsp+96], rax
37b6b4bb3mov rax, [rsp+368]
37b6b4bbbmov [rsp+104], 1
37b6b4bc4mov [rsp+88], rax
37b6b4bc9mov rax, [rsp+360]
37b6b4bd1mov [rsp+184], ecx
37b6b4bd8mov rcx, rsi
37b6b4bdbmov [rsp+80], rax
37b6b4be0mov rax, [rsp+352]
37b6b4be8mov [rsp+112], 1
37b6b4bf1mov [rsp+72], rax
37b6b4bf6mov rax, [rsp+344]
37b6b4bfeadd rax, rdx
37b6b4c01mov rdx, rdi
37b6b4c04mov [rsp+64], rax
37b6b4c09mov rax, [rsp+336]
37b6b4c11mov [rsp+56], rax
37b6b4c16mov rax, [rsp+328]
37b6b4c1emov [rsp+48], rax
37b6b4c23mov rax, [rsp+320]
37b6b4c2badd rax, 4
37b6b4c2fmov [rsp+40], rax
37b6b4c34call sormqr_
37b6b4c39nop [rax]
37b6b4c40
37b6b4c40loc_37b6b4c40:
37b6b4c40mov rcx, [rsp+136]
37b6b4c48call sroundup_lwork_
37b6b4c4dmov rax, [rsp+360]
37b6b4c55movss [rax], x0
37b6b4c59jmp 0x37b6b4889
37b6b4c5e
37b6b4c5e 66 90 f.
37b6b4c60
37b6b4c60loc_37b6b4c60:
37b6b4c60test r15l, r15l
37b6b4c63je 0x37b6b4e90
37b6b4c69call _gfortran_concat_string
37b6b4c6emov eax, [rbx]
37b6b4c70lea r12, [rsp+188]
37b6b4c78mov [rsp+64], 2
37b6b4c81mov [rsp+40], r12
37b6b4c86lea r9, [rsp+184]
37b6b4c8emov r8, r13
37b6b4c91lea rdx, [rip+0xd7fcfc]
37b6b4c98sub eax, 1
37b6b4c9blea rcx, [rip+0xd7fcea]
37b6b4ca2mov [rsp+56], 6
37b6b4cabmov [rsp+184], eax
37b6b4cb2mov [rsp+188], eax
37b6b4cb9lea rax, [rip+0xd7fcd0]
37b6b4cc0mov [rsp+48], rax
37b6b4cc5mov rax, [rsp+304]
37b6b4ccdmov [rsp+152], r9
37b6b4cd5mov [rsp+32], rax
37b6b4cdacall ilaenv_
37b6b4cdfjmp 0x37b6b4ab8
37b6b4ce4
37b6b4ce4 0f 1f 40 00 ..@.
37b6b4ce8
37b6b4ce8loc_37b6b4ce8:
37b6b4ce8cmp [rsp+128], 1
37b6b4cf0sbb r8l, r8l
37b6b4cf3and r8l, -6
37b6b4cf7add r8l, 84
37b6b4cfbmov [rsp+171], r8b
37b6b4d03cmp r14l, r9l
37b6b4d06jg 0x37b6b4fb0
37b6b4d0ccmp r14l, 1
37b6b4d10jle 0x37b6b4c40
37b6b4d16movsxd r8, [rsp+148]
37b6b4d1exor r9l, r9l
37b6b4d21test r8, r8
37b6b4d24cmovs r8, r9
37b6b4d28mov r9, r8
37b6b4d2bnot r9
37b6b4d2etest r15l, r15l
37b6b4d31je 0x37b6b5060
37b6b4d37sub eax, 1
37b6b4d3amov edx, 4
37b6b4d3f
37b6b4d3floc_37b6b4d3f:
37b6b4d3fmov [rsp+180], eax
37b6b4d46lea eax, [r14-1]
37b6b4d4amov rbx, [rsp+320]
37b6b4d52mov [rsp+188], eax
37b6b4d59lea rax, [rsp+172]
37b6b4d61mov [rsp+96], rax
37b6b4d66mov rax, [rsp+368]
37b6b4d6emov [rsp+104], 1
37b6b4d77mov [rsp+88], rax
37b6b4d7cmov rax, [rsp+360]
37b6b4d84mov [rsp+32], r12
37b6b4d89mov [rsp+80], rax
37b6b4d8emov rax, [rsp+352]
37b6b4d96mov [rsp+184], ecx
37b6b4d9dmov rcx, rsi
37b6b4da0mov [rsp+72], rax
37b6b4da5mov rax, [rsp+344]
37b6b4dadmov [rsp+112], 1
37b6b4db6add rax, rdx
37b6b4db9lea rdx, [rsp+171]
37b6b4dc1mov [rsp+64], rax
37b6b4dc6mov rax, [rsp+336]
37b6b4dcemov [rsp+56], rax
37b6b4dd3mov rax, [rsp+328]
37b6b4ddbmov [rsp+48], rax
37b6b4de0lea rax, [r9+2*r8+1]
37b6b4de5mov r8, r13
37b6b4de8mov r9, [rsp+152]
37b6b4df0lea rax, [rbx+4*rax]
37b6b4df4mov [rsp+40], rax
37b6b4df9call sormlq_
37b6b4dfejmp 0x37b6b4c40
37b6b4e03
37b6b4e03 0f 1f 44 00 00 ..D..
37b6b4e08
37b6b4e08loc_37b6b4e08:
37b6b4e08call _gfortran_concat_string
37b6b4e0dmov rax, [rsp+304]
37b6b4e15mov r9, rbx
37b6b4e18mov r8, r13
37b6b4e1blea r12, [rsp+188]
37b6b4e23lea rdx, [rip+0xd7fb5b]
37b6b4e2amov eax, [rax]
37b6b4e2cmov [rsp+40], r12
37b6b4e31lea rcx, [rip+0xd7fb54]
37b6b4e38mov [rsp+64], 2
37b6b4e41mov [rsp+56], 6
37b6b4e4asub eax, 1
37b6b4e4dmov [rsp+184], eax
37b6b4e54mov [rsp+188], eax
37b6b4e5blea rax, [rip+0xd7fb2e]
37b6b4e62mov [rsp+48], rax
37b6b4e67lea rax, [rsp+184]
37b6b4e6fmov [rsp+32], rax
37b6b4e74mov [rsp+152], rax
37b6b4e7ccall ilaenv_
37b6b4e81jmp 0x37b6b4ab8
37b6b4e86
37b6b4e86 66 2e 0f 1f 84 00 00 00 00 00 f.........
37b6b4e90
37b6b4e90loc_37b6b4e90:
37b6b4e90call _gfortran_concat_string
37b6b4e95mov rax, [rsp+304]
37b6b4e9dmov r9, rbx
37b6b4ea0mov r8, r13
37b6b4ea3lea r12, [rsp+188]
37b6b4eablea rdx, [rip+0xd7fae2]
37b6b4eb2mov eax, [rax]
37b6b4eb4mov [rsp+40], r12
37b6b4eb9lea rcx, [rip+0xd7facc]
37b6b4ec0mov [rsp+64], 2
37b6b4ec9mov [rsp+56], 6
37b6b4ed2sub eax, 1
37b6b4ed5mov [rsp+184], eax
37b6b4edcmov [rsp+188], eax
37b6b4ee3lea rax, [rip+0xd7faa6]
37b6b4eeamov [rsp+48], rax
37b6b4eeflea rax, [rsp+184]
37b6b4ef7mov [rsp+32], rax
37b6b4efcmov [rsp+152], rax
37b6b4f04call ilaenv_
37b6b4f09jmp 0x37b6b4ab8
37b6b4f0e
37b6b4f0e 66 90 f.
37b6b4f10
37b6b4f10loc_37b6b4f10:
37b6b4f10mov [rsp+32], r11
37b6b4f15mov r8, rbx
37b6b4f18mov rdx, rdi
37b6b4f1bmov rcx, rsi
37b6b4f1elea rax, [rsp+172]
37b6b4f26mov r9, [rsp+304]
37b6b4f2emov [rsp+112], 1
37b6b4f37mov [rsp+96], rax
37b6b4f3cmov rax, [rsp+368]
37b6b4f44mov [rsp+104], 1
37b6b4f4dmov [rsp+88], rax
37b6b4f52mov rax, [rsp+360]
37b6b4f5amov [rsp+80], rax
37b6b4f5fmov rax, [rsp+352]
37b6b4f67mov [rsp+72], rax
37b6b4f6cmov rax, [rsp+344]
37b6b4f74mov [rsp+64], rax
37b6b4f79mov rax, [rsp+336]
37b6b4f81mov [rsp+56], rax
37b6b4f86mov rax, [rsp+328]
37b6b4f8emov [rsp+48], rax
37b6b4f93mov rax, [rsp+320]
37b6b4f9bmov [rsp+40], rax
37b6b4fa0call sormqr_
37b6b4fa5jmp 0x37b6b4c40
37b6b4faa
37b6b4faa 66 0f 1f 44 00 00 f..D..
37b6b4fb0
37b6b4fb0loc_37b6b4fb0:
37b6b4fb0lea rax, [rsp+172]
37b6b4fb8mov r8, rbx
37b6b4fbbmov rcx, rsi
37b6b4fbemov [rsp+112], 1
37b6b4fc7mov [rsp+96], rax
37b6b4fccmov rax, [rsp+368]
37b6b4fd4lea rdx, [rsp+171]
37b6b4fdcmov [rsp+104], 1
37b6b4fe5mov r9, [rsp+304]
37b6b4fedmov [rsp+88], rax
37b6b4ff2mov rax, [rsp+360]
37b6b4ffamov [rsp+80], rax
37b6b4fffmov rax, [rsp+352]
37b6b5007mov [rsp+72], rax
37b6b500cmov rax, [rsp+344]
37b6b5014mov [rsp+64], rax
37b6b5019mov rax, [rsp+336]
37b6b5021mov [rsp+56], rax
37b6b5026mov rax, [rsp+328]
37b6b502emov [rsp+48], rax
37b6b5033mov rax, [rsp+320]
37b6b503bmov [rsp+40], rax
37b6b5040mov rax, [rsp+312]
37b6b5048mov [rsp+32], rax
37b6b504dcall sormlq_
37b6b5052jmp 0x37b6b4c40
37b6b5057
37b6b5057 66 0f 1f 84 00 00 00 00 00 f........
37b6b5060
37b6b5060loc_37b6b5060:
37b6b5060lea rdx, [r10+2*rdx+1]
37b6b5065sub ecx, 1
37b6b5068shl rdx, 2
37b6b506cjmp 0x37b6b4d3f
37b6b5071
37b6b5071 0f 1f 80 00 00 00 00 .......
37b6b5078
37b6b5078loc_37b6b5078:
37b6b5078lea rdx, [r10+2*rdx+1]
37b6b507dsub ecx, 1
37b6b5080shl rdx, 2
37b6b5084jmp 0x37b6b4b84
37b6b5089
37b6b5089loc_37b6b5089:
37b6b5089neg eax
37b6b508blea r12, [rsp+188]
37b6b5093jmp 0x37b6b486c
37b6b4690

37b6b5098
37b6b5098 // align 0x10

37b6b50a0
37b6b50a0sormhr_:
37b6b50a0push r15
37b6b50a2push r14
37b6b50a4push r13
37b6b50a6push r12
37b6b50a8push rbp
37b6b50a9push rdi
37b6b50aapush rsi
37b6b50abpush rbx
37b6b50acsub rsp, 184
37b6b50b3mov rax, [rsp+312]
37b6b50bbmov r14, [rsp+296]
37b6b50c3mov eax, [rax]
37b6b50c5mov [rsp+136], eax
37b6b50ccmov rsi, rcx
37b6b50cfmov rbx, r8
37b6b50d2mov rdi, r9
37b6b50d5mov rbp, rdx
37b6b50d8mov rax, [rsp+336]
37b6b50e0mov rcx, [rsp+288]
37b6b50e8mov r9l, 1
37b6b50eemov r8l, 1
37b6b50f4lea rdx, [rip+0xd7f8b5]
37b6b50fbmov eax, [rax]
37b6b50fdmov [rsp+140], eax
37b6b5104mov rax, [rsp+360]
37b6b510cmov [rax], 0
37b6b5112mov eax, [r14]
37b6b5115sub eax, [rcx]
37b6b5117mov rcx, rsi
37b6b511amov [rsp+168], eax
37b6b5121call lsame_
37b6b5126mov r10l, [rdi]
37b6b5129mov r13l, [rbx]
37b6b512cmov r12l, eax
37b6b512fmov rax, [rsp+352]
37b6b5137mov r15l, [rax]
37b6b513atest r12l, r12l
37b6b513dje 0x37b6b51c0
37b6b5143test r10l, r10l
37b6b5146mov eax, 1
37b6b514bcmovg eax, r10l
37b6b514fmov [rsp+128], eax
37b6b5156
37b6b5156loc_37b6b5156:
37b6b5156mov r9l, 1
37b6b515cmov r8l, 1
37b6b5162lea rdx, [rip+0xd7f849]
37b6b5169mov rcx, rbp
37b6b516ccall lsame_
37b6b5171test eax, eax
37b6b5173je 0x37b6b5280
37b6b5179
37b6b5179loc_37b6b5179:
37b6b5179mov eax, [rbx]
37b6b517btest eax, eax
37b6b517djs 0x37b6b5210
37b6b5183mov edx, [rdi]
37b6b5185test edx, edx
37b6b5187js 0x37b6b52b8
37b6b518dmov rcx, [rsp+288]
37b6b5195test r13l, r13l
37b6b5198mov edx, 1
37b6b519dcmovg edx, r13l
37b6b51a1mov ecx, [rcx]
37b6b51a3cmp ecx, edx
37b6b51a5jg 0x37b6b51af
37b6b51a7test ecx, ecx
37b6b51a9jg 0x37b6b52d0
37b6b51af
37b6b51afloc_37b6b51af:
37b6b51afmov edx, -5
37b6b51b4mov eax, 5
37b6b51b9jmp 0x37b6b521a
37b6b51bb
37b6b51bb 0f 1f 44 00 00 ..D..
37b6b51c0
37b6b51c0loc_37b6b51c0:
37b6b51c0mov r9l, 1
37b6b51c6mov r8l, 1
37b6b51ccmov rcx, rsi
37b6b51cfmov [rsp+128], r10l
37b6b51d7lea rdx, [rip+0xd7f7d3]
37b6b51decall lsame_
37b6b51e3test eax, eax
37b6b51e5jne 0x37b6b5260
37b6b51e7mov rax, [rsp+360]
37b6b51eflea r13, [rsp+172]
37b6b51f7mov [rax], -1
37b6b51fdmov eax, -1
37b6b5202
37b6b5202loc_37b6b5202:
37b6b5202neg eax
37b6b5204jmp 0x37b6b522c
37b6b5206
37b6b5206 66 2e 0f 1f 84 00 00 00 00 00 f.........
37b6b5210
37b6b5210loc_37b6b5210:
37b6b5210mov edx, -3
37b6b5215mov eax, 3
37b6b521a
37b6b521aloc_37b6b521a:
37b6b521amov rdi, [rsp+360]
37b6b5222lea r13, [rsp+172]
37b6b522amov [rdi], edx
37b6b522c
37b6b522cloc_37b6b522c:
37b6b522cmov r8l, 6
37b6b5232mov rdx, r13
37b6b5235lea rcx, [rip+0xd7f788]
37b6b523cmov [rsp+172], eax
37b6b5243call xerbla_
37b6b5248nop
37b6b5249
37b6b5249loc_37b6b5249:
37b6b5249add rsp, 184
37b6b5250pop rbx
37b6b5251pop rsi
37b6b5252pop rdi
37b6b5253pop rbp
37b6b5254pop r12
37b6b5256pop r13
37b6b5258pop r14
37b6b525apop r15
37b6b525cret
37b6b525d
37b6b525d 0f 1f 00 ...
37b6b5260
37b6b5260loc_37b6b5260:
37b6b5260test r13l, r13l
37b6b5263mov eax, 1
37b6b5268cmovg eax, r13l
37b6b526cmov r13l, [rsp+128]
37b6b5274mov [rsp+128], eax
37b6b527bjmp 0x37b6b5156
37b6b5280
37b6b5280loc_37b6b5280:
37b6b5280mov r9l, 1
37b6b5286mov r8l, 1
37b6b528clea rdx, [rip+0xd7f720]
37b6b5293mov rcx, rbp
37b6b5296call lsame_
37b6b529btest eax, eax
37b6b529djne 0x37b6b5179
37b6b52a3mov edx, -2
37b6b52a8mov eax, 2
37b6b52adjmp 0x37b6b521a
37b6b52b2
37b6b52b2 66 0f 1f 44 00 00 f..D..
37b6b52b8
37b6b52b8loc_37b6b52b8:
37b6b52b8mov edx, -4
37b6b52bdmov eax, 4
37b6b52c2jmp 0x37b6b521a
37b6b52c7
37b6b52c7 66 0f 1f 84 00 00 00 00 00 f........
37b6b52d0
37b6b52d0loc_37b6b52d0:
37b6b52d0cmp ecx, r13l
37b6b52d3mov r8l, [r14]
37b6b52d6cmovg ecx, r13l
37b6b52dacmp r8l, ecx
37b6b52ddjl 0x37b6b52e4
37b6b52dfcmp r8l, r13l
37b6b52e2jle 0x37b6b52f8
37b6b52e4
37b6b52e4loc_37b6b52e4:
37b6b52e4mov edx, -6
37b6b52e9mov eax, 6
37b6b52eejmp 0x37b6b521a
37b6b52f3
37b6b52f3 0f 1f 44 00 00 ..D..
37b6b52f8
37b6b52f8loc_37b6b52f8:
37b6b52f8mov rcx, [rsp+312]
37b6b5300cmp [rcx], edx
37b6b5302jl 0x37b6b5617
37b6b5308mov edx, 1
37b6b530dtest eax, eax
37b6b530fcmovle eax, edx
37b6b5312mov rdx, [rsp+336]
37b6b531acmp [rdx], eax
37b6b531cjl 0x37b6b5626
37b6b5322mov rax, [rsp+352]
37b6b532amov edx, [rsp+128]
37b6b5331cmp [rax], edx
37b6b5333mov rax, [rsp+360]
37b6b533bjge 0x37b6b5360
37b6b533dcmp r15l, -1
37b6b5341je 0x37b6b5360
37b6b5343mov [rax], -13
37b6b5349lea r13, [rsp+172]
37b6b5351mov eax, 13
37b6b5356jmp 0x37b6b522c
37b6b535b
37b6b535b 0f 1f 44 00 00 ..D..
37b6b5360
37b6b5360loc_37b6b5360:
37b6b5360mov eax, [rax]
37b6b5362test eax, eax
37b6b5364jne 0x37b6b5635
37b6b536alea r13, [rsp+172]
37b6b5372mov [rsp+40], rbp
37b6b5377mov r9, rsi
37b6b537amov ecx, 2
37b6b537fmov [rsp+32], 1
37b6b5388mov r8l, 1
37b6b538emov rdx, r13
37b6b5391test r12l, r12l
37b6b5394je 0x37b6b55b0
37b6b539acall _gfortran_concat_string
37b6b539flea r14, [rsp+168]
37b6b53a7mov [rsp+32], rdi
37b6b53acmov r8, r13
37b6b53aflea rax, [rip+0xd7f60a]
37b6b53b6mov [rsp+40], r14
37b6b53bbmov r9, r14
37b6b53belea rdx, [rip+0xd7f5ef]
37b6b53c5mov [rsp+64], 2
37b6b53celea rcx, [rip+0xd7f5e7]
37b6b53d5mov [rsp+56], 6
37b6b53demov [rsp+48], rax
37b6b53e3call ilaenv_
37b6b53e8
37b6b53e8loc_37b6b53e8:
37b6b53e8imul eax, [rsp+128]
37b6b53f0mov [rsp+160], eax
37b6b53f7lea rax, [rsp+160]
37b6b53ffmov rcx, rax
37b6b5402mov [rsp+128], rax
37b6b540acall sroundup_lwork_
37b6b540fmov rax, [rsp+344]
37b6b5417movss [rax], x0
37b6b541bmov rax, [rsp+360]
37b6b5423mov eax, [rax]
37b6b5425test eax, eax
37b6b5427jne 0x37b6b5202
37b6b542dcmp r15l, -1
37b6b5431je 0x37b6b5249
37b6b5437mov ecx, [rbx]
37b6b5439test ecx, ecx
37b6b543bje 0x37b6b5598
37b6b5441mov ebx, [rdi]
37b6b5443test ebx, ebx
37b6b5445je 0x37b6b5598
37b6b544bmov r9l, [rsp+168]
37b6b5453test r9l, r9l
37b6b5456je 0x37b6b5598
37b6b545cmovsxd r8, [rsp+136]
37b6b5464xor eax, eax
37b6b5466test r8, r8
37b6b5469cmovs r8, rax
37b6b546dmov rax, [rsp+288]
37b6b5475movsxd rax, [rax]
37b6b5478mov r11, r8
37b6b547bnot r11
37b6b547elea r10l, [rax+1]
37b6b5482movsxd r10, r10l
37b6b5485test r12l, r12l
37b6b5488jne 0x37b6b5608
37b6b548emovsxd rdx, [rsp+140]
37b6b5496xor ebx, ebx
37b6b5498test rdx, rdx
37b6b549bcmovs rdx, rbx
37b6b549fmov rbx, rdx
37b6b54a2imul rdx, r10
37b6b54a6not rbx
37b6b54a9add rdx, rbx
37b6b54acmov ebx, r9l
37b6b54afmov r9l, ecx
37b6b54b2mov ecx, 1
37b6b54b7
37b6b54b7loc_37b6b54b7:
37b6b54b7add rdx, rcx
37b6b54bamov [rsp+32], r14
37b6b54bfmov rcx, [rsp+328]
37b6b54c7mov rdi, [rsp+352]
37b6b54cfmov [rsp+172], ebx
37b6b54d6lea rdx, [rcx+4*rdx]
37b6b54damov rcx, rsi
37b6b54ddmov [rsp+164], r9l
37b6b54e5lea r9, [rsp+156]
37b6b54edmov [rsp+64], rdx
37b6b54f2mov rdx, [rsp+320]
37b6b54famov [rsp+88], rdi
37b6b54ffmov rdi, [rsp+344]
37b6b5507lea rdx, [rdx+4*rax-4]
37b6b550cmov [rsp+96], r9
37b6b5511mov r9, r13
37b6b5514imul rax, r8
37b6b5518mov [rsp+80], rdi
37b6b551dmov rdi, [rsp+336]
37b6b5525lea r8, [rsp+164]
37b6b552dmov [rsp+56], rdx
37b6b5532mov rdx, [rsp+304]
37b6b553amov [rsp+72], rdi
37b6b553fmov rdi, [rsp+312]
37b6b5547mov [rsp+112], 1
37b6b5550add rax, r11
37b6b5553add rax, r10
37b6b5556mov [rsp+48], rdi
37b6b555bmov [rsp+104], 1
37b6b5564lea rax, [rdx+4*rax]
37b6b5568mov rdx, rbp
37b6b556bmov [rsp+40], rax
37b6b5570call sormqr_
37b6b5575mov rcx, [rsp+128]
37b6b557dcall sroundup_lwork_
37b6b5582mov rax, [rsp+344]
37b6b558amovss [rax], x0
37b6b558ejmp 0x37b6b5249
37b6b5593
37b6b5593 0f 1f 44 00 00 ..D..
37b6b5598
37b6b5598loc_37b6b5598:
37b6b5598mov rax, [rsp+344]
37b6b55a0mov [rax], 0x3f800000
37b6b55a6jmp 0x37b6b5249
37b6b55ab
37b6b55ab 0f 1f 44 00 00 ..D..
37b6b55b0
37b6b55b0loc_37b6b55b0:
37b6b55b0call _gfortran_concat_string
37b6b55b5lea r14, [rsp+168]
37b6b55bdmov r9, rbx
37b6b55c0mov r8, r13
37b6b55c3lea rax, [rip+0xd7f3f6]
37b6b55camov [rsp+40], r14
37b6b55cflea rdx, [rip+0xd7f3de]
37b6b55d6mov [rsp+64], 2
37b6b55dflea rcx, [rip+0xd7f3d6]
37b6b55e6mov [rsp+56], 6
37b6b55efmov [rsp+48], rax
37b6b55f4mov [rsp+32], r14
37b6b55f9call ilaenv_
37b6b55fejmp 0x37b6b53e8
37b6b5603
37b6b5603 0f 1f 44 00 00 ..D..
37b6b5608
37b6b5608loc_37b6b5608:
37b6b5608mov rcx, r10
37b6b560bmov rdx, -1
37b6b5612jmp 0x37b6b54b7
37b6b5617
37b6b5617loc_37b6b5617:
37b6b5617mov edx, -8
37b6b561cmov eax, 8
37b6b5621jmp 0x37b6b521a
37b6b5626
37b6b5626loc_37b6b5626:
37b6b5626mov edx, -11
37b6b562bmov eax, 11
37b6b5630jmp 0x37b6b521a
37b6b5635
37b6b5635loc_37b6b5635:
37b6b5635neg eax
37b6b5637lea r13, [rsp+172]
37b6b563fjmp 0x37b6b522c
37b6b50a0

37b6b5644
37b6b5644 // align 0x10

37b6b5650
37b6b5650sorml2_:
37b6b5650push r15
37b6b5652push r14
37b6b5654push r13
37b6b5656push r12
37b6b5658push rbp
37b6b5659push rdi
37b6b565apush rsi
37b6b565bpush rbx
37b6b565csub rsp, 168
37b6b5663mov rax, [rsp+288]
37b6b566bmovsxd r13, [rax]
37b6b566emov rax, [rsp+312]
37b6b5676mov ebp, [rax]
37b6b5678mov rax, [rsp+328]
37b6b5680mov r12, rdx
37b6b5683mov rsi, r8
37b6b5686lea rdx, [rip+0xd7f343]
37b6b568dmov r8l, 1
37b6b5693mov r14, r9
37b6b5696mov rbx, rcx
37b6b5699mov [rax], 0
37b6b569fmov r9l, 1
37b6b56a5call lsame_
37b6b56aamov r9l, 1
37b6b56b0mov r8l, 1
37b6b56b6mov rcx, r12
37b6b56b9lea rdx, [rip+0xd7f311]
37b6b56c0mov edi, eax
37b6b56c2call lsame_
37b6b56c7mov r15l, eax
37b6b56catest edi, edi
37b6b56ccje 0x37b6b5770
37b6b56d2mov eax, [rsi]
37b6b56d4mov [rsp+88], eax
37b6b56d8
37b6b56d8loc_37b6b56d8:
37b6b56d8test r15l, r15l
37b6b56dbje 0x37b6b57b0
37b6b56e1
37b6b56e1loc_37b6b56e1:
37b6b56e1mov ecx, [rsi]
37b6b56e3test ecx, ecx
37b6b56e5js 0x37b6b5720
37b6b56e7mov r8l, [r14]
37b6b56eatest r8l, r8l
37b6b56edjs 0x37b6b57e8
37b6b56f3mov rax, [rsp+272]
37b6b56fbmov r12l, [rax]
37b6b56fetest r12l, r12l
37b6b5701js 0x37b6b570e
37b6b5703cmp r12l, [rsp+88]
37b6b5708jle 0x37b6b5800
37b6b570e
37b6b570eloc_37b6b570e:
37b6b570emov eax, -5
37b6b5713mov edx, 5
37b6b5718jmp 0x37b6b572a
37b6b571a
37b6b571a 66 0f 1f 44 00 00 f..D..
37b6b5720
37b6b5720loc_37b6b5720:
37b6b5720mov eax, -3
37b6b5725mov edx, 3
37b6b572a
37b6b572aloc_37b6b572a:
37b6b572amov rbx, [rsp+328]
37b6b5732mov [rbx], eax
37b6b5734
37b6b5734loc_37b6b5734:
37b6b5734mov [rsp+156], edx
37b6b573bmov r8l, 6
37b6b5741lea rdx, [rsp+156]
37b6b5749lea rcx, [rip+0xd7f284]
37b6b5750call xerbla_
37b6b5755nop
37b6b5756
37b6b5756loc_37b6b5756:
37b6b5756add rsp, 168
37b6b575dpop rbx
37b6b575epop rsi
37b6b575fpop rdi
37b6b5760pop rbp
37b6b5761pop r12
37b6b5763pop r13
37b6b5765pop r14
37b6b5767pop r15
37b6b5769ret
37b6b576a
37b6b576a 66 0f 1f 44 00 00 f..D..
37b6b5770
37b6b5770loc_37b6b5770:
37b6b5770mov eax, [r14]
37b6b5773mov r9l, 1
37b6b5779mov r8l, 1
37b6b577fmov rcx, rbx
37b6b5782lea rdx, [rip+0xd7f249]
37b6b5789mov [rsp+88], eax
37b6b578dcall lsame_
37b6b5792test eax, eax
37b6b5794jne 0x37b6b56d8
37b6b579amov eax, -1
37b6b579fmov edx, 1
37b6b57a4jmp 0x37b6b572a
37b6b57a6
37b6b57a6 66 2e 0f 1f 84 00 00 00 00 00 f.........
37b6b57b0
37b6b57b0loc_37b6b57b0:
37b6b57b0mov r9l, 1
37b6b57b6mov r8l, 1
37b6b57bclea rdx, [rip+0xd7f210]
37b6b57c3mov rcx, r12
37b6b57c6call lsame_
37b6b57cbtest eax, eax
37b6b57cdjne 0x37b6b56e1
37b6b57d3mov eax, -2
37b6b57d8mov edx, 2
37b6b57ddjmp 0x37b6b572a
37b6b57e2
37b6b57e2 66 0f 1f 44 00 00 f..D..
37b6b57e8
37b6b57e8loc_37b6b57e8:
37b6b57e8mov eax, -4
37b6b57edmov edx, 4
37b6b57f2jmp 0x37b6b572a
37b6b57f7
37b6b57f7 66 0f 1f 84 00 00 00 00 00 f........
37b6b5800
37b6b5800loc_37b6b5800:
37b6b5800mov rax, [rsp+288]
37b6b5808test r12l, r12l
37b6b580bmov edx, 1
37b6b5810cmovg edx, r12l
37b6b5814cmp [rax], edx
37b6b5816jl 0x37b6b5840
37b6b5818mov rax, [rsp+312]
37b6b5820test ecx, ecx
37b6b5822mov edx, 1
37b6b5827cmovg edx, ecx
37b6b582acmp [rax], edx
37b6b582cjge 0x37b6b5850
37b6b582emov eax, -10
37b6b5833mov edx, 10
37b6b5838jmp 0x37b6b572a
37b6b583d
37b6b583d 0f 1f 00 ...
37b6b5840
37b6b5840loc_37b6b5840:
37b6b5840mov eax, -7
37b6b5845mov edx, 7
37b6b584ajmp 0x37b6b572a
37b6b584f
37b6b584f 90 .
37b6b5850
37b6b5850loc_37b6b5850:
37b6b5850mov rax, [rsp+328]
37b6b5858mov edx, [rax]
37b6b585atest edx, edx
37b6b585cjne 0x37b6b5a71
37b6b5862test ecx, ecx
37b6b5864je 0x37b6b5756
37b6b586atest r8l, r8l
37b6b586dje 0x37b6b5756
37b6b5873test r12l, r12l
37b6b5876je 0x37b6b5756
37b6b587ccmp edi, r15l
37b6b587fje 0x37b6b5a30
37b6b5885test edi, edi
37b6b5887je 0x37b6b5a58
37b6b588dmov [rsp+156], r8l
37b6b5895
37b6b5895loc_37b6b5895:
37b6b5895lea r15l, [r12-1]
37b6b589amov eax, -1
37b6b589f
37b6b589floc_37b6b589f:
37b6b589fxor edx, edx
37b6b58a1movsxd r8, ebp
37b6b58a4test r13, r13
37b6b58a7mov [rsp+240], rbx
37b6b58afcmovs r13, rdx
37b6b58b3test r8, r8
37b6b58b6mov ebx, 1
37b6b58bbmov [rsp+140], edi
37b6b58c2cmovs r8, rdx
37b6b58c6mov edi, r12l
37b6b58c9mov [rsp+136], eax
37b6b58d0lea rdx, [r13+1]
37b6b58d4mov r9, r13
37b6b58d7mov rcx, r8
37b6b58danot r9
37b6b58ddmov [rsp+128], r8
37b6b58e5not rcx
37b6b58e8mov [rsp+88], rcx
37b6b58edmovsxd rcx, eax
37b6b58f0imul rdx, rcx
37b6b58f4shl rcx, 2
37b6b58f8mov [rsp+96], rcx
37b6b58fdmov rcx, [rsp+296]
37b6b5905shl rdx, 2
37b6b5909mov [rsp+104], rdx
37b6b590emovsxd rdx, r12l
37b6b5911imul r13, rdx
37b6b5915add r9, rdx
37b6b5918lea rbp, [rcx+4*rdx-4]
37b6b591dlea rcx, [rsp+156]
37b6b5925mov r12, rbp
37b6b5928mov ebp, r15l
37b6b592bmov r15, r14
37b6b592emov [rsp+120], rcx
37b6b5933lea rcx, [rsp+152]
37b6b593bmov r14, rsi
37b6b593emov esi, 1
37b6b5943add r13, r9
37b6b5946mov r9, [rsp+280]
37b6b594emov [rsp+112], rcx
37b6b5953lea r13, [r9+4*r13]
37b6b5957jmp 0x37b6b5a05
37b6b595c
37b6b595c 0f 1f 40 00 ..@.
37b6b5960
37b6b5960loc_37b6b5960:
37b6b5960mov edx, [r14]
37b6b5963mov ebx, edi
37b6b5965sub edx, edi
37b6b5967add edx, 1
37b6b596amov [rsp+152], edx
37b6b5971
37b6b5971loc_37b6b5971:
37b6b5971movsxd rcx, ebx
37b6b5974movsxd rdx, esi
37b6b5977mov [rsp+40], r12
37b6b597cmov r8, [rsp+120]
37b6b5981mov rax, [rsp+320]
37b6b5989mov r9, r13
37b6b598csub ebp, 1
37b6b598fmov [rsp+72], 1
37b6b5998imul rdx, [rsp+128]
37b6b59a1add rdx, [rsp+88]
37b6b59a6mov [rsp+64], rax
37b6b59abmov rax, [rsp+312]
37b6b59b3add rdx, rcx
37b6b59b6mov rcx, [rsp+240]
37b6b59bemov [rsp+56], rax
37b6b59c3mov rax, [rsp+304]
37b6b59cblea rdx, [rax+4*rdx]
37b6b59cfmov rax, [rsp+288]
37b6b59d7mov [rsp+48], rdx
37b6b59dcmov rdx, [rsp+112]
37b6b59e1mov [rsp+32], rax
37b6b59e6call slarf1f_
37b6b59ebadd r13, [rsp+104]
37b6b59f0add r12, [rsp+96]
37b6b59f5add edi, [rsp+136]
37b6b59fccmp ebp, -1
37b6b59ffje 0x37b6b5756
37b6b5a05
37b6b5a05loc_37b6b5a05:
37b6b5a05mov eax, [rsp+140]
37b6b5a0ctest eax, eax
37b6b5a0ejne 0x37b6b5960
37b6b5a14mov edx, [r15]
37b6b5a17mov esi, edi
37b6b5a19sub edx, edi
37b6b5a1badd edx, 1
37b6b5a1emov [rsp+156], edx
37b6b5a25jmp 0x37b6b5971
37b6b5a2a
37b6b5a2a 66 0f 1f 44 00 00 f..D..
37b6b5a30
37b6b5a30loc_37b6b5a30:
37b6b5a30test edi, edi
37b6b5a32je 0x37b6b5a68
37b6b5a34mov [rsp+156], r8l
37b6b5a3c
37b6b5a3cloc_37b6b5a3c:
37b6b5a3clea r15l, [r12-1]
37b6b5a41mov eax, 1
37b6b5a46mov r12l, 1
37b6b5a4cjmp 0x37b6b589f
37b6b5a51
37b6b5a51 0f 1f 80 00 00 00 00 .......
37b6b5a58
37b6b5a58loc_37b6b5a58:
37b6b5a58mov [rsp+152], ecx
37b6b5a5fjmp 0x37b6b5895
37b6b5a64
37b6b5a64 0f 1f 40 00 ..@.
37b6b5a68
37b6b5a68loc_37b6b5a68:
37b6b5a68mov [rsp+152], ecx
37b6b5a6fjmp 0x37b6b5a3c
37b6b5a71
37b6b5a71loc_37b6b5a71:
37b6b5a71neg edx
37b6b5a73jmp 0x37b6b5734
37b6b5650

37b6b5a78
37b6b5a78 // align 0x10

37b6b5a80
37b6b5a80sormlq_:
37b6b5a80push r15
37b6b5a82push r14
37b6b5a84push r13
37b6b5a86push r12
37b6b5a88push rbp
37b6b5a89push rdi
37b6b5a8apush rsi
37b6b5a8bpush rbx
37b6b5a8csub rsp, 312
37b6b5a93mov rax, [rsp+432]
37b6b5a9bmov r12, [rsp+480]
37b6b5aa3mov eax, [rax]
37b6b5aa5mov [r12], 0
37b6b5aadmov [rsp+208], eax
37b6b5ab4mov rbp, rdx
37b6b5ab7mov rbx, r8
37b6b5abamov rsi, r9
37b6b5abdmov r8l, 1
37b6b5ac3mov r9l, 1
37b6b5ac9lea rdx, [rip+0xd7ef10]
37b6b5ad0mov rdi, rcx
37b6b5ad3mov rax, [rsp+456]
37b6b5adbmov eax, [rax]
37b6b5addmov [rsp+216], eax
37b6b5ae4call lsame_
37b6b5ae9mov r9l, 1
37b6b5aefmov r8l, 1
37b6b5af5mov rcx, rbp
37b6b5af8lea rdx, [rip+0xd7eee2]
37b6b5affmov [rsp+256], eax
37b6b5b06mov r14l, eax
37b6b5b09call lsame_
37b6b5b0emov r13l, [rsi]
37b6b5b11mov [rsp+168], eax
37b6b5b18mov rax, [rsp+472]
37b6b5b20mov r15l, [rax]
37b6b5b23mov eax, [rbx]
37b6b5b25mov [rsp+160], eax
37b6b5b2ctest r14l, r14l
37b6b5b2fje 0x37b6b5b88
37b6b5b31mov ecx, [rsp+168]
37b6b5b38test r13l, r13l
37b6b5b3bmov r14l, 1
37b6b5b41cmovg r14l, r13l
37b6b5b45test ecx, ecx
37b6b5b47je 0x37b6b5c32
37b6b5b4d
37b6b5b4dloc_37b6b5b4d:
37b6b5b4dmov eax, [rbx]
37b6b5b4ftest eax, eax
37b6b5b51js 0x37b6b5bb8
37b6b5b53mov edx, [rsi]
37b6b5b55test edx, edx
37b6b5b57js 0x37b6b5c68
37b6b5b5dmov rcx, [rsp+416]
37b6b5b65mov edx, [rcx]
37b6b5b67test edx, edx
37b6b5b69js 0x37b6b5b78
37b6b5b6bcmp edx, [rsp+160]
37b6b5b72jle 0x37b6b5c80
37b6b5b78
37b6b5b78loc_37b6b5b78:
37b6b5b78mov edx, -5
37b6b5b7dmov eax, 5
37b6b5b82jmp 0x37b6b5bc2
37b6b5b84
37b6b5b84 0f 1f 40 00 ..@.
37b6b5b88
37b6b5b88loc_37b6b5b88:
37b6b5b88mov r9l, 1
37b6b5b8emov r8l, 1
37b6b5b94lea rdx, [rip+0xd7ee47]
37b6b5b9bmov rcx, rdi
37b6b5b9ecall lsame_
37b6b5ba3test eax, eax
37b6b5ba5jne 0x37b6b5c08
37b6b5ba7mov edx, -1
37b6b5bacmov eax, 1
37b6b5bb1jmp 0x37b6b5bc2
37b6b5bb3
37b6b5bb3 0f 1f 44 00 00 ..D..
37b6b5bb8
37b6b5bb8loc_37b6b5bb8:
37b6b5bb8mov edx, -3
37b6b5bbdmov eax, 3
37b6b5bc2
37b6b5bc2loc_37b6b5bc2:
37b6b5bc2mov [r12], edx
37b6b5bc6lea r13, [rsp+300]
37b6b5bcelea r11, [rip+0xd7ee0f]
37b6b5bd5
37b6b5bd5loc_37b6b5bd5:
37b6b5bd5mov r8l, 6
37b6b5bdbmov rdx, r13
37b6b5bdemov rcx, r11
37b6b5be1mov [rsp+300], eax
37b6b5be8call xerbla_
37b6b5bednop
37b6b5bee
37b6b5beeloc_37b6b5bee:
37b6b5beeadd rsp, 312
37b6b5bf5pop rbx
37b6b5bf6pop rsi
37b6b5bf7pop rdi
37b6b5bf8pop rbp
37b6b5bf9pop r12
37b6b5bfbpop r13
37b6b5bfdpop r14
37b6b5bffpop r15
37b6b5c01ret
37b6b5c02
37b6b5c02 66 0f 1f 44 00 00 f..D..
37b6b5c08
37b6b5c08loc_37b6b5c08:
37b6b5c08mov eax, [rsp+160]
37b6b5c0fmov ecx, [rsp+168]
37b6b5c16mov r14l, 1
37b6b5c1cmov [rsp+160], r13l
37b6b5c24test eax, eax
37b6b5c26cmovg r14l, eax
37b6b5c2atest ecx, ecx
37b6b5c2cjne 0x37b6b5b4d
37b6b5c32
37b6b5c32loc_37b6b5c32:
37b6b5c32mov r9l, 1
37b6b5c38mov r8l, 1
37b6b5c3emov rcx, rbp
37b6b5c41lea rdx, [rip+0xd7ed9b]
37b6b5c48call lsame_
37b6b5c4dtest eax, eax
37b6b5c4fjne 0x37b6b5b4d
37b6b5c55mov edx, -2
37b6b5c5amov eax, 2
37b6b5c5fjmp 0x37b6b5bc2
37b6b5c64
37b6b5c64 0f 1f 40 00 ..@.
37b6b5c68
37b6b5c68loc_37b6b5c68:
37b6b5c68mov edx, -4
37b6b5c6dmov eax, 4
37b6b5c72jmp 0x37b6b5bc2
37b6b5c77
37b6b5c77 66 0f 1f 84 00 00 00 00 00 f........
37b6b5c80
37b6b5c80loc_37b6b5c80:
37b6b5c80mov ecx, 1
37b6b5c85test edx, edx
37b6b5c87cmovle edx, ecx
37b6b5c8amov rcx, [rsp+432]
37b6b5c92cmp [rcx], edx
37b6b5c94jl 0x37b6b5cf0
37b6b5c96mov rcx, [rsp+456]
37b6b5c9etest eax, eax
37b6b5ca0mov edx, 1
37b6b5ca5cmovle eax, edx
37b6b5ca8cmp [rcx], eax
37b6b5caajl 0x37b6b6360
37b6b5cb0mov rax, [rsp+472]
37b6b5cb8cmp [rax], r14l
37b6b5cbbjge 0x37b6b5cff
37b6b5cbdcmp r15l, -1
37b6b5cc1je 0x37b6b63e6
37b6b5cc7mov [r12], -12
37b6b5ccfmov eax, 12
37b6b5cd4lea r13, [rsp+300]
37b6b5cdclea r11, [rip+0xd7ed01]
37b6b5ce3jmp 0x37b6b5bd5
37b6b5ce8
37b6b5ce8 0f 1f 84 00 00 00 00 00 ........
37b6b5cf0
37b6b5cf0loc_37b6b5cf0:
37b6b5cf0mov edx, -7
37b6b5cf5mov eax, 7
37b6b5cfajmp 0x37b6b5bc2
37b6b5cff
37b6b5cffloc_37b6b5cff:
37b6b5cffmov eax, [r12]
37b6b5d03test eax, eax
37b6b5d05jne 0x37b6b63ee
37b6b5d0bmov [rsp+40], rbp
37b6b5d10lea r13, [rsp+300]
37b6b5d18mov r9, rdi
37b6b5d1bmov ecx, 2
37b6b5d20mov [rsp+32], 1
37b6b5d29mov r8l, 1
37b6b5d2fmov rdx, r13
37b6b5d32call _gfortran_concat_string
37b6b5d37mov [rsp+32], rsi
37b6b5d3cmov r9, rbx
37b6b5d3fmov r8, r13
37b6b5d42lea rax, [rip+0xd7eca7]
37b6b5d49lea r11, [rip+0xd7ec94]
37b6b5d50mov [rsp+64], 2
37b6b5d59mov [rsp+48], rax
37b6b5d5emov rax, [rsp+416]
37b6b5d66mov rdx, r11
37b6b5d69lea rcx, [rip+0xd7ec7c]
37b6b5d70mov [rsp+56], 6
37b6b5d79mov [rsp+40], rax
37b6b5d7emov [rsp+200], r11
37b6b5d86call ilaenv_
37b6b5d8bmov r10l, 64
37b6b5d91cmp eax, r10l
37b6b5d94mov [rsp+192], eax
37b6b5d9bcmovle r10l, eax
37b6b5d9fmov r8l, r10l
37b6b5da2mov [rsp+184], r10l
37b6b5daaimul r8l, r14l
37b6b5daelea eax, [r8+4160]
37b6b5db5mov [rsp+176], r8l
37b6b5dbdmov [rsp+288], eax
37b6b5dc4lea rax, [rsp+288]
37b6b5dccmov rcx, rax
37b6b5dcfmov [rsp+224], rax
37b6b5dd7call sroundup_lwork_
37b6b5ddcmov rax, [rsp+464]
37b6b5de4movsxd r8, [rsp+176]
37b6b5decmov r10l, [rsp+184]
37b6b5df4mov r11, [rsp+200]
37b6b5dfcmovss [rax], x0
37b6b5e00mov eax, [r12]
37b6b5e04test eax, eax
37b6b5e06jne 0x37b6b64cb
37b6b5e0ccmp r15l, -1
37b6b5e10je 0x37b6b5bee
37b6b5e16mov eax, [rbx]
37b6b5e18test eax, eax
37b6b5e1aje 0x37b6b61e0
37b6b5e20mov r15l, [rsi]
37b6b5e23test r15l, r15l
37b6b5e26je 0x37b6b61e0
37b6b5e2cmov rax, [rsp+416]
37b6b5e34mov ecx, [rax]
37b6b5e36test ecx, ecx
37b6b5e38je 0x37b6b61e0
37b6b5e3ecmp [rsp+192], 1
37b6b5e46mov [rsp+284], r14l
37b6b5e4ejle 0x37b6b61f8
37b6b5e54cmp ecx, r10l
37b6b5e57jle 0x37b6b61f8
37b6b5e5dmov rax, [rsp+472]
37b6b5e65mov eax, [rax]
37b6b5e67cmp eax, [rsp+288]
37b6b5e6ejl 0x37b6b62a0
37b6b5e74
37b6b5e74loc_37b6b5e74:
37b6b5e74movsxd r11, [rsp+208]
37b6b5e7cxor eax, eax
37b6b5e7emovsxd r9, [rsp+216]
37b6b5e86mov r15l, [rsp+256]
37b6b5e8emov r12l, [rsp+168]
37b6b5e96test r11, r11
37b6b5e99cmovs r11, rax
37b6b5e9dmov rax, r11
37b6b5ea0not rax
37b6b5ea3mov [rsp+176], rax
37b6b5eabxor eax, eax
37b6b5eadtest r9, r9
37b6b5eb0cmovs r9, rax
37b6b5eb4mov rax, r9
37b6b5eb7not rax
37b6b5ebamov [rsp+184], rax
37b6b5ec2cmp r15l, r12l
37b6b5ec5je 0x37b6b6370
37b6b5ecblea ebp, [rcx-1]
37b6b5ecemov eax, ebp
37b6b5ed0cdq
37b6b5ed1idiv r10l
37b6b5ed4mov eax, r10l
37b6b5ed7neg eax
37b6b5ed9mov [rsp+268], eax
37b6b5ee0sub ebp, edx
37b6b5ee2lea r14l, [rbp+1]
37b6b5ee6test r15l, r15l
37b6b5ee9je 0x37b6b63b0
37b6b5eefmov eax, [rsi]
37b6b5ef1mov [rsp+296], eax
37b6b5ef8test r12l, r12l
37b6b5efbje 0x37b6b63ca
37b6b5f01
37b6b5f01loc_37b6b5f01:
37b6b5f01mov r12l, 84
37b6b5f07
37b6b5f07loc_37b6b5f07:
37b6b5f07mov eax, ebp
37b6b5f09xor edx, edx
37b6b5f0bdiv r10l
37b6b5f0emov ebp, eax
37b6b5f10
37b6b5f10loc_37b6b5f10:
37b6b5f10lea rdx, [rsp+280]
37b6b5f18mov rax, [rsp+464]
37b6b5f20mov [rsp+279], r12b
37b6b5f28lea r12, [rip+0xd7ead9]
37b6b5f2fmov [rsp+168], rdx
37b6b5f37lea rdx, [rsp+279]
37b6b5f3fmov [rsp+192], rdx
37b6b5f47lea rdx, [rsp+284]
37b6b5f4fmov [rsp+200], rdx
37b6b5f57lea rdx, [rsp+296]
37b6b5f5fmov [rsp+216], rdx
37b6b5f67lea rdx, [rsp+292]
37b6b5f6fmov [rsp+384], rdi
37b6b5f77lea rdi, [rax+4*r8]
37b6b5f7bmov [rsp+400], rbx
37b6b5f83mov ebx, r10l
37b6b5f86mov [rsp+248], r13
37b6b5f8emov r13, [rsp+432]
37b6b5f96mov [rsp+264], 1
37b6b5fa1mov [rsp+260], 1
37b6b5facmov [rsp+208], rdx
37b6b5fb4mov [rsp+232], r11
37b6b5fbcmov [rsp+240], r9
37b6b5fc4mov [rsp+408], rsi
37b6b5fccjmp 0x37b6b60f6
37b6b5fd1
37b6b5fd1 0f 1f 80 00 00 00 00 .......
37b6b5fd8
37b6b5fd8loc_37b6b5fd8:
37b6b5fd8mov rax, [rsp+400]
37b6b5fe0mov [rsp+260], r14l
37b6b5fe8mov rcx, r15
37b6b5febmov edx, [rax]
37b6b5fedsub edx, r14l
37b6b5ff0add edx, 1
37b6b5ff3mov [rsp+292], edx
37b6b5ffamovsxd rdx, [rsp+264]
37b6b6002
37b6b6002loc_37b6b6002:
37b6b6002mov rax, [rsp+200]
37b6b600amov [rsp+72], rdi
37b6b600flea r9, [rip+0xd7e9e2]
37b6b6016lea r8, [rip+0xd7e9e2]
37b6b601dimul rdx, [rsp+240]
37b6b6026add rdx, [rsp+184]
37b6b602emov [rsp+64], r13
37b6b6033mov [rsp+112], rax
37b6b6038add rdx, rcx
37b6b603bmov rax, [rsp+464]
37b6b6043mov [rsp+56], rsi
37b6b6048mov rcx, [rsp+384]
37b6b6050mov [rsp+104], rax
37b6b6055mov rax, [rsp+456]
37b6b605dmov [rsp+144], 7
37b6b6069mov [rsp+96], rax
37b6b606emov rax, [rsp+448]
37b6b6076mov [rsp+136], 7
37b6b6082lea rdx, [rax+4*rdx]
37b6b6086mov rax, [rsp+168]
37b6b608emov [rsp+80], r12
37b6b6093mov [rsp+88], rdx
37b6b6098mov rdx, [rsp+192]
37b6b60a0mov [rsp+48], rax
37b6b60a5mov rax, [rsp+216]
37b6b60admov [rsp+128], 1
37b6b60b9mov [rsp+40], rax
37b6b60bemov rax, [rsp+208]
37b6b60c6mov [rsp+120], 1
37b6b60cfmov [rsp+32], rax
37b6b60d4call slarfb_
37b6b60d9test ebp, ebp
37b6b60dbje 0x37b6b627b
37b6b60e1mov rax, [rsp+416]
37b6b60e9add r14l, [rsp+268]
37b6b60f1sub ebp, 1
37b6b60f4mov ecx, [rax]
37b6b60f6
37b6b60f6loc_37b6b60f6:
37b6b60f6sub ecx, r14l
37b6b60f9movsxd r15, r14l
37b6b60fcmov edx, [rsp+160]
37b6b6103mov rax, [rsp+424]
37b6b610badd ecx, 1
37b6b610emov [rsp+64], r12
37b6b6113mov r9, [rsp+168]
37b6b611bcmp ecx, ebx
37b6b611dmov [rsp+56], rdi
37b6b6122mov r8, [rsp+248]
37b6b612acmovg ecx, ebx
37b6b612dsub edx, r14l
37b6b6130mov [rsp+40], r13
37b6b6135mov [rsp+80], 7
37b6b613eadd edx, 1
37b6b6141mov [rsp+300], edx
37b6b6148mov rdx, [rsp+232]
37b6b6150mov [rsp+72], 7
37b6b6159imul rdx, r15
37b6b615dadd rdx, [rsp+176]
37b6b6165mov [rsp+280], ecx
37b6b616clea rcx, [rip+0xd7e88c]
37b6b6173add rdx, r15
37b6b6176lea rsi, [rax+4*rdx]
37b6b617amov rax, [rsp+440]
37b6b6182mov [rsp+32], rsi
37b6b6187lea rdx, [rax+4*r15-4]
37b6b618cmov [rsp+48], rdx
37b6b6191lea rdx, [rip+0xd7e860]
37b6b6198call slarft_
37b6b619dmov eax, [rsp+256]
37b6b61a4test eax, eax
37b6b61a6jne 0x37b6b5fd8
37b6b61acmov rax, [rsp+408]
37b6b61b4mov [rsp+264], r14l
37b6b61bcmovsxd rcx, [rsp+260]
37b6b61c4mov edx, [rax]
37b6b61c6sub edx, r14l
37b6b61c9add edx, 1
37b6b61ccmov [rsp+296], edx
37b6b61d3mov rdx, r15
37b6b61d6jmp 0x37b6b6002
37b6b61db
37b6b61db 0f 1f 44 00 00 ..D..
37b6b61e0
37b6b61e0loc_37b6b61e0:
37b6b61e0mov rax, [rsp+464]
37b6b61e8mov [rax], 0x3f800000
37b6b61eejmp 0x37b6b5bee
37b6b61f3
37b6b61f3 0f 1f 44 00 00 ..D..
37b6b61f8
37b6b61f8loc_37b6b61f8:
37b6b61f8mov [rsp+88], r13
37b6b61fdmov r9, rsi
37b6b6200mov r8, rbx
37b6b6203mov rdx, rbp
37b6b6206mov rax, [rsp+464]
37b6b620emov rcx, rdi
37b6b6211mov [rsp+104], 1
37b6b621amov [rsp+96], 1
37b6b6223mov [rsp+80], rax
37b6b6228mov rax, [rsp+456]
37b6b6230mov [rsp+72], rax
37b6b6235mov rax, [rsp+448]
37b6b623dmov [rsp+64], rax
37b6b6242mov rax, [rsp+440]
37b6b624amov [rsp+56], rax
37b6b624fmov rax, [rsp+432]
37b6b6257mov [rsp+48], rax
37b6b625cmov rax, [rsp+424]
37b6b6264mov [rsp+40], rax
37b6b6269mov rax, [rsp+416]
37b6b6271mov [rsp+32], rax
37b6b6276call sorml2_
37b6b627b
37b6b627bloc_37b6b627b:
37b6b627bmov rcx, [rsp+224]
37b6b6283call sroundup_lwork_
37b6b6288mov rax, [rsp+464]
37b6b6290movss [rax], x0
37b6b6294jmp 0x37b6b5bee
37b6b6299
37b6b6299 0f 1f 80 00 00 00 00 .......
37b6b62a0
37b6b62a0loc_37b6b62a0:
37b6b62a0sub eax, 4160
37b6b62a5mov [rsp+40], rbp
37b6b62aamov r9, rdi
37b6b62admov ecx, 2
37b6b62b2cdq
37b6b62b3mov r8l, 1
37b6b62b9mov [rsp+32], 1
37b6b62c2idiv r14l
37b6b62c5mov [rsp+184], r11
37b6b62cdmov rdx, r13
37b6b62d0mov [rsp+176], eax
37b6b62d7call _gfortran_concat_string
37b6b62dcmov [rsp+32], rsi
37b6b62e1mov r9, rbx
37b6b62e4mov r8, r13
37b6b62e7lea rax, [rip+0xd7e702]
37b6b62eemov rdx, [rsp+184]
37b6b62f6mov [rsp+64], 2
37b6b62fflea rcx, [rip+0xd7e6ee]
37b6b6306mov [rsp+48], rax
37b6b630bmov rax, [rsp+416]
37b6b6313mov [rsp+56], 6
37b6b631cmov [rsp+40], rax
37b6b6321call ilaenv_
37b6b6326mov edx, 2
37b6b632bmov r10l, [rsp+176]
37b6b6333cmp eax, edx
37b6b6335cmovl eax, edx
37b6b6338cmp r10l, eax
37b6b633bjl 0x37b6b61f8
37b6b6341mov rax, [rsp+416]
37b6b6349mov ecx, [rax]
37b6b634bcmp ecx, r10l
37b6b634ejle 0x37b6b61f8
37b6b6354imul r14l, r10l
37b6b6358movsxd r8, r14l
37b6b635bjmp 0x37b6b5e74
37b6b6360
37b6b6360loc_37b6b6360:
37b6b6360mov edx, -10
37b6b6365mov eax, 10
37b6b636ajmp 0x37b6b5bc2
37b6b636f
37b6b636f 90 .
37b6b6370
37b6b6370loc_37b6b6370:
37b6b6370mov edx, [rsp+256]
37b6b6377test edx, edx
37b6b6379je 0x37b6b63d5
37b6b637bmov eax, [rsi]
37b6b637dmov r12l, 84
37b6b6383mov [rsp+296], eax
37b6b638a
37b6b638aloc_37b6b638a:
37b6b638alea eax, [rcx-1]
37b6b638dxor edx, edx
37b6b638fmov [rsp+268], r10l
37b6b6397mov r14l, 1
37b6b639ddiv r10l
37b6b63a0mov ebp, eax
37b6b63a2jmp 0x37b6b5f10
37b6b63a7
37b6b63a7 66 0f 1f 84 00 00 00 00 00 f........
37b6b63b0
37b6b63b0loc_37b6b63b0:
37b6b63b0mov eax, [rbx]
37b6b63b2mov r12l, [rsp+168]
37b6b63bamov [rsp+292], eax
37b6b63c1test r12l, r12l
37b6b63c4jne 0x37b6b5f01
37b6b63ca
37b6b63caloc_37b6b63ca:
37b6b63camov r12l, 78
37b6b63d0jmp 0x37b6b5f07
37b6b63d5
37b6b63d5loc_37b6b63d5:
37b6b63d5mov eax, [rbx]
37b6b63d7mov r12l, 78
37b6b63ddmov [rsp+292], eax
37b6b63e4jmp 0x37b6b638a
37b6b63e6
37b6b63e6loc_37b6b63e6:
37b6b63e6mov eax, [r12]
37b6b63eatest eax, eax
37b6b63ecje 0x37b6b6404
37b6b63ee
37b6b63eeloc_37b6b63ee:
37b6b63eeneg eax
37b6b63f0lea r13, [rsp+300]
37b6b63f8lea r11, [rip+0xd7e5e5]
37b6b63ffjmp 0x37b6b5bd5
37b6b6404
37b6b6404loc_37b6b6404:
37b6b6404mov [rsp+40], rbp
37b6b6409lea r13, [rsp+300]
37b6b6411mov r9, rdi
37b6b6414mov ecx, 2
37b6b6419mov [rsp+32], 1
37b6b6422mov r8l, 1
37b6b6428mov rdx, r13
37b6b642bcall _gfortran_concat_string
37b6b6430mov [rsp+32], rsi
37b6b6435mov r9, rbx
37b6b6438mov r8, r13
37b6b643blea rax, [rip+0xd7e5ae]
37b6b6442lea r11, [rip+0xd7e59b]
37b6b6449mov [rsp+64], 2
37b6b6452mov [rsp+48], rax
37b6b6457mov rax, [rsp+416]
37b6b645fmov rdx, r11
37b6b6462lea rcx, [rip+0xd7e583]
37b6b6469mov [rsp+56], 6
37b6b6472mov [rsp+40], rax
37b6b6477mov [rsp+160], r11
37b6b647fcall ilaenv_
37b6b6484mov edx, 64
37b6b6489lea rcx, [rsp+288]
37b6b6491cmp eax, edx
37b6b6493cmovg eax, edx
37b6b6496imul eax, r14l
37b6b649aadd eax, 4160
37b6b649fmov [rsp+288], eax
37b6b64a6call sroundup_lwork_
37b6b64abmov rax, [rsp+464]
37b6b64b3mov r11, [rsp+160]
37b6b64bbmovss [rax], x0
37b6b64bfmov eax, [r12]
37b6b64c3test eax, eax
37b6b64c5je 0x37b6b5bee
37b6b64cb
37b6b64cbloc_37b6b64cb:
37b6b64cbneg eax
37b6b64cdjmp 0x37b6b5bd5
37b6b5a80

37b6b64d2
37b6b64d2 // align 0x10

37b6b64e0
37b6b64e0sormql_:
37b6b64e0push r15
37b6b64e2push r14
37b6b64e4push r13
37b6b64e6push r12
37b6b64e8push rbp
37b6b64e9push rdi
37b6b64eapush rsi
37b6b64ebpush rbx
37b6b64ecsub rsp, 280
37b6b64f3mov rbp, [rsp+448]
37b6b64fbmov rax, [rsp+400]
37b6b6503mov [rbp], 0
37b6b650amov eax, [rax]
37b6b650cmov r13, rdx
37b6b650fmov rbx, r8
37b6b6512mov rsi, r9
37b6b6515mov r8l, 1
37b6b651bmov r9l, 1
37b6b6521lea rdx, [rip+0xd7e4e8]
37b6b6528mov rdi, rcx
37b6b652bmov [rsp+176], eax
37b6b6532call lsame_
37b6b6537mov r9l, 1
37b6b653dmov r8l, 1
37b6b6543mov rcx, r13
37b6b6546lea rdx, [rip+0xd7e4c4]
37b6b654dmov [rsp+164], eax
37b6b6554mov r12l, eax
37b6b6557call lsame_
37b6b655cmov r10l, [rsi]
37b6b655fmov r14l, eax
37b6b6562mov rax, [rsp+440]
37b6b656amov r15l, [rax]
37b6b656dmov eax, [rbx]
37b6b656fmov [rsp+160], eax
37b6b6576test r12l, r12l
37b6b6579je 0x37b6b65d0
37b6b657btest r10l, r10l
37b6b657emov r12l, 1
37b6b6584cmovg r12l, r10l
37b6b6588test r14l, r14l
37b6b658bje 0x37b6b667c
37b6b6591
37b6b6591loc_37b6b6591:
37b6b6591mov edx, [rbx]
37b6b6593test edx, edx
37b6b6595js 0x37b6b6608
37b6b6597mov ecx, [rsi]
37b6b6599test ecx, ecx
37b6b659bjs 0x37b6b66b0
37b6b65a1mov rax, [rsp+384]
37b6b65a9mov eax, [rax]
37b6b65abtest eax, eax
37b6b65adjs 0x37b6b65c0
37b6b65afmov r11l, [rsp+160]
37b6b65b7cmp eax, r11l
37b6b65bajle 0x37b6b66c0
37b6b65c0
37b6b65c0loc_37b6b65c0:
37b6b65c0mov edx, -5
37b6b65c5mov eax, 5
37b6b65cajmp 0x37b6b6612
37b6b65cc
37b6b65cc 0f 1f 40 00 ..@.
37b6b65d0
37b6b65d0loc_37b6b65d0:
37b6b65d0mov r9l, 1
37b6b65d6mov r8l, 1
37b6b65dcmov rcx, rdi
37b6b65dfmov [rsp+168], r10l
37b6b65e7lea rdx, [rip+0xd7e424]
37b6b65eecall lsame_
37b6b65f3test eax, eax
37b6b65f5jne 0x37b6b6650
37b6b65f7mov edx, -1
37b6b65fcmov eax, 1
37b6b6601jmp 0x37b6b6612
37b6b6603
37b6b6603 0f 1f 44 00 00 ..D..
37b6b6608
37b6b6608loc_37b6b6608:
37b6b6608mov edx, -3
37b6b660dmov eax, 3
37b6b6612
37b6b6612loc_37b6b6612:
37b6b6612mov [rbp], edx
37b6b6615
37b6b6615loc_37b6b6615:
37b6b6615lea rdx, [rsp+268]
37b6b661dmov r8l, 6
37b6b6623lea rcx, [rip+0xd7e3ea]
37b6b662amov [rsp+268], eax
37b6b6631call xerbla_
37b6b6636nop
37b6b6637
37b6b6637loc_37b6b6637:
37b6b6637add rsp, 280
37b6b663epop rbx
37b6b663fpop rsi
37b6b6640pop rdi
37b6b6641pop rbp
37b6b6642pop r12
37b6b6644pop r13
37b6b6646pop r14
37b6b6648pop r15
37b6b664aret
37b6b664b
37b6b664b 0f 1f 44 00 00 ..D..
37b6b6650
37b6b6650loc_37b6b6650:
37b6b6650mov eax, [rsp+160]
37b6b6657mov r10l, [rsp+168]
37b6b665fmov r12l, 1
37b6b6665test eax, eax
37b6b6667mov [rsp+160], r10l
37b6b666fcmovg r12l, eax
37b6b6673test r14l, r14l
37b6b6676jne 0x37b6b6591
37b6b667c
37b6b667cloc_37b6b667c:
37b6b667cmov r9l, 1
37b6b6682mov r8l, 1
37b6b6688mov rcx, r13
37b6b668blea rdx, [rip+0xd7e381]
37b6b6692call lsame_
37b6b6697test eax, eax
37b6b6699jne 0x37b6b6591
37b6b669fmov edx, -2
37b6b66a4mov eax, 2
37b6b66a9jmp 0x37b6b6612
37b6b66ae
37b6b66ae 66 90 f.
37b6b66b0
37b6b66b0loc_37b6b66b0:
37b6b66b0mov edx, -4
37b6b66b5mov eax, 4
37b6b66bajmp 0x37b6b6612
37b6b66bf
37b6b66bf 90 .
37b6b66c0
37b6b66c0loc_37b6b66c0:
37b6b66c0mov r10, [rsp+400]
37b6b66c8test r11l, r11l
37b6b66cbmov eax, 1
37b6b66d0cmovg eax, r11l
37b6b66d4cmp [r10], eax
37b6b66d7jl 0x37b6b6720
37b6b66d9mov r11, [rsp+424]
37b6b66e1test edx, edx
37b6b66e3mov eax, 1
37b6b66e8cmovg eax, edx
37b6b66ebcmp [r11], eax
37b6b66eejl 0x37b6b6d38
37b6b66f4mov rax, [rsp+440]
37b6b66fccmp [rax], r12l
37b6b66ffjge 0x37b6b6730
37b6b6701cmp r15l, -1
37b6b6705je 0x37b6b6730
37b6b6707mov [rbp], -12
37b6b670emov eax, 12
37b6b6713jmp 0x37b6b6615
37b6b6718
37b6b6718 0f 1f 84 00 00 00 00 00 ........
37b6b6720
37b6b6720loc_37b6b6720:
37b6b6720mov edx, -7
37b6b6725mov eax, 7
37b6b672ajmp 0x37b6b6612
37b6b672f
37b6b672f 90 .
37b6b6730
37b6b6730loc_37b6b6730:
37b6b6730mov eax, [rbp]
37b6b6733test eax, eax
37b6b6735jne 0x37b6b6da9
37b6b673bmov eax, 1
37b6b6740test edx, edx
37b6b6742je 0x37b6b674c
37b6b6744test ecx, ecx
37b6b6746jne 0x37b6b6bc8
37b6b674c
37b6b674cloc_37b6b674c:
37b6b674cmov [rsp+256], eax
37b6b6753lea rax, [rsp+256]
37b6b675bmov rcx, rax
37b6b675emov [rsp+168], rax
37b6b6766call sroundup_lwork_
37b6b676bmov rax, [rsp+432]
37b6b6773movss [rax], x0
37b6b6777mov eax, [rbp]
37b6b677atest eax, eax
37b6b677cjne 0x37b6b6da9
37b6b6782cmp r15l, -1
37b6b6786je 0x37b6b6637
37b6b678cmov r8l, [rbx]
37b6b678ftest r8l, r8l
37b6b6792je 0x37b6b6637
37b6b6798mov ecx, [rsi]
37b6b679atest ecx, ecx
37b6b679cje 0x37b6b6637
37b6b67a2mov [rsp+252], r12l
37b6b67aacmp [rsp+184], 1
37b6b67b2jle 0x37b6b6b18
37b6b67b8mov rax, [rsp+384]
37b6b67c0mov ecx, [rax]
37b6b67c2cmp ecx, [rsp+184]
37b6b67c9jle 0x37b6b6b18
37b6b67cfmov rax, [rsp+440]
37b6b67d7lea r11, [rsp+268]
37b6b67dfmov eax, [rax]
37b6b67e1cmp eax, [rsp+256]
37b6b67e8jl 0x37b6b6c70
37b6b67ee
37b6b67eeloc_37b6b67ee:
37b6b67eemovsxd r8, [rsp+176]
37b6b67f6mov r15l, [rsp+184]
37b6b67fexor eax, eax
37b6b6800test r8, r8
37b6b6803mov ebp, r15l
37b6b6806cmovs r8, rax
37b6b680aimul ebp, r12l
37b6b680emov r12l, [rsp+164]
37b6b6816mov r10, r8
37b6b6819not r10
37b6b681ccmp r12l, r14l
37b6b681fje 0x37b6b6d50
37b6b6825lea r9l, [rcx-1]
37b6b6829mov eax, r9l
37b6b682ccdq
37b6b682didiv r15l
37b6b6830neg r15l
37b6b6833mov [rsp+192], r15l
37b6b683bsub r9l, edx
37b6b683elea r14l, [r9+1]
37b6b6842test r12l, r12l
37b6b6845je 0x37b6b6d90
37b6b684bmov edx, [rsi]
37b6b684dmov [rsp+264], edx
37b6b6854
37b6b6854loc_37b6b6854:
37b6b6854mov eax, r9l
37b6b6857xor edx, edx
37b6b6859div [rsp+184]
37b6b6860mov r15l, eax
37b6b6863
37b6b6863loc_37b6b6863:
37b6b6863movsxd r9, [rsp+192]
37b6b686bmov rax, [rsp+432]
37b6b6873movsxd rdx, ebp
37b6b6876mov [rsp+352], rdi
37b6b687emov [rsp+360], r13
37b6b6886mov rdi, [rsp+400]
37b6b688emov r13l, r14l
37b6b6891lea rax, [rax+4*rdx]
37b6b6895mov rdx, r9
37b6b6898mov [rsp+368], rbx
37b6b68a0imul rdx, r8
37b6b68a4mov [rsp+376], rsi
37b6b68acmov rbx, rax
37b6b68afmov esi, [rsp+184]
37b6b68b6mov [rsp+184], r11
37b6b68beshl rdx, 2
37b6b68c2mov [rsp+224], rdx
37b6b68camovsxd rdx, r14l
37b6b68cdmov r14, [rsp+384]
37b6b68d5imul r8, rdx
37b6b68d9add r8, r10
37b6b68dcmov r10, [rsp+392]
37b6b68e4lea rbp, [r10+4*r8+4]
37b6b68e9lea r10, [4*r9]
37b6b68f1mov [rsp+232], r10
37b6b68f9mov r10, [rsp+408]
37b6b6901lea r12, [r10+4*rdx-4]
37b6b6906lea rdx, [rsp+248]
37b6b690emov [rsp+176], rdx
37b6b6916lea rdx, [rsp+252]
37b6b691emov [rsp+200], rdx
37b6b6926lea rdx, [rsp+264]
37b6b692emov [rsp+216], rdx
37b6b6936lea rdx, [rsp+260]
37b6b693emov [rsp+208], rdx
37b6b6946jmp 0x37b6b6a59
37b6b694b
37b6b694b 0f 1f 44 00 00 ..D..
37b6b6950
37b6b6950loc_37b6b6950:
37b6b6950mov r11, [rsp+368]
37b6b6958mov eax, [r11]
37b6b695badd eax, r13l
37b6b695esub eax, ecx
37b6b6960lea eax, [rdx+rax-1]
37b6b6964mov [rsp+260], eax
37b6b696b
37b6b696bloc_37b6b696b:
37b6b696bmov rax, [rsp+200]
37b6b6973mov [rsp+72], rbx
37b6b6978lea r9, [rip+0xd7e0a9]
37b6b697flea r8, [rip+0xd7e0ac]
37b6b6986mov [rsp+64], rdi
37b6b698bmov rdx, [rsp+360]
37b6b6993mov [rsp+112], rax
37b6b6998mov rax, [rsp+432]
37b6b69a0mov [rsp+56], rbp
37b6b69a5mov rcx, [rsp+352]
37b6b69admov [rsp+104], rax
37b6b69b2mov rax, [rsp+424]
37b6b69bamov [rsp+144], 10
37b6b69c6mov [rsp+96], rax
37b6b69cbmov rax, [rsp+416]
37b6b69d3mov [rsp+136], 8
37b6b69dfmov [rsp+88], rax
37b6b69e4lea rax, [rip+0xd7e051]
37b6b69ebmov [rsp+80], rax
37b6b69f0mov rax, [rsp+176]
37b6b69f8mov [rsp+128], 1
37b6b6a04mov [rsp+48], rax
37b6b6a09mov rax, [rsp+216]
37b6b6a11mov [rsp+120], 1
37b6b6a1amov [rsp+40], rax
37b6b6a1fmov rax, [rsp+208]
37b6b6a27mov [rsp+32], rax
37b6b6a2ccall slarfb_
37b6b6a31test r15l, r15l
37b6b6a34je 0x37b6b6ba3
37b6b6a3amov ecx, [r14]
37b6b6a3dadd rbp, [rsp+224]
37b6b6a45sub r15l, 1
37b6b6a49add r12, [rsp+232]
37b6b6a51add r13l, [rsp+192]
37b6b6a59
37b6b6a59loc_37b6b6a59:
37b6b6a59mov eax, ecx
37b6b6a5bmov edx, [rsp+160]
37b6b6a62mov [rsp+80], 10
37b6b6a6bsub eax, r13l
37b6b6a6emov [rsp+56], rbx
37b6b6a73mov r9, [rsp+176]
37b6b6a7badd eax, 1
37b6b6a7emov [rsp+48], r12
37b6b6a83mov r8, [rsp+184]
37b6b6a8bcmp eax, esi
37b6b6a8dmov [rsp+40], rdi
37b6b6a92cmovg eax, esi
37b6b6a95sub edx, ecx
37b6b6a97mov [rsp+32], rbp
37b6b6a9clea rcx, [rip+0xd7df8f]
37b6b6aa3mov [rsp+72], 8
37b6b6aacadd edx, r13l
37b6b6aafmov [rsp+248], eax
37b6b6ab6lea eax, [rax+rdx-1]
37b6b6abalea rdx, [rip+0xd7df67]
37b6b6ac1mov [rsp+268], eax
37b6b6ac8lea rax, [rip+0xd7df6d]
37b6b6acfmov [rsp+64], rax
37b6b6ad4call slarft_
37b6b6ad9mov eax, [rsp+164]
37b6b6ae0mov ecx, [r14]
37b6b6ae3mov edx, [rsp+248]
37b6b6aeatest eax, eax
37b6b6aecjne 0x37b6b6950
37b6b6af2mov r11, [rsp+376]
37b6b6afamov eax, [r11]
37b6b6afdadd eax, r13l
37b6b6b00sub eax, ecx
37b6b6b02lea eax, [rdx+rax-1]
37b6b6b06mov [rsp+264], eax
37b6b6b0djmp 0x37b6b696b
37b6b6b12
37b6b6b12 66 0f 1f 44 00 00 f..D..
37b6b6b18
37b6b6b18loc_37b6b6b18:
37b6b6b18lea r11, [rsp+268]
37b6b6b20
37b6b6b20loc_37b6b6b20:
37b6b6b20mov [rsp+88], r11
37b6b6b25mov r9, rsi
37b6b6b28mov r8, rbx
37b6b6b2bmov rdx, r13
37b6b6b2emov rax, [rsp+432]
37b6b6b36mov rcx, rdi
37b6b6b39mov [rsp+104], 1
37b6b6b42mov [rsp+96], 1
37b6b6b4bmov [rsp+80], rax
37b6b6b50mov rax, [rsp+424]
37b6b6b58mov [rsp+72], rax
37b6b6b5dmov rax, [rsp+416]
37b6b6b65mov [rsp+64], rax
37b6b6b6amov rax, [rsp+408]
37b6b6b72mov [rsp+56], rax
37b6b6b77mov rax, [rsp+400]
37b6b6b7fmov [rsp+48], rax
37b6b6b84mov rax, [rsp+392]
37b6b6b8cmov [rsp+40], rax
37b6b6b91mov rax, [rsp+384]
37b6b6b99mov [rsp+32], rax
37b6b6b9ecall sorm2l_
37b6b6ba3
37b6b6ba3loc_37b6b6ba3:
37b6b6ba3mov rcx, [rsp+168]
37b6b6babcall sroundup_lwork_
37b6b6bb0mov rax, [rsp+432]
37b6b6bb8movss [rax], x0
37b6b6bbcjmp 0x37b6b6637
37b6b6bc1
37b6b6bc1 0f 1f 80 00 00 00 00 .......
37b6b6bc8
37b6b6bc8loc_37b6b6bc8:
37b6b6bc8mov [rsp+40], r13
37b6b6bcdlea r11, [rsp+268]
37b6b6bd5mov r9, rdi
37b6b6bd8mov ecx, 2
37b6b6bddmov [rsp+32], 1
37b6b6be6mov rdx, r11
37b6b6be9mov r8l, 1
37b6b6befmov [rsp+168], r11
37b6b6bf7call _gfortran_concat_string
37b6b6bfclea rax, [rip+0xd7de1d]
37b6b6c03mov r9, rbx
37b6b6c06mov [rsp+64], 2
37b6b6c0fmov [rsp+48], rax
37b6b6c14mov rax, [rsp+384]
37b6b6c1clea rdx, [rip+0xd7ddf1]
37b6b6c23lea rcx, [rip+0xd7ddf2]
37b6b6c2amov [rsp+32], rsi
37b6b6c2fmov r8, [rsp+168]
37b6b6c37mov [rsp+56], 6
37b6b6c40mov [rsp+40], rax
37b6b6c45call ilaenv_
37b6b6c4amov edx, eax
37b6b6c4cmov eax, 64
37b6b6c51cmp edx, eax
37b6b6c53cmovle eax, edx
37b6b6c56mov [rsp+184], eax
37b6b6c5dimul eax, r12l
37b6b6c61add eax, 4160
37b6b6c66jmp 0x37b6b674c
37b6b6c6b
37b6b6c6b 0f 1f 44 00 00 ..D..
37b6b6c70
37b6b6c70loc_37b6b6c70:
37b6b6c70sub eax, 4160
37b6b6c75mov [rsp+40], r13
37b6b6c7amov r9, rdi
37b6b6c7dmov ecx, 2
37b6b6c82cdq
37b6b6c83mov r8l, 1
37b6b6c89mov [rsp+32], 1
37b6b6c92idiv r12l
37b6b6c95mov [rsp+192], r11
37b6b6c9dmov rdx, r11
37b6b6ca0mov [rsp+184], eax
37b6b6ca7call _gfortran_concat_string
37b6b6caclea rcx, [rip+0xd7dd6d]
37b6b6cb3mov r9, rbx
37b6b6cb6mov [rsp+64], 2
37b6b6cbfmov [rsp+48], rcx
37b6b6cc4mov rcx, [rsp+384]
37b6b6ccclea rdx, [rip+0xd7dd41]
37b6b6cd3mov [rsp+32], rsi
37b6b6cd8mov r8, [rsp+192]
37b6b6ce0mov [rsp+40], rcx
37b6b6ce5lea rcx, [rip+0xd7dd38]
37b6b6cecmov [rsp+56], 6
37b6b6cf5call ilaenv_
37b6b6cfamov edx, 2
37b6b6cffmov r11, [rsp+192]
37b6b6d07cmp eax, edx
37b6b6d09cmovl eax, edx
37b6b6d0ccmp [rsp+184], eax
37b6b6d13jl 0x37b6b6b20
37b6b6d19mov rax, [rsp+384]
37b6b6d21mov ecx, [rax]
37b6b6d23cmp ecx, [rsp+184]
37b6b6d2ajg 0x37b6b67ee
37b6b6d30jmp 0x37b6b6b20
37b6b6d35
37b6b6d35 0f 1f 00 ...
37b6b6d38
37b6b6d38loc_37b6b6d38:
37b6b6d38mov edx, -10
37b6b6d3dmov eax, 10
37b6b6d42jmp 0x37b6b6612
37b6b6d47
37b6b6d47 66 0f 1f 84 00 00 00 00 00 f........
37b6b6d50
37b6b6d50loc_37b6b6d50:
37b6b6d50mov edx, [rsp+164]
37b6b6d57test edx, edx
37b6b6d59je 0x37b6b6d9e
37b6b6d5bmov eax, [rsi]
37b6b6d5dmov [rsp+264], eax
37b6b6d64
37b6b6d64loc_37b6b6d64:
37b6b6d64mov r14l, [rsp+184]
37b6b6d6clea eax, [rcx-1]
37b6b6d6fxor edx, edx
37b6b6d71div r14l
37b6b6d74mov [rsp+192], r14l
37b6b6d7cmov r14l, 1
37b6b6d82mov r15l, eax
37b6b6d85jmp 0x37b6b6863
37b6b6d8a
37b6b6d8a 66 0f 1f 44 00 00 f..D..
37b6b6d90
37b6b6d90loc_37b6b6d90:
37b6b6d90mov edx, [rbx]
37b6b6d92mov [rsp+260], edx
37b6b6d99jmp 0x37b6b6854
37b6b6d9e
37b6b6d9eloc_37b6b6d9e:
37b6b6d9emov eax, [rbx]
37b6b6da0mov [rsp+260], eax
37b6b6da7jmp 0x37b6b6d64
37b6b6da9
37b6b6da9loc_37b6b6da9:
37b6b6da9neg eax
37b6b6dabjmp 0x37b6b6615
37b6b64e0