.section ".text",#alloc,#execinstr .align 8 .skip 16 ! block 0 .global sscal_ .type sscal_,2 sscal_: save %sp,-144,%sp sethi %hi(.L_tcovStruct),%l1 or %l1,%lo(.L_tcovStruct),%l1 ld [%l1+0],%l0 cmp %l0,0 bne .L_y0 nop ! block 28 mov %l1,%o0 call __bb_init_func nop ! block 1 .L_y0: .L39: st %i3,[%fp-16] ! block 2 .L40: ! File blas.f: ! 1 subroutine sscal(n,sa,sx,incx) ! 2 c ! 3 c scales a vector by a constant. ! 4 c uses unrolled loops for increment equal to 1. ! 5 c jack dongarra, linpack, 3/11/78. ! 6 c ! 7 real sa,sx(1) ! 8 integer i,incx,m,mp1,n,nincx ! 9 c ! 10 if(n.le.0)return 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 [%i0+0],%l4 cmp %l4,0 bg .L41 nop ! block 3 .L42: jmp %i7+8 restore ! block 4 .L41: ! 11 if(incx.eq.1)go to 20 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 [%fp-16],%l0 ld [%l0+0],%l3 cmp %l3,1 be .L32 nop ! block 5 .L43: ! 12 c ! 13 c code for increment not equal to 1 ! 14 c ! 15 nincx = n*incx 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)] smul %l4,%l3,%l1 sethi %hi(.XBkNwvCj5cr9iAa.sscal.nincx),%l0 st %l1,[%l0+%lo(.XBkNwvCj5cr9iAa.sscal.nincx)] ! 16 do 10 i = 1,nincx,incx ! block 6 .L27: mov %l1,%i4 st %l3,[%fp-24] mov 1,%l2 sethi %hi(.XBkNwvCj5cr9iAa.sscal.i),%l0 cmp %l3,0 bl .L47 st %l2,[%l0+%lo(.XBkNwvCj5cr9iAa.sscal.i)] ! block 7 .L48: cmp %l2,%l1 mov 0,%l7 ble,a 1f mov 1,%l7 1: ba .L46 nop ! block 8 .L47: cmp %l2,%l1 mov 0,%l7 bge,a 1f mov 1,%l7 1: ! block 9 .L46: cmp %l7,%g0 be .L45 nop ! block 10 .L49: .L44: ! 17 sx(i) = sa*sx(i) 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 [%i1+0],%f3 sethi %hi(.XBkNwvCj5cr9iAa.sscal.i),%l3 ld [%l3+%lo(.XBkNwvCj5cr9iAa.sscal.i)],%l0 sll %l0,2,%l1 add %i2,%l1,%l0 add %l0,-4,%l0 ld [%l0+0],%f2 fmuls %f3,%f2,%f2 st %f2,[%l0+0] ! 18 10 continue ! block 11 .L30: ld [%l3+%lo(.XBkNwvCj5cr9iAa.sscal.i)],%l0 ld [%fp-24],%l1 add %l0,%l1,%l2 cmp %l1,0 bl .L51 st %l2,[%l3+%lo(.XBkNwvCj5cr9iAa.sscal.i)] ! block 12 .L52: cmp %l2,%i4 mov 0,%i3 ble,a 1f mov 1,%i3 1: ba .L50 nop ! block 13 .L51: cmp %l2,%i4 mov 0,%i3 bge,a 1f mov 1,%i3 1: ! block 14 .L50: cmp %i3,%g0 bne .L44 nop ! block 15 .L53: .L45: ! 19 return 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)] jmp %i7+8 restore ! block 16 ! 20 c ! 21 c code for increment equal to 1 ! 22 c ! 23 c ! 24 c clean-up loop ! 25 c ! 26 20 m = mod(n,5) .L32: sra %l4,31,%g1 wr %g0,%g1,%y nop nop nop sdivcc %l4,5,%g1 bvs,a .+8 sethi %hi(0x80000000),%g1 smul %g1,5,%g1 sub %l4,%g1,%l1 sethi %hi(.XBkNwvCj5cr9iAa.sscal.m),%l3 st %l1,[%l3+%lo(.XBkNwvCj5cr9iAa.sscal.m)] ! 27 if( m .eq. 0 ) go to 40 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 [%l3+%lo(.XBkNwvCj5cr9iAa.sscal.m)],%l0 cmp %l0,0 be .L35 nop ! block 17 .L54: ! 28 do 30 i = 1,m 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)] .L28: sethi %hi(.XBkNwvCj5cr9iAa.sscal.m),%l0 ld [%l0+%lo(.XBkNwvCj5cr9iAa.sscal.m)],%i5 mov 1,%l1 sethi %hi(.XBkNwvCj5cr9iAa.sscal.i),%l0 cmp %l1,%i5 bg .L56 st %l1,[%l0+%lo(.XBkNwvCj5cr9iAa.sscal.i)] ! block 18 .L57: .L55: ! 29 sx(i) = sa*sx(i) 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 [%i1+0],%f3 sethi %hi(.XBkNwvCj5cr9iAa.sscal.i),%l3 ld [%l3+%lo(.XBkNwvCj5cr9iAa.sscal.i)],%l0 sll %l0,2,%l1 add %i2,%l1,%l0 add %l0,-4,%l0 ld [%l0+0],%f2 fmuls %f3,%f2,%f2 st %f2,[%l0+0] ! 30 30 continue ! block 19 .L33: ld [%l3+%lo(.XBkNwvCj5cr9iAa.sscal.i)],%l0 add %l0,1,%l1 cmp %l1,%i5 ble .L55 st %l1,[%l3+%lo(.XBkNwvCj5cr9iAa.sscal.i)] ! block 20 .L58: .L56: ! 31 if( n .lt. 5 ) return 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)] ld [%i0+0],%l0 cmp %l0,5 bge .L59 nop ! block 21 .L60: jmp %i7+8 restore ! block 22 .L59: ! 32 40 mp1 = m + 1 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)] .L35: sethi %hi(.XBkNwvCj5cr9iAa.sscal.m),%l0 ld [%l0+%lo(.XBkNwvCj5cr9iAa.sscal.m)],%l0 add %l0,1,%l2 sethi %hi(.XBkNwvCj5cr9iAa.sscal.mp1),%l0 st %l2,[%l0+%lo(.XBkNwvCj5cr9iAa.sscal.mp1)] ! 33 do 50 i = mp1,n,5 ! block 23 .L29: st %l2,[%fp-32] ld [%i0+0],%l1 st %l1,[%fp-36] sethi %hi(.XBkNwvCj5cr9iAa.sscal.i),%l0 cmp %l2,%l1 bg .L62 st %l2,[%l0+%lo(.XBkNwvCj5cr9iAa.sscal.i)] ! block 24 .L63: .L61: ! 34 sx(i) = sa*sx(i) 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)] ld [%i1+0],%f3 sethi %hi(.XBkNwvCj5cr9iAa.sscal.i),%l5 ld [%l5+%lo(.XBkNwvCj5cr9iAa.sscal.i)],%l0 sll %l0,2,%l1 add %i2,%l1,%l0 add %l0,-4,%l0 ld [%l0+0],%f2 fmuls %f3,%f2,%f2 st %f2,[%l0+0] ! 35 sx(i + 1) = sa*sx(i + 1) ld [%i1+0],%f3 ld [%l5+%lo(.XBkNwvCj5cr9iAa.sscal.i)],%l0 add %l0,1,%l0 sll %l0,2,%l1 add %i2,%l1,%l0 add %l0,-4,%l0 ld [%l0+0],%f2 fmuls %f3,%f2,%f2 st %f2,[%l0+0] ! 36 sx(i + 2) = sa*sx(i + 2) ld [%i1+0],%f3 ld [%l5+%lo(.XBkNwvCj5cr9iAa.sscal.i)],%l0 add %l0,2,%l0 sll %l0,2,%l1 add %i2,%l1,%l0 add %l0,-4,%l0 ld [%l0+0],%f2 fmuls %f3,%f2,%f2 st %f2,[%l0+0] ! 37 sx(i + 3) = sa*sx(i + 3) ld [%i1+0],%f3 ld [%l5+%lo(.XBkNwvCj5cr9iAa.sscal.i)],%l0 add %l0,3,%l0 sll %l0,2,%l1 add %i2,%l1,%l0 add %l0,-4,%l0 ld [%l0+0],%f2 fmuls %f3,%f2,%f2 st %f2,[%l0+0] ! 38 sx(i + 4) = sa*sx(i + 4) ld [%i1+0],%f3 ld [%l5+%lo(.XBkNwvCj5cr9iAa.sscal.i)],%l0 add %l0,4,%l0 sll %l0,2,%l1 add %i2,%l1,%l0 add %l0,-4,%l0 ld [%l0+0],%f2 fmuls %f3,%f2,%f2 st %f2,[%l0+0] ! 39 50 continue ! block 25 .L36: ld [%l5+%lo(.XBkNwvCj5cr9iAa.sscal.i)],%l0 add %l0,5,%l1 st %l1,[%l5+%lo(.XBkNwvCj5cr9iAa.sscal.i)] ld [%fp-36],%l0 cmp %l1,%l0 ble .L61 nop ! block 26 .L64: .L62: ! 40 return 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)] jmp %i7+8 restore ! block 27 .L38: .L65: jmp %i7+8 restore .size sscal_,(.-sscal_) .align 8 .align 8 .skip 16 ! block 0 .global isamax_ .type isamax_,2 isamax_: save %sp,-120,%sp sethi %hi(.L_tcovStruct),%l1 or %l1,%lo(.L_tcovStruct),%l1 ld [%l1+0],%l0 cmp %l0,0 bne .L_y1 nop ! block 22 mov %l1,%o0 call __bb_init_func nop ! block 1 .L_y1: .L102: ! block 2 .L103: ! File blas.f: ! 41 end ! 42 integer function isamax(n,sx,incx) ! 43 c ! 44 c finds the index of element having max. absolute value. ! 45 c jack dongarra, linpack, 3/11/78. ! 46 c ! 47 real sx(1),smax ! 48 integer i,incx,ix,n ! 49 c ! 50 isamax = 0 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)] mov %g0,%i5 ! 51 if( n .lt. 1 ) return ld [%i0+0],%l6 cmp %l6,1 bge .L104 nop ! block 3 .L105: ba .L101 nop ! block 4 .L104: ! 52 isamax = 1 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)] mov 1,%i5 ! 53 if(n.eq.1)return cmp %l6,1 bne .L106 nop ! block 5 .L107: ba .L101 nop ! block 6 .L106: ! 54 if(incx.eq.1)go to 20 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 [%i2+0],%l3 cmp %l3,1 be .L97 nop ! block 7 .L108: ! 55 c ! 56 c code for increment not equal to 1 ! 57 c ! 58 ix = 1 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)] mov 1,%l1 sethi %hi(.XBkNwvCj5cr9iAa.isamax.ix),%l2 st %l1,[%l2+%lo(.XBkNwvCj5cr9iAa.isamax.ix)] ! 59 smax = abs(sx(1)) ld [%i1+0],%f2 fabss %f2,%f2 sethi %hi(.XBkNwvCj5cr9iAa.isamax.smax),%l0 st %f2,[%l0+%lo(.XBkNwvCj5cr9iAa.isamax.smax)] ! 60 ix = ix + incx ld [%l2+%lo(.XBkNwvCj5cr9iAa.isamax.ix)],%l0 add %l0,%l3,%l0 st %l0,[%l2+%lo(.XBkNwvCj5cr9iAa.isamax.ix)] ! 61 do 10 i = 2,n ! block 8 .L93: mov %l6,%i3 mov 2,%l1 sethi %hi(.XBkNwvCj5cr9iAa.isamax.i),%l0 cmp %l1,%l6 bg .L110 st %l1,[%l0+%lo(.XBkNwvCj5cr9iAa.isamax.i)] ! block 9 .L111: .L109: ! 62 if(abs(sx(ix)).le.smax) go to 5 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)] mov %i1,%l5 sethi %hi(.XBkNwvCj5cr9iAa.isamax.ix),%l3 ld [%l3+%lo(.XBkNwvCj5cr9iAa.isamax.ix)],%l0 sll %l0,2,%l1 add %l5,%l1,%l0 ld [%l0-4],%f2 fabss %f2,%f3 sethi %hi(.XBkNwvCj5cr9iAa.isamax.smax),%l4 ld [%l4+%lo(.XBkNwvCj5cr9iAa.isamax.smax)],%f2 fcmpes %f3,%f2 nop fble .L100 nop ! block 10 .L112: ! 63 isamax = i sethi %hi(.L_tcovCounters+136),%l2 ldd [%l2+%lo(.L_tcovCounters+136)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+136)] sethi %hi(.XBkNwvCj5cr9iAa.isamax.i),%l0 ld [%l0+%lo(.XBkNwvCj5cr9iAa.isamax.i)],%i5 ! 64 smax = abs(sx(ix)) ld [%l3+%lo(.XBkNwvCj5cr9iAa.isamax.ix)],%l0 sll %l0,2,%l1 add %l5,%l1,%l0 ld [%l0-4],%f2 fabss %f2,%f2 st %f2,[%l4+%lo(.XBkNwvCj5cr9iAa.isamax.smax)] ! 65 5 ix = ix + incx ! block 11 .L100: sethi %hi(.XBkNwvCj5cr9iAa.isamax.ix),%l3 ld [%l3+%lo(.XBkNwvCj5cr9iAa.isamax.ix)],%l2 ld [%i2+0],%l1 add %l2,%l1,%l0 st %l0,[%l3+%lo(.XBkNwvCj5cr9iAa.isamax.ix)] ! 66 10 continue sethi %hi(.L_tcovCounters+144),%l2 ldd [%l2+%lo(.L_tcovCounters+144)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+144)] ! block 12 .L95: sethi %hi(.XBkNwvCj5cr9iAa.isamax.i),%l1 ld [%l1+%lo(.XBkNwvCj5cr9iAa.isamax.i)],%l0 add %l0,1,%l2 cmp %l2,%i3 ble .L109 st %l2,[%l1+%lo(.XBkNwvCj5cr9iAa.isamax.i)] ! block 13 .L113: .L110: ! 67 return sethi %hi(.L_tcovCounters+152),%l2 ldd [%l2+%lo(.L_tcovCounters+152)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+152)] ba .L101 nop ! block 14 ! 68 c ! 69 c code for increment equal to 1 ! 70 c ! 71 20 smax = abs(sx(1)) .L97: ld [%i1+0],%f2 fabss %f2,%f2 sethi %hi(.XBkNwvCj5cr9iAa.isamax.smax),%l0 st %f2,[%l0+%lo(.XBkNwvCj5cr9iAa.isamax.smax)] ! 72 do 30 i = 2,n sethi %hi(.L_tcovCounters+160),%l2 ldd [%l2+%lo(.L_tcovCounters+160)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+160)] ! block 15 .L94: mov %l6,%i4 mov 2,%l1 sethi %hi(.XBkNwvCj5cr9iAa.isamax.i),%l0 cmp %l1,%l6 bg .L115 st %l1,[%l0+%lo(.XBkNwvCj5cr9iAa.isamax.i)] ! block 16 .L116: .L114: ! 73 if(abs(sx(i)).le.smax) go to 30 sethi %hi(.L_tcovCounters+168),%l2 ldd [%l2+%lo(.L_tcovCounters+168)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+168)] mov %i1,%l5 sethi %hi(.XBkNwvCj5cr9iAa.isamax.i),%l3 ld [%l3+%lo(.XBkNwvCj5cr9iAa.isamax.i)],%l0 sll %l0,2,%l1 add %l5,%l1,%l0 ld [%l0-4],%f2 fabss %f2,%f3 sethi %hi(.XBkNwvCj5cr9iAa.isamax.smax),%l4 ld [%l4+%lo(.XBkNwvCj5cr9iAa.isamax.smax)],%f2 fcmpes %f3,%f2 nop fble .L98 nop ! block 17 .L117: ! 74 isamax = i sethi %hi(.L_tcovCounters+176),%l2 ldd [%l2+%lo(.L_tcovCounters+176)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+176)] ld [%l3+%lo(.XBkNwvCj5cr9iAa.isamax.i)],%i5 ! 75 smax = abs(sx(i)) sll %i5,2,%l1 add %l5,%l1,%l0 ld [%l0-4],%f2 fabss %f2,%f2 st %f2,[%l4+%lo(.XBkNwvCj5cr9iAa.isamax.smax)] ! 76 30 continue ! block 18 .L98: sethi %hi(.XBkNwvCj5cr9iAa.isamax.i),%l1 ld [%l1+%lo(.XBkNwvCj5cr9iAa.isamax.i)],%l0 add %l0,1,%l2 cmp %l2,%i4 ble .L114 st %l2,[%l1+%lo(.XBkNwvCj5cr9iAa.isamax.i)] ! block 19 .L118: .L115: ! 77 return sethi %hi(.L_tcovCounters+184),%l2 ldd [%l2+%lo(.L_tcovCounters+184)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+184)] ba .L101 nop ! block 20 .L101: mov %i5,%i0 jmp %i7+8 restore ! block 21 .L119: jmp %i7+8 restore .size isamax_,(.-isamax_) .align 8 .align 8 .skip 16 ! block 0 .global sasum_ .type sasum_,2 sasum_: save %sp,-144,%sp sethi %hi(.L_tcovStruct),%l1 or %l1,%lo(.L_tcovStruct),%l1 ld [%l1+0],%l0 cmp %l0,0 bne .L_y2 nop ! block 28 mov %l1,%o0 call __bb_init_func nop ! block 1 .L_y2: .L159: st %i2,[%fp-12] ! block 2 .L160: ! File blas.f: ! 78 end ! 79 real function sasum(n,sx,incx) ! 80 c ! 81 c takes the sum of the absolute values. ! 82 c uses unrolled loops for increment equal to one. ! 83 c jack dongarra, linpack, 3/11/78. ! 84 c ! 85 real sx(1),stemp ! 86 integer i,incx,m,mp1,n,nincx ! 87 c ! 88 sasum = 0.0e0 sethi %hi(.L_tcovCounters+192),%l2 ldd [%l2+%lo(.L_tcovCounters+192)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+192)] sethi %hi(.L_cseg0),%l0 ld [%l0+%lo(.L_cseg0)],%f2 st %f2,[%fp-16] ! 89 stemp = 0.0e0 sethi %hi(.XBkNwvCj5cr9iAa.sasum.stemp),%l0 st %f2,[%l0+%lo(.XBkNwvCj5cr9iAa.sasum.stemp)] ! 90 if(n.le.0)return ld [%i0+0],%l4 cmp %l4,0 bg .L161 nop ! block 3 .L162: ba .L158 nop ! block 4 .L161: ! 91 if(incx.eq.1)go to 20 sethi %hi(.L_tcovCounters+200),%l2 ldd [%l2+%lo(.L_tcovCounters+200)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+200)] ld [%fp-12],%l0 ld [%l0+0],%l3 cmp %l3,1 be .L151 nop ! block 5 .L163: ! 92 c ! 93 c code for increment not equal to 1 ! 94 c ! 95 nincx = n*incx sethi %hi(.L_tcovCounters+208),%l2 ldd [%l2+%lo(.L_tcovCounters+208)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+208)] smul %l4,%l3,%l1 sethi %hi(.XBkNwvCj5cr9iAa.sasum.nincx),%l0 st %l1,[%l0+%lo(.XBkNwvCj5cr9iAa.sasum.nincx)] ! 96 do 10 i = 1,nincx,incx ! block 6 .L146: mov %l1,%i4 st %l3,[%fp-24] mov 1,%l2 sethi %hi(.XBkNwvCj5cr9iAa.sasum.i),%l0 cmp %l3,0 bl .L167 st %l2,[%l0+%lo(.XBkNwvCj5cr9iAa.sasum.i)] ! block 7 .L168: cmp %l2,%l1 mov 0,%i2 ble,a 1f mov 1,%i2 1: ba .L166 nop ! block 8 .L167: cmp %l2,%l1 mov 0,%i2 bge,a 1f mov 1,%i2 1: ! block 9 .L166: cmp %i2,%g0 be .L165 nop ! block 10 .L169: .L164: ! 97 stemp = stemp + abs(sx(i)) sethi %hi(.L_tcovCounters+216),%l2 ldd [%l2+%lo(.L_tcovCounters+216)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+216)] sethi %hi(.XBkNwvCj5cr9iAa.sasum.stemp),%l3 ld [%l3+%lo(.XBkNwvCj5cr9iAa.sasum.stemp)],%f3 sethi %hi(.XBkNwvCj5cr9iAa.sasum.i),%l5 ld [%l5+%lo(.XBkNwvCj5cr9iAa.sasum.i)],%l0 sll %l0,2,%l1 add %i1,%l1,%l0 ld [%l0-4],%f2 fabss %f2,%f2 fadds %f3,%f2,%f2 st %f2,[%l3+%lo(.XBkNwvCj5cr9iAa.sasum.stemp)] ! 98 10 continue ! block 11 .L149: ld [%l5+%lo(.XBkNwvCj5cr9iAa.sasum.i)],%l0 ld [%fp-24],%l1 add %l0,%l1,%l2 cmp %l1,0 bl .L171 st %l2,[%l5+%lo(.XBkNwvCj5cr9iAa.sasum.i)] ! block 12 .L172: cmp %l2,%i4 mov 0,%i3 ble,a 1f mov 1,%i3 1: ba .L170 nop ! block 13 .L171: cmp %l2,%i4 mov 0,%i3 bge,a 1f mov 1,%i3 1: ! block 14 .L170: cmp %i3,%g0 bne .L164 nop ! block 15 .L173: .L165: ! 99 sasum = stemp sethi %hi(.L_tcovCounters+224),%l2 ldd [%l2+%lo(.L_tcovCounters+224)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+224)] sethi %hi(.XBkNwvCj5cr9iAa.sasum.stemp),%l0 ld [%l0+%lo(.XBkNwvCj5cr9iAa.sasum.stemp)],%f2 ! 100 return ba .L158 st %f2,[%fp-16] ! block 16 ! 101 c ! 102 c code for increment equal to 1 ! 103 c ! 104 c ! 105 c clean-up loop ! 106 c ! 107 20 m = mod(n,6) .L151: sra %l4,31,%g1 wr %g0,%g1,%y nop nop nop sdivcc %l4,6,%g1 bvs,a .+8 sethi %hi(0x80000000),%g1 smul %g1,6,%g1 sub %l4,%g1,%l1 sethi %hi(.XBkNwvCj5cr9iAa.sasum.m),%l3 st %l1,[%l3+%lo(.XBkNwvCj5cr9iAa.sasum.m)] ! 108 if( m .eq. 0 ) go to 40 sethi %hi(.L_tcovCounters+232),%l2 ldd [%l2+%lo(.L_tcovCounters+232)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+232)] ld [%l3+%lo(.XBkNwvCj5cr9iAa.sasum.m)],%l0 cmp %l0,0 be .L154 nop ! block 17 .L174: ! 109 do 30 i = 1,m sethi %hi(.L_tcovCounters+240),%l2 ldd [%l2+%lo(.L_tcovCounters+240)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+240)] .L147: sethi %hi(.XBkNwvCj5cr9iAa.sasum.m),%l0 ld [%l0+%lo(.XBkNwvCj5cr9iAa.sasum.m)],%i5 mov 1,%l1 sethi %hi(.XBkNwvCj5cr9iAa.sasum.i),%l0 cmp %l1,%i5 bg .L176 st %l1,[%l0+%lo(.XBkNwvCj5cr9iAa.sasum.i)] ! block 18 .L177: .L175: ! 110 stemp = stemp + abs(sx(i)) sethi %hi(.L_tcovCounters+248),%l2 ldd [%l2+%lo(.L_tcovCounters+248)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+248)] sethi %hi(.XBkNwvCj5cr9iAa.sasum.stemp),%l3 ld [%l3+%lo(.XBkNwvCj5cr9iAa.sasum.stemp)],%f3 sethi %hi(.XBkNwvCj5cr9iAa.sasum.i),%l5 ld [%l5+%lo(.XBkNwvCj5cr9iAa.sasum.i)],%l0 sll %l0,2,%l1 add %i1,%l1,%l0 ld [%l0-4],%f2 fabss %f2,%f2 fadds %f3,%f2,%f2 st %f2,[%l3+%lo(.XBkNwvCj5cr9iAa.sasum.stemp)] ! 111 30 continue ! block 19 .L152: ld [%l5+%lo(.XBkNwvCj5cr9iAa.sasum.i)],%l0 add %l0,1,%l1 cmp %l1,%i5 ble .L175 st %l1,[%l5+%lo(.XBkNwvCj5cr9iAa.sasum.i)] ! block 20 .L178: .L176: ! 112 if( n .lt. 6 ) go to 60 sethi %hi(.L_tcovCounters+256),%l2 ldd [%l2+%lo(.L_tcovCounters+256)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+256)] ld [%i0+0],%l0 cmp %l0,6 bl .L157 nop ! block 21 .L179: ! 113 40 mp1 = m + 1 sethi %hi(.L_tcovCounters+264),%l2 ldd [%l2+%lo(.L_tcovCounters+264)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+264)] .L154: sethi %hi(.XBkNwvCj5cr9iAa.sasum.m),%l0 ld [%l0+%lo(.XBkNwvCj5cr9iAa.sasum.m)],%l0 add %l0,1,%l2 sethi %hi(.XBkNwvCj5cr9iAa.sasum.mp1),%l0 st %l2,[%l0+%lo(.XBkNwvCj5cr9iAa.sasum.mp1)] ! 114 do 50 i = mp1,n,6 ! block 22 .L148: st %l2,[%fp-32] ld [%i0+0],%l1 st %l1,[%fp-36] sethi %hi(.XBkNwvCj5cr9iAa.sasum.i),%l0 cmp %l2,%l1 bg .L181 st %l2,[%l0+%lo(.XBkNwvCj5cr9iAa.sasum.i)] ! block 23 .L182: .L180: ! 115 stemp = stemp + abs(sx(i)) + abs(sx(i + 1)) + abs(sx(i + 2)) sethi %hi(.L_tcovCounters+272),%l2 ldd [%l2+%lo(.L_tcovCounters+272)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+272)] sethi %hi(.XBkNwvCj5cr9iAa.sasum.stemp),%l5 ld [%l5+%lo(.XBkNwvCj5cr9iAa.sasum.stemp)],%f3 sethi %hi(.XBkNwvCj5cr9iAa.sasum.i),%l6 ld [%l6+%lo(.XBkNwvCj5cr9iAa.sasum.i)],%l2 sll %l2,2,%l1 add %i1,%l1,%l0 ld [%l0-4],%f2 fabss %f2,%f2 fadds %f3,%f2,%f3 add %l2,1,%l0 sll %l0,2,%l1 add %i1,%l1,%l0 ld [%l0-4],%f2 fabss %f2,%f2 fadds %f3,%f2,%f3 add %l2,2,%l0 sll %l0,2,%l1 add %i1,%l1,%l0 ld [%l0-4],%f2 fabss %f2,%f2 fadds %f3,%f2,%f3 add %l2,3,%l0 sll %l0,2,%l1 add %i1,%l1,%l0 ld [%l0-4],%f2 fabss %f2,%f2 fadds %f3,%f2,%f3 add %l2,4,%l0 sll %l0,2,%l1 add %i1,%l1,%l0 ld [%l0-4],%f2 fabss %f2,%f2 fadds %f3,%f2,%f3 add %l2,5,%l0 sll %l0,2,%l1 add %i1,%l1,%l0 ld [%l0-4],%f2 fabss %f2,%f2 fadds %f3,%f2,%f2 st %f2,[%l5+%lo(.XBkNwvCj5cr9iAa.sasum.stemp)] ! 116 * + abs(sx(i + 3)) + abs(sx(i + 4)) + abs(sx(i + 5)) ! 117 50 continue ! block 24 .L155: ld [%l6+%lo(.XBkNwvCj5cr9iAa.sasum.i)],%l0 add %l0,6,%l1 st %l1,[%l6+%lo(.XBkNwvCj5cr9iAa.sasum.i)] ld [%fp-36],%l0 cmp %l1,%l0 ble .L180 nop ! block 25 .L183: .L181: ! 118 60 sasum = stemp sethi %hi(.L_tcovCounters+280),%l2 ldd [%l2+%lo(.L_tcovCounters+280)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+280)] .L157: sethi %hi(.XBkNwvCj5cr9iAa.sasum.stemp),%l0 ld [%l0+%lo(.XBkNwvCj5cr9iAa.sasum.stemp)],%f2 ! 119 return ba .L158 st %f2,[%fp-16] ! block 26 .L158: ld [%fp-16],%f0 jmp %i7+8 restore ! block 27 .L184: jmp %i7+8 restore .size sasum_,(.-sasum_) .align 8 .align 8 .skip 16 ! block 0 .global saxpy_ .type saxpy_,2 saxpy_: save %sp,-144,%sp sethi %hi(.L_tcovStruct),%l1 or %l1,%lo(.L_tcovStruct),%l1 ld [%l1+0],%l0 cmp %l0,0 bne .L_y3 nop ! block 31 mov %l1,%o0 call __bb_init_func nop ! block 1 .L_y3: .L231: st %i0,[%fp-4] st %i1,[%fp-8] st %i2,[%fp-12] st %i3,[%fp-16] st %i4,[%fp-20] st %i5,[%fp-24] ! block 2 .L232: ! File blas.f: ! 120 end ! 121 subroutine saxpy(n,sa,sx,incx,sy,incy) ! 122 c ! 123 c constant times a vector plus a vector. ! 124 c uses unrolled loop for increments equal to one. ! 125 c jack dongarra, linpack, 3/11/78. ! 126 c ! 127 real sx(1),sy(1),sa ! 128 integer i,incx,incy,ix,iy,m,mp1,n ! 129 c ! 130 if(n.le.0)return sethi %hi(.L_tcovCounters+288),%l2 ldd [%l2+%lo(.L_tcovCounters+288)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+288)] ld [%fp-4],%l0 ld [%l0+0],%l0 cmp %l0,0 bg .L233 nop ! block 3 .L234: jmp %i7+8 restore ! block 4 .L233: ! 131 if (sa .eq. 0.0) return sethi %hi(.L_tcovCounters+296),%l2 ldd [%l2+%lo(.L_tcovCounters+296)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+296)] ld [%fp-8],%l0 ld [%l0+0],%f3 sethi %hi(.L_cseg0),%l0 ld [%l0+%lo(.L_cseg0)],%f2 fcmps %f3,%f2 nop fbne .L235 nop ! block 5 .L236: jmp %i7+8 restore ! block 6 .L235: ! 132 if(incx.eq.1.and.incy.eq.1)go to 20 sethi %hi(.L_tcovCounters+304),%l2 ldd [%l2+%lo(.L_tcovCounters+304)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+304)] mov 1,%l0 st %l0,[%fp-28] ld [%fp-16],%l0 ld [%l0+0],%l0 subcc %l0,1,%g0 mov 0,%l0 be,a 1f mov 1,%l0 1: cmp %l0,0 bne .L237 nop ! block 7 .L238: ba .L239 st %g0,[%fp-28] ! block 8 .L237: ld [%fp-24],%l0 ld [%l0+0],%l0 subcc %l0,1,%g0 mov 0,%l0 be,a 1f mov 1,%l0 1: cmp %l0,0 bne .L240 nop ! block 9 .L241: st %g0,[%fp-28] ! block 10 .L240: .L239: ld [%fp-28],%l0 cmp %l0,%g0 bne .L224 nop ! block 11 .L242: ! 133 c ! 134 c code for unequal increments or equal increments ! 135 c not equal to 1 ! 136 c ! 137 ix = 1 sethi %hi(.L_tcovCounters+312),%l2 ldd [%l2+%lo(.L_tcovCounters+312)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+312)] mov 1,%l1 sethi %hi(.XBkNwvCj5cr9iAa.saxpy.ix),%l2 st %l1,[%l2+%lo(.XBkNwvCj5cr9iAa.saxpy.ix)] ! 138 iy = 1 mov 1,%l1 sethi %hi(.XBkNwvCj5cr9iAa.saxpy.iy),%l0 st %l1,[%l0+%lo(.XBkNwvCj5cr9iAa.saxpy.iy)] ! 139 if(incx.lt.0)ix = (-n+1)*incx + 1 ld [%fp-16],%l0 ld [%l0+0],%l1 cmp %l1,0 bge .L243 nop ! block 12 .L244: ld [%fp-4],%l0 ld [%l0+0],%l0 neg %l0,%l0 add %l0,1,%l0 smul %l0,%l1,%l0 add %l0,1,%l0 st %l0,[%l2+%lo(.XBkNwvCj5cr9iAa.saxpy.ix)] ! block 13 .L243: ! 140 if(incy.lt.0)iy = (-n+1)*incy + 1 sethi %hi(.L_tcovCounters+320),%l2 ldd [%l2+%lo(.L_tcovCounters+320)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+320)] ld [%fp-24],%l0 ld [%l0+0],%l1 cmp %l1,0 bge .L245 nop ! block 14 .L246: ld [%fp-4],%l0 ld [%l0+0],%l0 neg %l0,%l0 add %l0,1,%l0 smul %l0,%l1,%l0 add %l0,1,%l1 sethi %hi(.XBkNwvCj5cr9iAa.saxpy.iy),%l0 st %l1,[%l0+%lo(.XBkNwvCj5cr9iAa.saxpy.iy)] ! block 15 .L245: ! 141 do 10 i = 1,n sethi %hi(.L_tcovCounters+328),%l2 ldd [%l2+%lo(.L_tcovCounters+328)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+328)] .L219: ld [%fp-4],%l0 ld [%l0+0],%l1 st %l1,[%fp-32] mov 1,%l2 sethi %hi(.XBkNwvCj5cr9iAa.saxpy.i),%l0 cmp %l2,%l1 bg .L248 st %l2,[%l0+%lo(.XBkNwvCj5cr9iAa.saxpy.i)] ! block 16 .L249: .L247: ! 142 sy(iy) = sy(iy) + sa*sx(ix) sethi %hi(.L_tcovCounters+336),%l2 ldd [%l2+%lo(.L_tcovCounters+336)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+336)] ld [%fp-20],%l2 sethi %hi(.XBkNwvCj5cr9iAa.saxpy.iy),%l6 ld [%l6+%lo(.XBkNwvCj5cr9iAa.saxpy.iy)],%l0 sll %l0,2,%l1 add %l2,%l1,%l0 add %l0,-4,%l3 ld [%l3+0],%f4 ld [%fp-8],%l0 ld [%l0+0],%f3 ld [%fp-12],%l2 sethi %hi(.XBkNwvCj5cr9iAa.saxpy.ix),%l5 ld [%l5+%lo(.XBkNwvCj5cr9iAa.saxpy.ix)],%l0 sll %l0,2,%l1 add %l2,%l1,%l0 ld [%l0-4],%f2 fmuls %f3,%f2,%f2 fadds %f4,%f2,%f2 st %f2,[%l3+0] ! 143 ix = ix + incx ld [%l5+%lo(.XBkNwvCj5cr9iAa.saxpy.ix)],%l2 ld [%fp-16],%l0 ld [%l0+0],%l1 add %l2,%l1,%l0 st %l0,[%l5+%lo(.XBkNwvCj5cr9iAa.saxpy.ix)] ! 144 iy = iy + incy ld [%l6+%lo(.XBkNwvCj5cr9iAa.saxpy.iy)],%l2 ld [%fp-24],%l0 ld [%l0+0],%l1 add %l2,%l1,%l0 st %l0,[%l6+%lo(.XBkNwvCj5cr9iAa.saxpy.iy)] ! 145 10 continue ! block 17 .L222: sethi %hi(.XBkNwvCj5cr9iAa.saxpy.i),%l1 ld [%l1+%lo(.XBkNwvCj5cr9iAa.saxpy.i)],%l0 add %l0,1,%l2 st %l2,[%l1+%lo(.XBkNwvCj5cr9iAa.saxpy.i)] ld [%fp-32],%l0 cmp %l2,%l0 ble .L247 nop ! block 18 .L250: .L248: ! 146 return sethi %hi(.L_tcovCounters+344),%l2 ldd [%l2+%lo(.L_tcovCounters+344)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+344)] jmp %i7+8 restore ! block 19 ! 147 c ! 148 c code for both increments equal to 1 ! 149 c ! 150 c ! 151 c clean-up loop ! 152 c ! 153 20 m = mod(n,4) .L224: ld [%fp-4],%l0 ld [%l0+0],%l2 sra %l2,31,%l0 and %l0,3,%l1 add %l2,%l1,%l0 and %l0,-4,%l1 sub %l2,%l1,%l1 sethi %hi(.XBkNwvCj5cr9iAa.saxpy.m),%l3 st %l1,[%l3+%lo(.XBkNwvCj5cr9iAa.saxpy.m)] ! 154 if( m .eq. 0 ) go to 40 sethi %hi(.L_tcovCounters+352),%l2 ldd [%l2+%lo(.L_tcovCounters+352)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+352)] ld [%l3+%lo(.XBkNwvCj5cr9iAa.saxpy.m)],%l0 cmp %l0,0 be .L227 nop ! block 20 .L251: ! 155 do 30 i = 1,m sethi %hi(.L_tcovCounters+360),%l2 ldd [%l2+%lo(.L_tcovCounters+360)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+360)] .L220: sethi %hi(.XBkNwvCj5cr9iAa.saxpy.m),%l0 ld [%l0+%lo(.XBkNwvCj5cr9iAa.saxpy.m)],%l0 st %l0,[%fp-36] mov 1,%l1 sethi %hi(.XBkNwvCj5cr9iAa.saxpy.i),%l0 st %l1,[%l0+%lo(.XBkNwvCj5cr9iAa.saxpy.i)] ld [%fp-36],%l0 cmp %l1,%l0 bg .L253 nop ! block 21 .L254: .L252: ! 156 sy(i) = sy(i) + sa*sx(i) sethi %hi(.L_tcovCounters+368),%l2 ldd [%l2+%lo(.L_tcovCounters+368)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+368)] ld [%fp-20],%l1 sethi %hi(.XBkNwvCj5cr9iAa.saxpy.i),%l3 ld [%l3+%lo(.XBkNwvCj5cr9iAa.saxpy.i)],%l0 sll %l0,2,%l2 add %l1,%l2,%l0 add %l0,-4,%l1 ld [%l1+0],%f4 ld [%fp-8],%l0 ld [%l0+0],%f3 ld [%fp-12],%l0 add %l0,%l2,%l0 ld [%l0-4],%f2 fmuls %f3,%f2,%f2 fadds %f4,%f2,%f2 st %f2,[%l1+0] ! 157 30 continue ! block 22 .L225: ld [%l3+%lo(.XBkNwvCj5cr9iAa.saxpy.i)],%l0 add %l0,1,%l1 st %l1,[%l3+%lo(.XBkNwvCj5cr9iAa.saxpy.i)] ld [%fp-36],%l0 cmp %l1,%l0 ble .L252 nop ! block 23 .L255: .L253: ! 158 if( n .lt. 4 ) return sethi %hi(.L_tcovCounters+376),%l2 ldd [%l2+%lo(.L_tcovCounters+376)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+376)] ld [%fp-4],%l0 ld [%l0+0],%l0 cmp %l0,4 bge .L256 nop ! block 24 .L257: jmp %i7+8 restore ! block 25 .L256: ! 159 40 mp1 = m + 1 sethi %hi(.L_tcovCounters+384),%l2 ldd [%l2+%lo(.L_tcovCounters+384)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+384)] .L227: sethi %hi(.XBkNwvCj5cr9iAa.saxpy.m),%l0 ld [%l0+%lo(.XBkNwvCj5cr9iAa.saxpy.m)],%l0 add %l0,1,%l2 sethi %hi(.XBkNwvCj5cr9iAa.saxpy.mp1),%l0 st %l2,[%l0+%lo(.XBkNwvCj5cr9iAa.saxpy.mp1)] ! 160 do 50 i = mp1,n,4 ! block 26 .L221: st %l2,[%fp-40] ld [%fp-4],%l0 ld [%l0+0],%l1 st %l1,[%fp-44] sethi %hi(.XBkNwvCj5cr9iAa.saxpy.i),%l0 cmp %l2,%l1 bg .L259 st %l2,[%l0+%lo(.XBkNwvCj5cr9iAa.saxpy.i)] ! block 27 .L260: .L258: ! 161 sy(i) = sy(i) + sa*sx(i) sethi %hi(.L_tcovCounters+392),%l2 ldd [%l2+%lo(.L_tcovCounters+392)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+392)] ld [%fp-20],%l3 sethi %hi(.XBkNwvCj5cr9iAa.saxpy.i),%l7 ld [%l7+%lo(.XBkNwvCj5cr9iAa.saxpy.i)],%l0 sll %l0,2,%l1 add %l3,%l1,%l0 add %l0,-4,%l2 ld [%l2+0],%f4 ld [%fp-8],%l5 ld [%l5+0],%f3 ld [%fp-12],%l6 add %l6,%l1,%l0 ld [%l0-4],%f2 fmuls %f3,%f2,%f2 fadds %f4,%f2,%f2 st %f2,[%l2+0] ! 162 sy(i + 1) = sy(i + 1) + sa*sx(i + 1) ld [%l7+%lo(.XBkNwvCj5cr9iAa.saxpy.i)],%l0 add %l0,1,%l0 sll %l0,2,%l1 add %l3,%l1,%l0 add %l0,-4,%l2 ld [%l2+0],%f4 ld [%l5+0],%f3 add %l6,%l1,%l0 ld [%l0-4],%f2 fmuls %f3,%f2,%f2 fadds %f4,%f2,%f2 st %f2,[%l2+0] ! 163 sy(i + 2) = sy(i + 2) + sa*sx(i + 2) ld [%l7+%lo(.XBkNwvCj5cr9iAa.saxpy.i)],%l0 add %l0,2,%l0 sll %l0,2,%l1 add %l3,%l1,%l0 add %l0,-4,%l2 ld [%l2+0],%f4 ld [%l5+0],%f3 add %l6,%l1,%l0 ld [%l0-4],%f2 fmuls %f3,%f2,%f2 fadds %f4,%f2,%f2 st %f2,[%l2+0] ! 164 sy(i + 3) = sy(i + 3) + sa*sx(i + 3) ld [%l7+%lo(.XBkNwvCj5cr9iAa.saxpy.i)],%l0 add %l0,3,%l0 sll %l0,2,%l1 add %l3,%l1,%l0 add %l0,-4,%l2 ld [%l2+0],%f4 ld [%l5+0],%f3 add %l6,%l1,%l0 ld [%l0-4],%f2 fmuls %f3,%f2,%f2 fadds %f4,%f2,%f2 st %f2,[%l2+0] ! 165 50 continue ! block 28 .L228: ld [%l7+%lo(.XBkNwvCj5cr9iAa.saxpy.i)],%l0 add %l0,4,%l1 st %l1,[%l7+%lo(.XBkNwvCj5cr9iAa.saxpy.i)] ld [%fp-44],%l0 cmp %l1,%l0 ble .L258 nop ! block 29 .L261: .L259: ! 166 return sethi %hi(.L_tcovCounters+400),%l2 ldd [%l2+%lo(.L_tcovCounters+400)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+400)] jmp %i7+8 restore ! block 30 .L230: .L262: jmp %i7+8 restore .size saxpy_,(.-saxpy_) .align 8 .align 8 .skip 16 ! block 0 .global sdot_ .type sdot_,2 sdot_: save %sp,-144,%sp sethi %hi(.L_tcovStruct),%l1 or %l1,%lo(.L_tcovStruct),%l1 ld [%l1+0],%l0 cmp %l0,0 bne .L_y4 nop ! block 29 mov %l1,%o0 call __bb_init_func nop ! block 1 .L_y4: .L309: ! block 2 .L310: ! File blas.f: ! 167 end ! 168 real function sdot(n,sx,incx,sy,incy) ! 169 c ! 170 c forms the dot product of two vectors. ! 171 c uses unrolled loops for increments equal to one. ! 172 c jack dongarra, linpack, 3/11/78. ! 173 c ! 174 real sx(1),sy(1),stemp ! 175 integer i,incx,incy,ix,iy,m,mp1,n ! 176 c ! 177 stemp = 0.0e0 sethi %hi(.L_tcovCounters+408),%l2 ldd [%l2+%lo(.L_tcovCounters+408)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+408)] sethi %hi(.L_cseg0),%l1 ld [%l1+%lo(.L_cseg0)],%f2 sethi %hi(.XBkNwvCj5cr9iAa.sdot.stemp),%l0 st %f2,[%l0+%lo(.XBkNwvCj5cr9iAa.sdot.stemp)] ! 178 sdot = 0.0e0 ld [%l1+%lo(.L_cseg0)],%f2 st %f2,[%fp-24] ! 179 if(n.le.0)return ld [%i0+0],%l0 cmp %l0,0 bg .L311 nop ! block 3 .L312: ba .L308 nop ! block 4 .L311: ! 180 if(incx.eq.1.and.incy.eq.1)go to 20 sethi %hi(.L_tcovCounters+416),%l2 ldd [%l2+%lo(.L_tcovCounters+416)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+416)] mov 1,%l0 st %l0,[%fp-28] ld [%i2+0],%l0 subcc %l0,1,%g0 mov 0,%l0 be,a 1f mov 1,%l0 1: cmp %l0,0 bne .L313 nop ! block 5 .L314: ba .L315 st %g0,[%fp-28] ! block 6 .L313: ld [%i4+0],%l0 subcc %l0,1,%g0 mov 0,%l0 be,a 1f mov 1,%l0 1: cmp %l0,0 bne .L316 nop ! block 7 .L317: st %g0,[%fp-28] ! block 8 .L316: .L315: ld [%fp-28],%l0 cmp %l0,%g0 bne .L301 nop ! block 9 .L318: ! 181 c ! 182 c code for unequal increments or equal increments ! 183 c not equal to 1 ! 184 c ! 185 ix = 1 sethi %hi(.L_tcovCounters+424),%l2 ldd [%l2+%lo(.L_tcovCounters+424)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+424)] mov 1,%l1 sethi %hi(.XBkNwvCj5cr9iAa.sdot.ix),%l2 st %l1,[%l2+%lo(.XBkNwvCj5cr9iAa.sdot.ix)] ! 186 iy = 1 mov 1,%l1 sethi %hi(.XBkNwvCj5cr9iAa.sdot.iy),%l0 st %l1,[%l0+%lo(.XBkNwvCj5cr9iAa.sdot.iy)] ! 187 if(incx.lt.0)ix = (-n+1)*incx + 1 ld [%i2+0],%l1 cmp %l1,0 bge .L319 nop ! block 10 .L320: ld [%i0+0],%l0 neg %l0,%l0 add %l0,1,%l0 smul %l0,%l1,%l0 add %l0,1,%l0 st %l0,[%l2+%lo(.XBkNwvCj5cr9iAa.sdot.ix)] ! block 11 .L319: ! 188 if(incy.lt.0)iy = (-n+1)*incy + 1 sethi %hi(.L_tcovCounters+432),%l2 ldd [%l2+%lo(.L_tcovCounters+432)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+432)] ld [%i4+0],%l1 cmp %l1,0 bge .L321 nop ! block 12 .L322: ld [%i0+0],%l0 neg %l0,%l0 add %l0,1,%l0 smul %l0,%l1,%l0 add %l0,1,%l1 sethi %hi(.XBkNwvCj5cr9iAa.sdot.iy),%l0 st %l1,[%l0+%lo(.XBkNwvCj5cr9iAa.sdot.iy)] ! block 13 .L321: ! 189 do 10 i = 1,n sethi %hi(.L_tcovCounters+440),%l2 ldd [%l2+%lo(.L_tcovCounters+440)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+440)] .L296: ld [%i0+0],%l1 st %l1,[%fp-32] mov 1,%l2 sethi %hi(.XBkNwvCj5cr9iAa.sdot.i),%l0 cmp %l2,%l1 bg .L324 st %l2,[%l0+%lo(.XBkNwvCj5cr9iAa.sdot.i)] ! block 14 .L325: .L323: ! 190 stemp = stemp + sx(ix)*sy(iy) sethi %hi(.L_tcovCounters+448),%l2 ldd [%l2+%lo(.L_tcovCounters+448)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+448)] sethi %hi(.XBkNwvCj5cr9iAa.sdot.stemp),%l3 ld [%l3+%lo(.XBkNwvCj5cr9iAa.sdot.stemp)],%f4 sethi %hi(.XBkNwvCj5cr9iAa.sdot.ix),%l5 ld [%l5+%lo(.XBkNwvCj5cr9iAa.sdot.ix)],%l0 sll %l0,2,%l1 add %i1,%l1,%l0 ld [%l0-4],%f3 sethi %hi(.XBkNwvCj5cr9iAa.sdot.iy),%l6 ld [%l6+%lo(.XBkNwvCj5cr9iAa.sdot.iy)],%l0 sll %l0,2,%l1 add %i3,%l1,%l0 ld [%l0-4],%f2 fmuls %f3,%f2,%f2 fadds %f4,%f2,%f2 st %f2,[%l3+%lo(.XBkNwvCj5cr9iAa.sdot.stemp)] ! 191 ix = ix + incx ld [%l5+%lo(.XBkNwvCj5cr9iAa.sdot.ix)],%l2 ld [%i2+0],%l1 add %l2,%l1,%l0 st %l0,[%l5+%lo(.XBkNwvCj5cr9iAa.sdot.ix)] ! 192 iy = iy + incy ld [%l6+%lo(.XBkNwvCj5cr9iAa.sdot.iy)],%l2 ld [%i4+0],%l1 add %l2,%l1,%l0 st %l0,[%l6+%lo(.XBkNwvCj5cr9iAa.sdot.iy)] ! 193 10 continue ! block 15 .L299: sethi %hi(.XBkNwvCj5cr9iAa.sdot.i),%l1 ld [%l1+%lo(.XBkNwvCj5cr9iAa.sdot.i)],%l0 add %l0,1,%l2 st %l2,[%l1+%lo(.XBkNwvCj5cr9iAa.sdot.i)] ld [%fp-32],%l0 cmp %l2,%l0 ble .L323 nop ! block 16 .L326: .L324: ! 194 sdot = stemp sethi %hi(.L_tcovCounters+456),%l2 ldd [%l2+%lo(.L_tcovCounters+456)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+456)] sethi %hi(.XBkNwvCj5cr9iAa.sdot.stemp),%l0 ld [%l0+%lo(.XBkNwvCj5cr9iAa.sdot.stemp)],%f2 ! 195 return ba .L308 st %f2,[%fp-24] ! block 17 ! 196 c ! 197 c code for both increments equal to 1 ! 198 c ! 199 c ! 200 c clean-up loop ! 201 c ! 202 20 m = mod(n,5) .L301: ld [%i0+0],%l0 sra %l0,31,%g1 wr %g0,%g1,%y nop nop nop sdivcc %l0,5,%g1 bvs,a .+8 sethi %hi(0x80000000),%g1 smul %g1,5,%g1 sub %l0,%g1,%l1 sethi %hi(.XBkNwvCj5cr9iAa.sdot.m),%l3 st %l1,[%l3+%lo(.XBkNwvCj5cr9iAa.sdot.m)] ! 203 if( m .eq. 0 ) go to 40 sethi %hi(.L_tcovCounters+464),%l2 ldd [%l2+%lo(.L_tcovCounters+464)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+464)] ld [%l3+%lo(.XBkNwvCj5cr9iAa.sdot.m)],%l0 cmp %l0,0 be .L304 nop ! block 18 .L327: ! 204 do 30 i = 1,m sethi %hi(.L_tcovCounters+472),%l2 ldd [%l2+%lo(.L_tcovCounters+472)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+472)] .L297: sethi %hi(.XBkNwvCj5cr9iAa.sdot.m),%l0 ld [%l0+%lo(.XBkNwvCj5cr9iAa.sdot.m)],%i5 mov 1,%l1 sethi %hi(.XBkNwvCj5cr9iAa.sdot.i),%l0 cmp %l1,%i5 bg .L329 st %l1,[%l0+%lo(.XBkNwvCj5cr9iAa.sdot.i)] ! block 19 .L330: .L328: ! 205 stemp = stemp + sx(i)*sy(i) sethi %hi(.L_tcovCounters+480),%l2 ldd [%l2+%lo(.L_tcovCounters+480)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+480)] sethi %hi(.XBkNwvCj5cr9iAa.sdot.stemp),%l3 ld [%l3+%lo(.XBkNwvCj5cr9iAa.sdot.stemp)],%f4 sethi %hi(.XBkNwvCj5cr9iAa.sdot.i),%l5 ld [%l5+%lo(.XBkNwvCj5cr9iAa.sdot.i)],%l0 sll %l0,2,%l2 add %i1,%l2,%l0 ld [%l0-4],%f3 add %i3,%l2,%l0 ld [%l0-4],%f2 fmuls %f3,%f2,%f2 fadds %f4,%f2,%f2 st %f2,[%l3+%lo(.XBkNwvCj5cr9iAa.sdot.stemp)] ! 206 30 continue ! block 20 .L302: ld [%l5+%lo(.XBkNwvCj5cr9iAa.sdot.i)],%l0 add %l0,1,%l1 cmp %l1,%i5 ble .L328 st %l1,[%l5+%lo(.XBkNwvCj5cr9iAa.sdot.i)] ! block 21 .L331: .L329: ! 207 if( n .lt. 5 ) go to 60 sethi %hi(.L_tcovCounters+488),%l2 ldd [%l2+%lo(.L_tcovCounters+488)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+488)] ld [%i0+0],%l0 cmp %l0,5 bl .L307 nop ! block 22 .L332: ! 208 40 mp1 = m + 1 sethi %hi(.L_tcovCounters+496),%l2 ldd [%l2+%lo(.L_tcovCounters+496)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+496)] .L304: sethi %hi(.XBkNwvCj5cr9iAa.sdot.m),%l0 ld [%l0+%lo(.XBkNwvCj5cr9iAa.sdot.m)],%l0 add %l0,1,%l2 sethi %hi(.XBkNwvCj5cr9iAa.sdot.mp1),%l0 st %l2,[%l0+%lo(.XBkNwvCj5cr9iAa.sdot.mp1)] ! 209 do 50 i = mp1,n,5 ! block 23 .L298: st %l2,[%fp-40] ld [%i0+0],%l1 st %l1,[%fp-44] sethi %hi(.XBkNwvCj5cr9iAa.sdot.i),%l0 cmp %l2,%l1 bg .L334 st %l2,[%l0+%lo(.XBkNwvCj5cr9iAa.sdot.i)] ! block 24 .L335: .L333: ! 210 stemp = stemp + sx(i)*sy(i) + sx(i + 1)*sy(i + 1) + sethi %hi(.L_tcovCounters+504),%l2 ldd [%l2+%lo(.L_tcovCounters+504)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+504)] sethi %hi(.XBkNwvCj5cr9iAa.sdot.stemp),%l5 ld [%l5+%lo(.XBkNwvCj5cr9iAa.sdot.stemp)],%f4 sethi %hi(.XBkNwvCj5cr9iAa.sdot.i),%l6 ld [%l6+%lo(.XBkNwvCj5cr9iAa.sdot.i)],%l2 sll %l2,2,%l1 add %i1,%l1,%l0 ld [%l0-4],%f3 add %i3,%l1,%l0 ld [%l0-4],%f2 fmuls %f3,%f2,%f2 fadds %f4,%f2,%f4 add %l2,1,%l0 sll %l0,2,%l1 add %i1,%l1,%l0 ld [%l0-4],%f3 add %i3,%l1,%l0 ld [%l0-4],%f2 fmuls %f3,%f2,%f2 fadds %f4,%f2,%f4 add %l2,2,%l0 sll %l0,2,%l1 add %i1,%l1,%l0 ld [%l0-4],%f3 add %i3,%l1,%l0 ld [%l0-4],%f2 fmuls %f3,%f2,%f2 fadds %f4,%f2,%f4 add %l2,3,%l0 sll %l0,2,%l1 add %i1,%l1,%l0 ld [%l0-4],%f3 add %i3,%l1,%l0 ld [%l0-4],%f2 fmuls %f3,%f2,%f2 fadds %f4,%f2,%f4 add %l2,4,%l0 sll %l0,2,%l1 add %i1,%l1,%l0 ld [%l0-4],%f3 add %i3,%l1,%l0 ld [%l0-4],%f2 fmuls %f3,%f2,%f2 fadds %f4,%f2,%f2 st %f2,[%l5+%lo(.XBkNwvCj5cr9iAa.sdot.stemp)] ! 211 * sx(i + 2)*sy(i + 2) + sx(i + 3)*sy(i + 3) + sx(i + 4)*sy(i + 4) ! 212 50 continue ! block 25 .L305: ld [%l6+%lo(.XBkNwvCj5cr9iAa.sdot.i)],%l0 add %l0,5,%l1 st %l1,[%l6+%lo(.XBkNwvCj5cr9iAa.sdot.i)] ld [%fp-44],%l0 cmp %l1,%l0 ble .L333 nop ! block 26 .L336: .L334: ! 213 60 sdot = stemp sethi %hi(.L_tcovCounters+512),%l2 ldd [%l2+%lo(.L_tcovCounters+512)],%l0 addcc %l1,1,%l1 addx %l0,%g0,%l0 std %l0,[%l2+%lo(.L_tcovCounters+512)] .L307: sethi %hi(.XBkNwvCj5cr9iAa.sdot.stemp),%l0 ld [%l0+%lo(.XBkNwvCj5cr9iAa.sdot.stemp)],%f2 ! 214 return ba .L308 st %f2,[%fp-24] ! block 27 .L308: ld [%fp-24],%f0 jmp %i7+8 restore ! block 28 .L337: jmp %i7+8 restore .size sdot_,(.-sdot_) .align 8 .section ".bss",#alloc,#write .align 4 .global .XBkNwvCj5cr9iAa.sscal.nincx .XBkNwvCj5cr9iAa.sscal.nincx: .skip 4 .type .XBkNwvCj5cr9iAa.sscal.nincx,#object .size .XBkNwvCj5cr9iAa.sscal.nincx,4 .align 4 .global .XBkNwvCj5cr9iAa.sscal.i .XBkNwvCj5cr9iAa.sscal.i: .skip 4 .type .XBkNwvCj5cr9iAa.sscal.i,#object .size .XBkNwvCj5cr9iAa.sscal.i,4 .align 4 .global .XBkNwvCj5cr9iAa.sscal.m .XBkNwvCj5cr9iAa.sscal.m: .skip 4 .type .XBkNwvCj5cr9iAa.sscal.m,#object .size .XBkNwvCj5cr9iAa.sscal.m,4 .align 4 .global .XBkNwvCj5cr9iAa.sscal.mp1 .XBkNwvCj5cr9iAa.sscal.mp1: .skip 4 .type .XBkNwvCj5cr9iAa.sscal.mp1,#object .size .XBkNwvCj5cr9iAa.sscal.mp1,4 .align 4 .global .XBkNwvCj5cr9iAa.isamax.ix .XBkNwvCj5cr9iAa.isamax.ix: .skip 4 .type .XBkNwvCj5cr9iAa.isamax.ix,#object .size .XBkNwvCj5cr9iAa.isamax.ix,4 .align 4 .global .XBkNwvCj5cr9iAa.isamax.smax .XBkNwvCj5cr9iAa.isamax.smax: .skip 4 .type .XBkNwvCj5cr9iAa.isamax.smax,#object .size .XBkNwvCj5cr9iAa.isamax.smax,4 .align 4 .global .XBkNwvCj5cr9iAa.isamax.i .XBkNwvCj5cr9iAa.isamax.i: .skip 4 .type .XBkNwvCj5cr9iAa.isamax.i,#object .size .XBkNwvCj5cr9iAa.isamax.i,4 .align 4 .global .XBkNwvCj5cr9iAa.sasum.stemp .XBkNwvCj5cr9iAa.sasum.stemp: .skip 4 .type .XBkNwvCj5cr9iAa.sasum.stemp,#object .size .XBkNwvCj5cr9iAa.sasum.stemp,4 .align 4 .global .XBkNwvCj5cr9iAa.sasum.nincx .XBkNwvCj5cr9iAa.sasum.nincx: .skip 4 .type .XBkNwvCj5cr9iAa.sasum.nincx,#object .size .XBkNwvCj5cr9iAa.sasum.nincx,4 .align 4 .global .XBkNwvCj5cr9iAa.sasum.i .XBkNwvCj5cr9iAa.sasum.i: .skip 4 .type .XBkNwvCj5cr9iAa.sasum.i,#object .size .XBkNwvCj5cr9iAa.sasum.i,4 .align 4 .global .XBkNwvCj5cr9iAa.sasum.m .XBkNwvCj5cr9iAa.sasum.m: .skip 4 .type .XBkNwvCj5cr9iAa.sasum.m,#object .size .XBkNwvCj5cr9iAa.sasum.m,4 .align 4 .global .XBkNwvCj5cr9iAa.sasum.mp1 .XBkNwvCj5cr9iAa.sasum.mp1: .skip 4 .type .XBkNwvCj5cr9iAa.sasum.mp1,#object .size .XBkNwvCj5cr9iAa.sasum.mp1,4 .section ".rodata",#alloc .align 4 .L_cseg0: .skip 4 .type .L_cseg0,#object .size .L_cseg0,4 .section ".bss",#alloc,#write .align 4 .global .XBkNwvCj5cr9iAa.saxpy.ix .XBkNwvCj5cr9iAa.saxpy.ix: .skip 4 .type .XBkNwvCj5cr9iAa.saxpy.ix,#object .size .XBkNwvCj5cr9iAa.saxpy.ix,4 .align 4 .global .XBkNwvCj5cr9iAa.saxpy.iy .XBkNwvCj5cr9iAa.saxpy.iy: .skip 4 .type .XBkNwvCj5cr9iAa.saxpy.iy,#object .size .XBkNwvCj5cr9iAa.saxpy.iy,4 .align 4 .global .XBkNwvCj5cr9iAa.saxpy.i .XBkNwvCj5cr9iAa.saxpy.i: .skip 4 .type .XBkNwvCj5cr9iAa.saxpy.i,#object .size .XBkNwvCj5cr9iAa.saxpy.i,4 .align 4 .global .XBkNwvCj5cr9iAa.saxpy.m .XBkNwvCj5cr9iAa.saxpy.m: .skip 4 .type .XBkNwvCj5cr9iAa.saxpy.m,#object .size .XBkNwvCj5cr9iAa.saxpy.m,4 .align 4 .global .XBkNwvCj5cr9iAa.saxpy.mp1 .XBkNwvCj5cr9iAa.saxpy.mp1: .skip 4 .type .XBkNwvCj5cr9iAa.saxpy.mp1,#object .size .XBkNwvCj5cr9iAa.saxpy.mp1,4 .align 4 .global .XBkNwvCj5cr9iAa.sdot.stemp .XBkNwvCj5cr9iAa.sdot.stemp: .skip 4 .type .XBkNwvCj5cr9iAa.sdot.stemp,#object .size .XBkNwvCj5cr9iAa.sdot.stemp,4 .align 4 .global .XBkNwvCj5cr9iAa.sdot.ix .XBkNwvCj5cr9iAa.sdot.ix: .skip 4 .type .XBkNwvCj5cr9iAa.sdot.ix,#object .size .XBkNwvCj5cr9iAa.sdot.ix,4 .align 4 .global .XBkNwvCj5cr9iAa.sdot.iy .XBkNwvCj5cr9iAa.sdot.iy: .skip 4 .type .XBkNwvCj5cr9iAa.sdot.iy,#object .size .XBkNwvCj5cr9iAa.sdot.iy,4 .align 4 .global .XBkNwvCj5cr9iAa.sdot.i .XBkNwvCj5cr9iAa.sdot.i: .skip 4 .type .XBkNwvCj5cr9iAa.sdot.i,#object .size .XBkNwvCj5cr9iAa.sdot.i,4 .align 4 .global .XBkNwvCj5cr9iAa.sdot.m .XBkNwvCj5cr9iAa.sdot.m: .skip 4 .type .XBkNwvCj5cr9iAa.sdot.m,#object .size .XBkNwvCj5cr9iAa.sdot.m,4 .align 4 .global .XBkNwvCj5cr9iAa.sdot.mp1 .XBkNwvCj5cr9iAa.sdot.mp1: .skip 4 .type .XBkNwvCj5cr9iAa.sdot.mp1,#object .size .XBkNwvCj5cr9iAa.sdot.mp1,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 .L_tcovFileName: .ascii "/home/ma/575.01/masc0670/diffusion/blas.d\000" .type .L_tcovFileName,#object .size .L_tcovFileName,42 .align 8 .L_tcovCounters: .skip 520 .type .L_tcovCounters,#object .size .L_tcovCounters,520 .align 4 .L_tcovStruct: .skip 4 .word .L_tcovFileName .word .L_tcovCounters .word 0x41 .skip 4 .type .L_tcovStruct,#object .size .L_tcovStruct,20 .file "blas.f" .xstabs ".stab.index","V=8.0 ; DBG_GEN=3.4.2 ; R=1.0;g;G=.XAkNwvCj5cr9iAa.",60,0,0,1034800739 .xstabs ".stab.index","/home/ma/575.01/masc0670/diffusion/;/opt/SUNWspro/bin/../WS6U2/bin/f90 -a -S -qoption f90comp -h.XAkNwvCj5cr9iAa. blas.f",52,0,0,0