	.file	"extr_f2c_d_lapack.c_dgehd2_.c"
	.intel_syntax noprefix
	.text
	.section	.rodata.str1.1,"aMS",@progbits,1
.LC0:
	.string	"DGEHD2"
.LC1:
	.string	"Right"
.LC2:
	.string	"Left"
	.text
	.p2align 4
	.globl	dgehd2_
	.type	dgehd2_, @function
dgehd2_:
.LFB0:
	.cfi_startproc
	endbr64
	push	r15
	.cfi_def_cfa_offset 16
	.cfi_offset 15, -16
	mov	r15, rdx
	push	r14
	.cfi_def_cfa_offset 24
	.cfi_offset 14, -24
	mov	r14, rsi
	push	r13
	.cfi_def_cfa_offset 32
	.cfi_offset 13, -32
	push	r12
	.cfi_def_cfa_offset 40
	.cfi_offset 12, -40
	push	rbp
	.cfi_def_cfa_offset 48
	.cfi_offset 6, -48
	push	rbx
	.cfi_def_cfa_offset 56
	.cfi_offset 3, -56
	sub	rsp, 88
	.cfi_def_cfa_offset 144
	mov	ebp, DWORD PTR [r8]
	mov	rax, QWORD PTR 144[rsp]
	mov	QWORD PTR 8[rsp], rdi
	mov	QWORD PTR 16[rsp], r8
	mov	rdx, QWORD PTR 152[rsp]
	mov	QWORD PTR 24[rsp], rax
	mov	rax, QWORD PTR fs:40
	mov	QWORD PTR 72[rsp], rax
	xor	eax, eax
	mov	DWORD PTR [rdx], 0
	mov	esi, DWORD PTR [rdi]
	test	esi, esi
	js	.L17
	mov	r13d, DWORD PTR [r14]
	test	r13d, r13d
	jg	.L4
.L5:
	mov	DWORD PTR [rdx], -2
	mov	eax, 2
.L13:
	lea	rsi, 60[rsp]
	lea	rdi, .LC0[rip]
	mov	DWORD PTR 60[rsp], eax
	call	xerbla_@PLT
.L10:
	mov	rax, QWORD PTR 72[rsp]
	xor	rax, QWORD PTR fs:40
	jne	.L18
	add	rsp, 88
	.cfi_remember_state
	.cfi_def_cfa_offset 56
	xor	eax, eax
	pop	rbx
	.cfi_def_cfa_offset 48
	pop	rbp
	.cfi_def_cfa_offset 40
	pop	r12
	.cfi_def_cfa_offset 32
	pop	r13
	.cfi_def_cfa_offset 24
	pop	r14
	.cfi_def_cfa_offset 16
	pop	r15
	.cfi_def_cfa_offset 8
	ret
	.p2align 4,,10
	.p2align 3
.L4:
	.cfi_restore_state
	mov	edi, 1
	mov	QWORD PTR 32[rsp], rdx
	mov	rbx, rcx
	mov	r12, r9
	call	max@PLT
	mov	rdx, QWORD PTR 32[rsp]
	cmp	r13d, eax
	jg	.L5
	mov	rax, QWORD PTR 8[rsp]
	mov	edi, DWORD PTR [r14]
	mov	r13d, DWORD PTR [r15]
	mov	esi, DWORD PTR [rax]
	call	min@PLT
	mov	rdx, QWORD PTR 32[rsp]
	cmp	r13d, eax
	jl	.L6
	mov	rax, QWORD PTR 8[rsp]
	mov	esi, DWORD PTR [rax]
	cmp	DWORD PTR [r15], esi
	jg	.L6
	mov	rax, QWORD PTR 16[rsp]
	mov	edi, 1
	mov	QWORD PTR 32[rsp], rdx
	mov	r13d, DWORD PTR [rax]
	call	max@PLT
	mov	rdx, QWORD PTR 32[rsp]
	cmp	r13d, eax
	jge	.L8
	mov	DWORD PTR [rdx], -5
	mov	eax, 5
	jmp	.L13
	.p2align 4,,10
	.p2align 3
.L17:
	mov	DWORD PTR [rdx], -1
	mov	eax, 1
	jmp	.L13
.L6:
	mov	DWORD PTR [rdx], -3
	mov	eax, 3
	jmp	.L13
	.p2align 4,,10
	.p2align 3
.L8:
	mov	eax, DWORD PTR [rdx]
	test	eax, eax
	jne	.L19
	mov	edx, DWORD PTR [r15]
	mov	eax, DWORD PTR [r14]
	lea	ecx, -1[rdx]
	mov	DWORD PTR i__.1948[rip], eax
	mov	DWORD PTR 60[rsp], ecx
	cmp	ecx, eax
	jl	.L10
	lea	ecx, 1[rbp]
	lea	rdi, 68[rsp]
	sub	r12, 4
	movsx	rcx, ecx
	mov	QWORD PTR 40[rsp], rdi
	lea	r14, 64[rsp]
	lea	r13, c__1[rip]
	sal	rcx, 2
	sub	rbx, rcx
	jmp	.L12
	.p2align 4,,10
	.p2align 3
.L20:
	mov	edx, DWORD PTR [r15]
.L12:
	sub	edx, eax
	lea	edi, 2[rax]
	cdqe
	lea	r8, [r12+rax*4]
	mov	rax, QWORD PTR 8[rsp]
	mov	DWORD PTR 64[rsp], edx
	mov	DWORD PTR 68[rsp], edi
	mov	esi, DWORD PTR [rax]
	mov	QWORD PTR 32[rsp], r8
	call	min@PLT
	mov	ecx, DWORD PTR i__.1948[rip]
	mov	r8, QWORD PTR 32[rsp]
	mov	rdi, r14
	mov	edx, ecx
	imul	edx, ebp
	add	eax, edx
	cdqe
	lea	r9, [rbx+rax*4]
	lea	eax, 1[rcx+rdx]
	mov	rcx, r13
	cdqe
	mov	rdx, r9
	lea	rsi, [rbx+rax*4]
	call	dlarfg_@PLT
	movsx	rax, DWORD PTR i__.1948[rip]
	sub	rsp, 8
	.cfi_def_cfa_offset 152
	mov	r8, r13
	lea	rdi, .LC1[rip]
	mov	edx, eax
	lea	r9, [r12+rax*4]
	imul	edx, ebp
	lea	ecx, 1[rax+rdx]
	add	edx, ebp
	movsx	rcx, ecx
	movsx	rdx, edx
	lea	rcx, [rbx+rcx*4]
	lea	rdx, 4[rbx+rdx*4]
	mov	esi, DWORD PTR [rcx]
	mov	DWORD PTR [rcx], 1
	mov	DWORD PTR aii.1949[rip], esi
	mov	esi, DWORD PTR [r15]
	sub	esi, eax
	mov	DWORD PTR 72[rsp], esi
	mov	rsi, r15
	push	QWORD PTR 32[rsp]
	.cfi_def_cfa_offset 160
	push	QWORD PTR 32[rsp]
	.cfi_def_cfa_offset 168
	push	rdx
	.cfi_def_cfa_offset 176
	mov	rdx, r14
	call	dlarf_@PLT
	mov	rax, QWORD PTR 40[rsp]
	mov	edi, DWORD PTR [r15]
	mov	r8, r13
	movsx	rcx, DWORD PTR i__.1948[rip]
	mov	eax, DWORD PTR [rax]
	sub	edi, ecx
	lea	r9, [r12+rcx*4]
	mov	DWORD PTR 64[rsp], eax
	sub	eax, ecx
	mov	DWORD PTR 100[rsp], eax
	lea	eax, 1[rcx]
	mov	esi, eax
	mov	DWORD PTR 96[rsp], edi
	add	rsp, 24
	.cfi_def_cfa_offset 152
	lea	rdi, .LC2[rip]
	imul	esi, ebp
	push	QWORD PTR 32[rsp]
	.cfi_def_cfa_offset 160
	push	QWORD PTR 32[rsp]
	.cfi_def_cfa_offset 168
	mov	edx, esi
	sub	edx, ebp
	add	edx, eax
	add	eax, esi
	mov	rsi, r14
	cdqe
	movsx	rdx, edx
	lea	rax, [rbx+rax*4]
	lea	r11, [rbx+rdx*4]
	push	rax
	.cfi_def_cfa_offset 176
	mov	rdx, QWORD PTR 72[rsp]
	mov	rcx, r11
	call	dlarf_@PLT
	mov	edx, DWORD PTR i__.1948[rip]
	mov	ecx, DWORD PTR aii.1949[rip]
	add	rsp, 32
	.cfi_def_cfa_offset 144
	lea	eax, 1[rdx]
	imul	edx, ebp
	mov	DWORD PTR i__.1948[rip], eax
	add	edx, eax
	movsx	rdx, edx
	mov	DWORD PTR [rbx+rdx*4], ecx
	cmp	eax, DWORD PTR 60[rsp]
	jle	.L20
	jmp	.L10
.L18:
	call	__stack_chk_fail@PLT
.L19:
	neg	eax
	jmp	.L13
	.cfi_endproc
.LFE0:
	.size	dgehd2_, .-dgehd2_
	.local	aii.1949
	.comm	aii.1949,4,4
	.local	i__.1948
	.comm	i__.1948,4,4
	.comm	c__1,4,4
	.ident	"GCC: (Ubuntu 9.4.0-1ubuntu1~20.04.2) 9.4.0"
	.section	.note.GNU-stack,"",@progbits
	.section	.note.gnu.property,"a"
	.align 8
	.long	 1f - 0f
	.long	 4f - 1f
	.long	 5
0:
	.string	 "GNU"
1:
	.align 8
	.long	 0xc0000002
	.long	 3f - 2f
2:
	.long	 0x3
3:
	.align 8
4:

	.arch armv5t
	.eabi_attribute 20, 1
	.eabi_attribute 21, 1
	.eabi_attribute 23, 3
	.eabi_attribute 24, 1
	.eabi_attribute 25, 1
	.eabi_attribute 26, 2
	.eabi_attribute 30, 2
	.eabi_attribute 34, 0
	.eabi_attribute 18, 4
	.file	"extr_f2c_d_lapack.c_dgehd2_.c"
	.text
	.section	.rodata.str1.4,"aMS",%progbits,1
	.align	2
.LC0:
	.ascii	"DGEHD2\000"
	.align	2
.LC1:
	.ascii	"Right\000"
	.align	2
.LC2:
	.ascii	"Left\000"
	.section	.rodata.cst4,"aM",%progbits,4
	.align	2
.LC3:
	.word	__stack_chk_guard
	.text
	.align	2
	.global	dgehd2_
	.syntax unified
	.arm
	.fpu softvfp
	.type	dgehd2_, %function
dgehd2_:
	@ args = 16, pretend = 0, frame = 24
	@ frame_needed = 0, uses_anonymous_args = 0
	mov	ip, #0
	push	{r4, r5, r6, r7, r8, r9, r10, fp, lr}
	mov	r9, r0
	sub	sp, sp, #52
	ldr	r0, .L21
	ldr	r10, [sp, #88]
	ldr	fp, [sp, #100]
	ldr	r0, [r0]
	str	r0, [sp, #44]
	mov	r0,#0
	ldr	r5, [r10]
	str	ip, [fp]
	ldr	r0, [r9]
	mov	r4, r3
	ldr	r3, [sp, #96]
	cmp	r0, ip
	ldr	r8, [sp, #92]
	str	r3, [sp, #24]
	blt	.L17
	ldr	r3, [r1]
	mov	r6, r1
	cmp	r3, #0
	bgt	.L4
.L5:
	mvn	r2, #1
	mov	r3, #2
	str	r2, [fp]
.L13:
	ldr	r0, .L21+4
	add	r1, sp, #32
	str	r3, [sp, #32]
	bl	xerbla_
.L10:
	ldr	r3, .L21
	ldr	r2, [r3]
	ldr	r3, [sp, #44]
	eors	r2, r3, r2
	mov	r3, #0
	bne	.L18
	mov	r0, #0
	add	sp, sp, #52
	@ sp needed
	pop	{r4, r5, r6, r7, r8, r9, r10, fp, pc}
.L4:
	mov	r1, r0
	mov	r0, #1
	str	r3, [sp, #28]
	mov	r7, r2
	bl	max
	ldr	r3, [sp, #28]
	cmp	r3, r0
	bgt	.L5
	ldr	r3, [r7]
	ldr	r1, [r9]
	ldr	r0, [r6]
	str	r3, [sp, #28]
	bl	min
	ldr	r3, [sp, #28]
	cmp	r3, r0
	blt	.L6
	ldr	r1, [r9]
	ldr	r3, [r7]
	cmp	r3, r1
	bgt	.L6
	ldr	r3, [r10]
	mov	r0, #1
	str	r3, [sp, #28]
	bl	max
	ldr	r3, [sp, #28]
	cmp	r3, r0
	bge	.L8
	mvn	r2, #4
	mov	r3, #5
	str	r2, [fp]
	b	.L13
.L17:
	mvn	r2, #0
	mov	r3, #1
	str	r2, [fp]
	b	.L13
.L6:
	mvn	r2, #2
	mov	r3, #3
	str	r2, [fp]
	b	.L13
.L8:
	ldr	r3, [fp]
	cmp	r3, #0
	bne	.L19
	ldr	ip, [r7]
	ldr	r2, [r6]
	sub	r3, ip, #1
	ldr	r6, .L21+8
	cmp	r3, r2
	str	r3, [sp, #32]
	str	r2, [r6]
	blt	.L10
	add	r3, r5, #1
	ldr	fp, .L21+12
	sub	r8, r8, #4
	sub	r4, r4, r3, lsl #2
	b	.L12
.L20:
	ldr	ip, [r7]
.L12:
	add	r3, r2, #1
	mla	r3, r2, r5, r3
	add	r0, r2, #2
	add	r3, r4, r3, lsl #2
	sub	r2, ip, r2
	ldr	r1, [r9]
	str	r2, [sp, #36]
	str	r3, [sp, #28]
	str	r0, [sp, #40]
	bl	min
	ldr	ip, [r6]
	ldr	r3, [sp, #28]
	mla	r2, r5, ip, r0
	add	ip, r8, ip, lsl #2
	mov	r1, r3
	add	r2, r4, r2, lsl #2
	ldr	r3, .L21+12
	str	ip, [sp]
	add	r0, sp, #36
	bl	dlarfg_
	mov	ip, #1
	ldr	r1, [r6]
	ldr	r3, [sp, #24]
	mul	r2, r5, r1
	str	r3, [sp, #16]
	add	r3, r1, ip
	add	r3, r3, r2
	add	r2, r2, r5
	ldr	r0, [r4, r3, lsl #2]
	add	r2, r2, ip
	str	ip, [r4, r3, lsl #2]
	ldr	ip, [r7]
	add	r2, r4, r2, lsl #2
	str	r2, [sp, #8]
	add	r2, r8, r1, lsl #2
	sub	ip, ip, r1
	str	r2, [sp, #4]
	mov	r1, r7
	str	r10, [sp, #12]
	str	fp, [sp]
	add	r3, r4, r3, lsl #2
	add	r2, sp, #36
	str	r0, [r6, #4]
	ldr	r0, .L21+16
	str	ip, [sp, #36]
	bl	dlarf_
	ldr	r2, [r6]
	ldr	r3, [sp, #24]
	mul	ip, r5, r2
	str	r3, [sp, #16]
	add	r1, ip, r5
	add	r3, r2, #1
	ldr	r0, [r7]
	add	r1, r1, r3
	add	r1, r4, r1, lsl #2
	add	r3, r3, ip
	ldr	ip, [r9]
	sub	r0, r0, r2
	str	r1, [sp, #8]
	add	r1, r8, r2, lsl #2
	sub	ip, ip, r2
	add	r3, r4, r3, lsl #2
	str	r1, [sp, #4]
	add	r2, sp, #40
	add	r1, sp, #36
	str	r0, [sp, #36]
	str	r10, [sp, #12]
	ldr	r0, .L21+20
	str	fp, [sp]
	str	ip, [sp, #40]
	bl	dlarf_
	ldr	r3, [r6]
	ldr	r0, [sp, #32]
	add	r2, r3, #1
	mla	r3, r5, r3, r2
	ldr	r1, [r6, #4]
	cmp	r2, r0
	str	r2, [r6]
	str	r1, [r4, r3, lsl #2]
	ble	.L20
	b	.L10
.L18:
	bl	__stack_chk_fail
.L19:
	rsb	r3, r3, #0
	b	.L13
.L22:
	.align	2
.L21:
	.word	.LC3
	.word	.LC0
	.word	.LANCHOR0
	.word	c__1
	.word	.LC1
	.word	.LC2
	.size	dgehd2_, .-dgehd2_
	.comm	c__1,4,4
	.bss
	.align	2
	.set	.LANCHOR0,. + 0
	.type	i__.4232, %object
	.size	i__.4232, 4
i__.4232:
	.space	4
	.type	aii.4233, %object
	.size	aii.4233, 4
aii.4233:
	.space	4
	.ident	"GCC: (Ubuntu 9.4.0-1ubuntu1~20.04.2) 9.4.0"
	.section	.note.GNU-stack,"",%progbits
