Return to b7c.f CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst

Annotation of cci/usr/src/usr.bin/f77/f77pass1/tst/b7c.f, revision 1.1

1.1     ! root        1: c      benchmark program number 7
        !             2: 
        !             3: c      statistics
        !             4: 
        !             5:        common /a/ array(10)
        !             6:        integer array
        !             7: c      data array/500, 1000, 2000, 4000, 100, 200, 400, 800, 1600, 3200/
        !             8: 
        !             9:        do 1 i = 1, 30000
        !            10: 1      call stat(10)
        !            11:        end
        !            12: 
        !            13:        subroutine stat(nel)
        !            14:        common /a/ arr(10)
        !            15:        integer sum,mean,arr
        !            16:        integer gtmean
        !            17: 
        !            18:        sum = 0
        !            19:        do 2 i=1,nel
        !            20: 2      sum = sum + arr(i)
        !            21:        mean = gtmean(nel,sum)
        !            22:        call getmed(nel,sum)
        !            23:        end
        !            24: 
        !            25:        integer function gtmean(nel,sum)
        !            26:        common /a/ arr(10)
        !            27:        integer    sum,arr
        !            28: 
        !            29:        mean = 0
        !            30:        do 3 i=1,nel
        !            31: 3      mean = mean + arr(i) * i
        !            32:        gtmean = mean / sum
        !            33:        return
        !            34:        end
        !            35: 
        !            36:        subroutine getmed(nel,sum)
        !            37:        common /a/ arr(10)
        !            38:        integer    sum,arr
        !            39:        integer partsm
        !            40: 
        !            41:        partsm = 0
        !            42:        do 4 i=1,nel
        !            43:        partsm = partsm + arr(i)
        !            44:        if(partsm .gt. rshift(sum,2))goto 5
        !            45: 4      continue
        !            46: 5      return
        !            47:        end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.