	.file	"extr_f2c_blas.c_scasum_.c"
	.intel_syntax noprefix
	.text
	.p2align 4
	.globl	scasum_
	.type	scasum_, @function
scasum_:
.LFB0:
	.cfi_startproc
	endbr64
	push	r12
	.cfi_def_cfa_offset 16
	.cfi_offset 12, -16
	pxor	xmm0, xmm0
	push	rbp
	.cfi_def_cfa_offset 24
	.cfi_offset 6, -24
	push	rbx
	.cfi_def_cfa_offset 32
	.cfi_offset 3, -32
	sub	rsp, 16
	.cfi_def_cfa_offset 48
	mov	ebp, DWORD PTR [rdi]
	mov	DWORD PTR stemp.1939[rip], 0x00000000
	test	ebp, ebp
	jle	.L1
	mov	r12d, DWORD PTR [rdx]
	test	r12d, r12d
	jle	.L1
	lea	rbx, -4[rsi]
	cmp	r12d, 1
	je	.L12
	imul	ebp, r12d
	mov	eax, 1
	mov	DWORD PTR i__.1937[rip], 1
	.p2align 4,,10
	.p2align 3
.L5:
	cdqe
	lea	rdi, [rbx+rax*4]
	movss	xmm2, DWORD PTR [rdi]
	movss	DWORD PTR 8[rsp], xmm2
	call	r_imag@PLT
	movss	xmm2, DWORD PTR 8[rsp]
	movss	DWORD PTR 12[rsp], xmm0
	movaps	xmm0, xmm2
	call	dabs@PLT
	pxor	xmm0, xmm0
	movss	xmm1, DWORD PTR 12[rsp]
	cvtsi2ss	xmm0, eax
	addss	xmm0, DWORD PTR stemp.1939[rip]
	movss	DWORD PTR 8[rsp], xmm0
	movaps	xmm0, xmm1
	call	dabs@PLT
	pxor	xmm0, xmm0
	cvtsi2ss	xmm0, eax
	mov	eax, DWORD PTR i__.1937[rip]
	addss	xmm0, DWORD PTR 8[rsp]
	add	eax, r12d
	mov	DWORD PTR i__.1937[rip], eax
	movss	DWORD PTR stemp.1939[rip], xmm0
	cmp	ebp, eax
	jge	.L5
.L1:
	add	rsp, 16
	.cfi_remember_state
	.cfi_def_cfa_offset 32
	pop	rbx
	.cfi_def_cfa_offset 24
	pop	rbp
	.cfi_def_cfa_offset 16
	pop	r12
	.cfi_def_cfa_offset 8
	ret
	.p2align 4,,10
	.p2align 3
.L12:
	.cfi_restore_state
	mov	DWORD PTR i__.1937[rip], 1
	.p2align 4,,10
	.p2align 3
.L4:
	movsx	r12, r12d
	lea	rdi, [rbx+r12*4]
	movss	xmm2, DWORD PTR [rdi]
	movss	DWORD PTR 8[rsp], xmm2
	call	r_imag@PLT
	movss	xmm2, DWORD PTR 8[rsp]
	movss	DWORD PTR 12[rsp], xmm0
	movaps	xmm0, xmm2
	call	dabs@PLT
	pxor	xmm0, xmm0
	movss	xmm1, DWORD PTR 12[rsp]
	cvtsi2ss	xmm0, eax
	addss	xmm0, DWORD PTR stemp.1939[rip]
	movss	DWORD PTR 8[rsp], xmm0
	movaps	xmm0, xmm1
	call	dabs@PLT
	pxor	xmm0, xmm0
	cvtsi2ss	xmm0, eax
	mov	eax, DWORD PTR i__.1937[rip]
	addss	xmm0, DWORD PTR 8[rsp]
	lea	r12d, 1[rax]
	mov	DWORD PTR i__.1937[rip], r12d
	movss	DWORD PTR stemp.1939[rip], xmm0
	cmp	ebp, r12d
	jge	.L4
	add	rsp, 16
	.cfi_def_cfa_offset 32
	pop	rbx
	.cfi_def_cfa_offset 24
	pop	rbp
	.cfi_def_cfa_offset 16
	pop	r12
	.cfi_def_cfa_offset 8
	ret
	.cfi_endproc
.LFE0:
	.size	scasum_, .-scasum_
	.local	i__.1937
	.comm	i__.1937,4,4
	.local	stemp.1939
	.comm	stemp.1939,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_blas.c_scasum_.c"
	.text
	.global	__aeabi_i2f
	.global	__aeabi_fadd
	.align	2
	.global	scasum_
	.syntax unified
	.arm
	.fpu softvfp
	.type	scasum_, %function
scasum_:
	@ args = 0, pretend = 0, frame = 0
	@ frame_needed = 0, uses_anonymous_args = 0
	push	{r4, r5, r6, r7, r8, r9, r10, lr}
	ldr	r7, [r0]
	mov	r0, #0
	ldr	r4, .L13
	cmp	r7, #0
	str	r0, [r4]	@ float
	pople	{r4, r5, r6, r7, r8, r9, r10, pc}
	ldr	r8, [r2]
	cmp	r8, #0
	pople	{r4, r5, r6, r7, r8, r9, r10, pc}
	cmp	r8, #1
	sub	r6, r1, #4
	streq	r8, [r4, #4]
	beq	.L4
	mov	r2, #1
	mov	r3, r2
	mul	r7, r8, r7
	str	r2, [r4, #4]
.L5:
	add	r0, r6, r3, lsl #2
	ldr	r5, [r6, r3, lsl #2]	@ float
	bl	r_imag
	mov	r9, r0
	mov	r0, r5
	bl	dabs
	bl	__aeabi_i2f
	ldr	r1, [r4]	@ float
	bl	__aeabi_fadd
	mov	r5, r0
	mov	r0, r9
	bl	dabs
	bl	__aeabi_i2f
	mov	r1, r5
	bl	__aeabi_fadd
	ldr	r3, [r4, #4]
	str	r0, [r4]	@ float
	add	r3, r8, r3
	cmp	r7, r3
	str	r3, [r4, #4]
	bge	.L5
	pop	{r4, r5, r6, r7, r8, r9, r10, pc}
.L4:
	add	r0, r6, r8, lsl #2
	ldr	r5, [r6, r8, lsl #2]	@ float
	bl	r_imag
	mov	r8, r0
	mov	r0, r5
	bl	dabs
	bl	__aeabi_i2f
	ldr	r1, [r4]	@ float
	bl	__aeabi_fadd
	mov	r5, r0
	mov	r0, r8
	bl	dabs
	bl	__aeabi_i2f
	mov	r1, r5
	bl	__aeabi_fadd
	ldr	r8, [r4, #4]
	str	r0, [r4]	@ float
	add	r8, r8, #1
	cmp	r7, r8
	str	r8, [r4, #4]
	bge	.L4
	pop	{r4, r5, r6, r7, r8, r9, r10, pc}
.L14:
	.align	2
.L13:
	.word	.LANCHOR0
	.size	scasum_, .-scasum_
	.bss
	.align	2
	.set	.LANCHOR0,. + 0
	.type	stemp.4223, %object
	.size	stemp.4223, 4
stemp.4223:
	.space	4
	.type	i__.4221, %object
	.size	i__.4221, 4
i__.4221:
	.space	4
	.ident	"GCC: (Ubuntu 9.4.0-1ubuntu1~20.04.2) 9.4.0"
	.section	.note.GNU-stack,"",%progbits
