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

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.