.section	".text",#alloc,#execinstr
	.align	8
	.skip	16

	! block 0

	.global	sgesl_
	.type	sgesl_,2
sgesl_:
	save	%sp,-168,%sp
	sethi	%hi(.L_tcovStruct),%l1
	or	%l1,%lo(.L_tcovStruct),%l1
	ld	[%l1+0],%l0
	cmp	%l0,0
	bne	.L_y0
	nop

	! block 23
	mov	%l1,%o0
	call	__bb_init_func
	nop

	! block 1
.L_y0:
.L64:
	st	%i0,[%fp-4]
	st	%i1,[%fp-8]
	st	%i3,[%fp-16]
	st	%i5,[%fp-24]

	! block 2
.L65:
	ld	[%fp-8],%l0
	ld	[%l0+0],%l0
	st	%l0,[%fp-32]
	sra	%l0,31,%l3
	subcc	%g0,%l0,%l4
	subx	%g0,%l3,%l3
	and	%l4,%l3,%l3
	sub	%g0,%l3,%i3
	sll	%i3,2,%l1
	st	%l1,[%fp-40]
	st	%i3,[%fp-28]
	ld	[%fp-4],%l0
	add	%l1,4,%l1
	sub	%l0,%l1,%i5

! File sgesl.f:
!    1	c *** from netlib, Mon Feb  4 14:58:46 EST 1991 ***
!    2	      subroutine sgesl(a,lda,n,ipvt,b,job)
!    3	      integer lda,n,ipvt(1),job
!    4	      real a(lda,1),b(1)
!    5	c
!    6	c     sgesl solves the real system
!    7	c     a * x = b  or  trans(a) * x = b
!    8	c     using the factors computed by sgeco or sgefa.
!    9	c
!   10	c     on entry
!   11	c
!   12	c        a       real(lda, n)
!   13	c                the output from sgeco or sgefa.
!   14	c
!   15	c        lda     integer
!   16	c                the leading dimension of the array  a .
!   17	c
!   18	c        n       integer
!   19	c                the order of the matrix  a .
!   20	c
!   21	c        ipvt    integer(n)
!   22	c                the pivot vector from sgeco or sgefa.
!   23	c
!   24	c        b       real(n)
!   25	c                the right hand side vector.
!   26	c
!   27	c        job     integer
!   28	c                = 0         to solve  a*x = b ,
!   29	c                = nonzero   to solve  trans(a)*x = b  where
!   30	c                            trans(a)  is the transpose.
!   31	c
!   32	c     on return
!   33	c
!   34	c        b       the solution vector  x .
!   35	c
!   36	c     error condition
!   37	c
!   38	c        a division by zero will occur if the input factor contains a
!   39	c        zero on the diagonal.  technically this indicates singularity
!   40	c        but it is often caused by improper arguments or improper
!   41	c        setting of lda .  it will not occur if the subroutines are
!   42	c        called correctly and if sgeco has set rcond .gt. 0.0
!   43	c        or sgefa has set info .eq. 0 .
!   44	c
!   45	c     to compute  inverse(a) * c  where  c  is a matrix
!   46	c     with  p  columns
!   47	c           call sgeco(a,lda,n,ipvt,rcond,z)
!   48	c           if (rcond is too small) go to ...
!   49	c           do 10 j = 1, p
!   50	c              call sgesl(a,lda,n,ipvt,c(1,j),0)
!   51	c        10 continue
!   52	c
!   53	c     linpack. this version dated 08/14/78 .
!   54	c     cleve moler, university of new mexico, argonne national lab.
!   55	c
!   56	c     subroutines and functions
!   57	c
!   58	c     blas saxpy,sdot
!   59	c
!   60	c     internal variables
!   61	c
!   62	      real sdot,t
!   63	      integer k,kb,l,nm1
!   64	c
!   65	      nm1 = n - 1

	sethi	%hi(.L_tcovCounters),%l2
	ldd	[%l2+%lo(.L_tcovCounters)],%l0
	addcc	%l1,1,%l1
	addx	%l0,%g0,%l0
	std	%l0,[%l2+%lo(.L_tcovCounters)]
	ld	[%i2+0],%l0
	sub	%l0,1,%l1
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.nm1),%l3
	st	%l1,[%l3+%lo(.XBkNwvCZ5cr9yjZ.sgesl.nm1)]

!   66	      if (job .ne. 0) go to 50

	ld	[%fp-24],%l0
	ld	[%l0+0],%l0
	cmp	%l0,0
	bne	.L56
	nop

	! block 3
.L66:

!   67	c
!   68	c        job = 0 , solve  a * x = b
!   69	c        first solve  l*y = b
!   70	c
!   71	         if (nm1 .lt. 1) go to 30

	sethi	%hi(.L_tcovCounters+8),%l2
	ldd	[%l2+%lo(.L_tcovCounters+8)],%l0
	addcc	%l1,1,%l1
	addx	%l0,%g0,%l0
	std	%l0,[%l2+%lo(.L_tcovCounters+8)]
	ld	[%l3+%lo(.XBkNwvCZ5cr9yjZ.sgesl.nm1)],%l0
	cmp	%l0,1
	bl	.L53
	nop

	! block 4
.L67:

!   72	         do 20 k = 1, nm1

	sethi	%hi(.L_tcovCounters+16),%l2
	ldd	[%l2+%lo(.L_tcovCounters+16)],%l0
	addcc	%l1,1,%l1
	addx	%l0,%g0,%l0
	std	%l0,[%l2+%lo(.L_tcovCounters+16)]
.L45:
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.nm1),%l0
	ld	[%l0+%lo(.XBkNwvCZ5cr9yjZ.sgesl.nm1)],%l0
	st	%l0,[%fp-56]
	mov	1,%l1
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.k),%l0
	st	%l1,[%l0+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)]
	ld	[%fp-56],%l0
	cmp	%l1,%l0
	bg	.L69
	nop

	! block 5
.L70:
.L68:

!   73	            l = ipvt(k)

	sethi	%hi(.L_tcovCounters+24),%l2
	ldd	[%l2+%lo(.L_tcovCounters+24)],%l0
	addcc	%l1,1,%l1
	addx	%l0,%g0,%l0
	std	%l0,[%l2+%lo(.L_tcovCounters+24)]
	ld	[%fp-16],%l2
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.k),%l5
	ld	[%l5+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0-4],%l1
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.l),%l3
	st	%l1,[%l3+%lo(.XBkNwvCZ5cr9yjZ.sgesl.l)]

!   74	            t = b(l)

	mov	%i4,%l6
	sll	%l1,2,%l1
	add	%l6,%l1,%l0
	ld	[%l0-4],%f2
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.t),%l4
	st	%f2,[%l4+%lo(.XBkNwvCZ5cr9yjZ.sgesl.t)]

!   75	            if (l .eq. k) go to 10

	ld	[%l3+%lo(.XBkNwvCZ5cr9yjZ.sgesl.l)],%l1
	ld	[%l5+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)],%l0
	cmp	%l1,%l0
	be	.L49
	nop

	! block 6
.L71:

!   76	               b(l) = b(k)

	sethi	%hi(.L_tcovCounters+32),%l2
	ldd	[%l2+%lo(.L_tcovCounters+32)],%l0
	addcc	%l1,1,%l1
	addx	%l0,%g0,%l0
	std	%l0,[%l2+%lo(.L_tcovCounters+32)]
	ld	[%l5+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)],%l0
	sll	%l0,2,%l1
	add	%l6,%l1,%l0
	ld	[%l0-4],%f2
	ld	[%l3+%lo(.XBkNwvCZ5cr9yjZ.sgesl.l)],%l0
	sll	%l0,2,%l1
	add	%l6,%l1,%l0
	st	%f2,[%l0-4]

!   77	               b(k) = t

	ld	[%l4+%lo(.XBkNwvCZ5cr9yjZ.sgesl.t)],%f2
	ld	[%l5+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)],%l0
	sll	%l0,2,%l1
	add	%l6,%l1,%l0
	st	%f2,[%l0-4]

!   78	   10       continue


	! block 7
.L49:

!   79	            call saxpy(n-k,t,a(k+1,k),1,b(k+1),1)

	sethi	%hi(.L_tcovCounters+40),%l2
	ldd	[%l2+%lo(.L_tcovCounters+40)],%l0
	addcc	%l1,1,%l1
	addx	%l0,%g0,%l0
	std	%l0,[%l2+%lo(.L_tcovCounters+40)]
	ld	[%i2+0],%l1
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.k),%l5
	ld	[%l5+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)],%l2
	sub	%l1,%l2,%l0
	st	%l0,[%fp-44]
	add	%fp,-44,%o0
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.t),%o1
	or	%o1,%lo(.XBkNwvCZ5cr9yjZ.sgesl.t),%o1
	smul	%l2,%i3,%l0
	add	%l2,1,%l2
	add	%l0,%l2,%l0
	sll	%l0,2,%l1
	add	%i5,%l1,%o2
	sethi	%hi(.L_cseg0),%o5
	or	%o5,%lo(.L_cseg0),%o5
	sll	%l2,2,%l1
	add	%i4,%l1,%l0
	add	%l0,-4,%o4
	call	saxpy_
	mov	%o5,%o3

!   80	   20    continue


	! block 8
.L51:
	ld	[%l5+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)],%l0
	add	%l0,1,%l1
	st	%l1,[%l5+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)]
	ld	[%fp-56],%l0
	cmp	%l1,%l0
	ble	.L68
	nop

	! block 9
.L72:
.L69:

!   81	   30    continue

	sethi	%hi(.L_tcovCounters+48),%l2
	ldd	[%l2+%lo(.L_tcovCounters+48)],%l0
	addcc	%l1,1,%l1
	addx	%l0,%g0,%l0
	std	%l0,[%l2+%lo(.L_tcovCounters+48)]
.L53:

!   82	c
!   83	c        now solve  u*x = y
!   84	c
!   85	         do 40 kb = 1, n

.L46:
	ld	[%i2+0],%l1
	st	%l1,[%fp-60]
	mov	1,%l2
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.kb),%l0
	cmp	%l2,%l1
	bg	.L74
	st	%l2,[%l0+%lo(.XBkNwvCZ5cr9yjZ.sgesl.kb)]

	! block 10
.L75:
.L73:

!   86	            k = n + 1 - kb

	sethi	%hi(.L_tcovCounters+56),%l2
	ldd	[%l2+%lo(.L_tcovCounters+56)],%l0
	addcc	%l1,1,%l1
	addx	%l0,%g0,%l0
	std	%l0,[%l2+%lo(.L_tcovCounters+56)]
	ld	[%i2+0],%l0
	add	%l0,1,%l2
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.kb),%i0
	ld	[%i0+%lo(.XBkNwvCZ5cr9yjZ.sgesl.kb)],%l1
	sub	%l2,%l1,%l3
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.k),%l6
	st	%l3,[%l6+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)]

!   87	            b(k) = b(k)/a(k,k)

	sll	%l3,2,%l1
	add	%i4,%l1,%l0
	add	%l0,-4,%l5
	ld	[%l5+0],%f3
	smul	%l3,%i3,%l0
	add	%l0,%l3,%l0
	sll	%l0,2,%l1
	ld	[%i5+%l1],%f2
	fdivs	%f3,%f2,%f2
	st	%f2,[%l5+0]

!   88	            t = -b(k)

	ld	[%l6+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)],%l0
	sll	%l0,2,%l1
	add	%i4,%l1,%l0
	ld	[%l0-4],%f2
	fnegs	%f2,%f2
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.t),%o1
	or	%o1,%lo(.XBkNwvCZ5cr9yjZ.sgesl.t),%o1
	st	%f2,[%o1+0]

!   89	            call saxpy(k-1,t,a(1,k),1,b(1),1)

	ld	[%l6+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)],%l1
	sub	%l1,1,%l0
	st	%l0,[%fp-44]
	add	%fp,-44,%o0
	smul	%l1,%i3,%l0
	sll	%l0,2,%l1
	add	%i5,%l1,%l0
	add	%l0,4,%o2
	sethi	%hi(.L_cseg0),%o5
	or	%o5,%lo(.L_cseg0),%o5
	mov	%o5,%o3
	call	saxpy_
	mov	%i4,%o4

!   90	   40    continue


	! block 11
.L54:
	ld	[%i0+%lo(.XBkNwvCZ5cr9yjZ.sgesl.kb)],%l0
	add	%l0,1,%l1
	st	%l1,[%i0+%lo(.XBkNwvCZ5cr9yjZ.sgesl.kb)]
	ld	[%fp-60],%l0
	cmp	%l1,%l0
	ble	.L73
	nop

	! block 12
.L76:
.L74:

!   91	      go to 100

	sethi	%hi(.L_tcovCounters+64),%l2
	ldd	[%l2+%lo(.L_tcovCounters+64)],%l0
	addcc	%l1,1,%l1
	addx	%l0,%g0,%l0
	std	%l0,[%l2+%lo(.L_tcovCounters+64)]
	ba	.L50
	nop

	! block 13

!   92	   50 continue

.L56:

!   93	c
!   94	c        job = nonzero, solve  trans(a) * x = b
!   95	c        first solve  trans(u)*y = b
!   96	c
!   97	         do 60 k = 1, n

	sethi	%hi(.L_tcovCounters+72),%l2
	ldd	[%l2+%lo(.L_tcovCounters+72)],%l0
	addcc	%l1,1,%l1
	addx	%l0,%g0,%l0
	std	%l0,[%l2+%lo(.L_tcovCounters+72)]
.L47:
	ld	[%i2+0],%l1
	st	%l1,[%fp-64]
	mov	1,%l2
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.k),%l0
	cmp	%l2,%l1
	bg	.L78
	st	%l2,[%l0+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)]

	! block 14
.L79:
.L77:

!   98	            t = sdot(k-1,a(1,k),1,b(1),1)

	sethi	%hi(.L_tcovCounters+80),%l2
	ldd	[%l2+%lo(.L_tcovCounters+80)],%l0
	addcc	%l1,1,%l1
	addx	%l0,%g0,%l0
	std	%l0,[%l2+%lo(.L_tcovCounters+80)]
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.k),%l5
	ld	[%l5+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)],%l2
	sub	%l2,1,%l0
	st	%l0,[%fp-44]
	add	%fp,-44,%o0
	smul	%l2,%i3,%l0
	sll	%l0,2,%l1
	add	%i5,%l1,%l0
	add	%l0,4,%o1
	sethi	%hi(.L_cseg0),%o4
	or	%o4,%lo(.L_cseg0),%o4
	mov	%o4,%o2
	call	sdot_
	mov	%i4,%o3
	st	%f0,[%fp-52]
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.t),%l0
	st	%f0,[%l0+%lo(.XBkNwvCZ5cr9yjZ.sgesl.t)]

!   99	            b(k) = (b(k) - t)/a(k,k)

	ld	[%l5+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)],%l3
	sll	%l3,2,%l1
	add	%i4,%l1,%l0
	add	%l0,-4,%l4
	ld	[%l4+0],%f2
	fsubs	%f2,%f0,%f3
	smul	%l3,%i3,%l0
	add	%l0,%l3,%l0
	sll	%l0,2,%l1
	ld	[%i5+%l1],%f2
	fdivs	%f3,%f2,%f2
	st	%f2,[%l4+0]

!  100	   60    continue


	! block 15
.L57:
	ld	[%l5+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)],%l0
	add	%l0,1,%l1
	st	%l1,[%l5+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)]
	ld	[%fp-64],%l0
	cmp	%l1,%l0
	ble	.L77
	nop

	! block 16
.L80:
.L78:

!  101	c
!  102	c        now solve trans(l)*x = y
!  103	c
!  104	         if (nm1 .lt. 1) go to 90

	sethi	%hi(.L_tcovCounters+88),%l2
	ldd	[%l2+%lo(.L_tcovCounters+88)],%l0
	addcc	%l1,1,%l1
	addx	%l0,%g0,%l0
	std	%l0,[%l2+%lo(.L_tcovCounters+88)]
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.nm1),%l0
	ld	[%l0+%lo(.XBkNwvCZ5cr9yjZ.sgesl.nm1)],%l0
	cmp	%l0,1
	bl	.L62
	nop

	! block 17
.L81:

!  105	         do 80 kb = 1, nm1

	sethi	%hi(.L_tcovCounters+96),%l2
	ldd	[%l2+%lo(.L_tcovCounters+96)],%l0
	addcc	%l1,1,%l1
	addx	%l0,%g0,%l0
	std	%l0,[%l2+%lo(.L_tcovCounters+96)]
.L48:
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.nm1),%l0
	ld	[%l0+%lo(.XBkNwvCZ5cr9yjZ.sgesl.nm1)],%l0
	st	%l0,[%fp-68]
	mov	1,%l1
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.kb),%l0
	st	%l1,[%l0+%lo(.XBkNwvCZ5cr9yjZ.sgesl.kb)]
	ld	[%fp-68],%l0
	cmp	%l1,%l0
	bg	.L83
	nop

	! block 18
.L84:
.L82:

!  106	            k = n - kb

	sethi	%hi(.L_tcovCounters+104),%l2
	ldd	[%l2+%lo(.L_tcovCounters+104)],%l0
	addcc	%l1,1,%l1
	addx	%l0,%g0,%l0
	std	%l0,[%l2+%lo(.L_tcovCounters+104)]
	ld	[%i2+0],%l3
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.kb),%l0
	ld	[%l0+%lo(.XBkNwvCZ5cr9yjZ.sgesl.kb)],%l1
	sub	%l3,%l1,%l2
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.k),%l5
	st	%l2,[%l5+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)]

!  107	            b(k) = b(k) + sdot(n-k,a(k+1,k),1,b(k+1),1)

	sub	%l3,%l2,%l0
	st	%l0,[%fp-44]
	add	%fp,-44,%o0
	smul	%l2,%i3,%l0
	add	%l2,1,%l2
	add	%l0,%l2,%l0
	sll	%l0,2,%l1
	add	%i5,%l1,%o1
	sethi	%hi(.L_cseg0),%o4
	or	%o4,%lo(.L_cseg0),%o4
	sll	%l2,2,%l1
	add	%i4,%l1,%l0
	add	%l0,-4,%o3
	call	sdot_
	mov	%o4,%o2
	st	%f0,[%fp-52]
	mov	%i4,%l4
	ld	[%l5+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)],%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	add	%l0,-4,%l0
	ld	[%l0+0],%f2
	fadds	%f2,%f0,%f2
	st	%f2,[%l0+0]

!  108	            l = ipvt(k)

	ld	[%fp-16],%l2
	ld	[%l5+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)],%l0
	sll	%l0,2,%l1
	add	%l2,%l1,%l0
	ld	[%l0-4],%l1
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.l),%l3
	st	%l1,[%l3+%lo(.XBkNwvCZ5cr9yjZ.sgesl.l)]

!  109	            if (l .eq. k) go to 70

	ld	[%l5+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)],%l0
	cmp	%l1,%l0
	be	.L59
	nop

	! block 19
.L85:

!  110	               t = b(l)

	sethi	%hi(.L_tcovCounters+112),%l2
	ldd	[%l2+%lo(.L_tcovCounters+112)],%l0
	addcc	%l1,1,%l1
	addx	%l0,%g0,%l0
	std	%l0,[%l2+%lo(.L_tcovCounters+112)]
	ld	[%l3+%lo(.XBkNwvCZ5cr9yjZ.sgesl.l)],%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	ld	[%l0-4],%f2
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.t),%l2
	st	%f2,[%l2+%lo(.XBkNwvCZ5cr9yjZ.sgesl.t)]

!  111	               b(l) = b(k)

	ld	[%l5+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)],%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	ld	[%l0-4],%f2
	ld	[%l3+%lo(.XBkNwvCZ5cr9yjZ.sgesl.l)],%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	st	%f2,[%l0-4]

!  112	               b(k) = t

	ld	[%l2+%lo(.XBkNwvCZ5cr9yjZ.sgesl.t)],%f2
	ld	[%l5+%lo(.XBkNwvCZ5cr9yjZ.sgesl.k)],%l0
	sll	%l0,2,%l1
	add	%l4,%l1,%l0
	st	%f2,[%l0-4]

!  113	   70       continue


	! block 20
.L59:

!  114	   80    continue

	sethi	%hi(.L_tcovCounters+120),%l2
	ldd	[%l2+%lo(.L_tcovCounters+120)],%l0
	addcc	%l1,1,%l1
	addx	%l0,%g0,%l0
	std	%l0,[%l2+%lo(.L_tcovCounters+120)]
.L60:
	sethi	%hi(.XBkNwvCZ5cr9yjZ.sgesl.kb),%l1
	ld	[%l1+%lo(.XBkNwvCZ5cr9yjZ.sgesl.kb)],%l0
	add	%l0,1,%l2
	st	%l2,[%l1+%lo(.XBkNwvCZ5cr9yjZ.sgesl.kb)]
	ld	[%fp-68],%l0
	cmp	%l2,%l0
	ble	.L82
	nop

	! block 21
.L86:
.L83:

!  115	   90    continue

	sethi	%hi(.L_tcovCounters+128),%l2
	ldd	[%l2+%lo(.L_tcovCounters+128)],%l0
	addcc	%l1,1,%l1
	addx	%l0,%g0,%l0
	std	%l0,[%l2+%lo(.L_tcovCounters+128)]
.L62:

!  116	  100 continue

.L50:

!  117	      return

	jmp	%i7+8
	restore

	! block 22
.L63:
.L87:
	jmp	%i7+8
	restore
	.size	sgesl_,(.-sgesl_)
	.align	8

	.section	".bss",#alloc,#write
	.align	4
	.global	.XBkNwvCZ5cr9yjZ.sgesl.nm1
.XBkNwvCZ5cr9yjZ.sgesl.nm1:
	.skip	4
	.type	.XBkNwvCZ5cr9yjZ.sgesl.nm1,#object
	.size	.XBkNwvCZ5cr9yjZ.sgesl.nm1,4
	.align	4
	.global	.XBkNwvCZ5cr9yjZ.sgesl.k
.XBkNwvCZ5cr9yjZ.sgesl.k:
	.skip	4
	.type	.XBkNwvCZ5cr9yjZ.sgesl.k,#object
	.size	.XBkNwvCZ5cr9yjZ.sgesl.k,4
	.align	4
	.global	.XBkNwvCZ5cr9yjZ.sgesl.l
.XBkNwvCZ5cr9yjZ.sgesl.l:
	.skip	4
	.type	.XBkNwvCZ5cr9yjZ.sgesl.l,#object
	.size	.XBkNwvCZ5cr9yjZ.sgesl.l,4
	.align	4
	.global	.XBkNwvCZ5cr9yjZ.sgesl.t
.XBkNwvCZ5cr9yjZ.sgesl.t:
	.skip	4
	.type	.XBkNwvCZ5cr9yjZ.sgesl.t,#object
	.size	.XBkNwvCZ5cr9yjZ.sgesl.t,4
	.align	4
	.global	.XBkNwvCZ5cr9yjZ.sgesl.kb
.XBkNwvCZ5cr9yjZ.sgesl.kb:
	.skip	4
	.type	.XBkNwvCZ5cr9yjZ.sgesl.kb,#object
	.size	.XBkNwvCZ5cr9yjZ.sgesl.kb,4

	.section	".rodata",#alloc
	.align	4
.L_cseg0:
	.word	0x1
	.type	.L_cseg0,#object
	.size	.L_cseg0,4

	.section	".data",#alloc,#write
Ddata.data:
	.skip	0
	.type	Ddata.data,#object
	.size	Ddata.data,0

	.section	".bss",#alloc,#write
Bbss.bss:
	.skip	0
	.type	Bbss.bss,#object
	.size	Bbss.bss,0

	.section	".rodata",#alloc
Drodata.rodata:
	.skip	0
	.type	Drodata.rodata,#object
	.size	Drodata.rodata,0

	.section	".data",#alloc,#write
	.align	4
happiness:
	.word	0x6f0
	.type	happiness,#object
	.size	happiness,4

	.section	".rodata",#alloc
	.align	4
CONST_ARG_1:
	.word	0x1
	.type	CONST_ARG_1,#object
	.size	CONST_ARG_1,4
	.align	4
CONST_ARG_2:
	.word	0x1
	.type	CONST_ARG_2,#object
	.size	CONST_ARG_2,4
	.align	4
CONST_ARG_3:
	.word	0x1
	.type	CONST_ARG_3,#object
	.size	CONST_ARG_3,4
	.align	4
CONST_ARG_4:
	.word	0x1
	.type	CONST_ARG_4,#object
	.size	CONST_ARG_4,4
	.align	4
CONST_ARG_5:
	.word	0x1
	.type	CONST_ARG_5,#object
	.size	CONST_ARG_5,4
	.align	4
CONST_ARG_6:
	.word	0x1
	.type	CONST_ARG_6,#object
	.size	CONST_ARG_6,4
	.align	4
CONST_ARG_7:
	.word	0x1
	.type	CONST_ARG_7,#object
	.size	CONST_ARG_7,4
	.align	4
CONST_ARG_8:
	.word	0x1
	.type	CONST_ARG_8,#object
	.size	CONST_ARG_8,4

	.section	".data",#alloc,#write
.L_tcovFileName:
	.ascii	"/home/ma/575.01/masc0670/diffusion/sgesl.d\000"
	.type	.L_tcovFileName,#object
	.size	.L_tcovFileName,43
	.align	8
.L_tcovCounters:
	.skip	136
	.type	.L_tcovCounters,#object
	.size	.L_tcovCounters,136
	.align	4
.L_tcovStruct:
	.skip	4
	.word	.L_tcovFileName
	.word	.L_tcovCounters
	.word	0x11
	.skip	4
	.type	.L_tcovStruct,#object
	.size	.L_tcovStruct,20

	.file	"sgesl.f"
	.xstabs	".stab.index","V=8.0 ; DBG_GEN=3.4.2 ; R=1.0;g;G=.XAkNwvCZ5cr9yjZ.",60,0,0,1034800729
	.xstabs	".stab.index","/home/ma/575.01/masc0670/diffusion/;/opt/SUNWspro/bin/../WS6U2/bin/f90 -a -S -qoption f90comp -h.XAkNwvCZ5cr9yjZ. sgesl.f",52,0,0,0