Return to cnt.f CVS log

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

Power 6/32 Unix version 1.21

c	count positive elements
	subroutine count(arry,i,cnt)
	dimension arry(7)
	cnt = 0
	do 9 j=1,i
	if(arry(j).ge.0)cnt = cnt+1.0
9	continue
	return
	end

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