Return to cnt.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/cnt.f, revision 1.1

1.1     ! root        1: c      count positive elements
        !             2:        subroutine count(arry,i,cnt)
        !             3:        dimension arry(7)
        !             4:        cnt = 0
        !             5:        do 9 j=1,i
        !             6:        if(arry(j).ge.0)cnt = cnt+1.0
        !             7: 9      continue
        !             8:        return
        !             9:        end

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