[unix-history] / usr / doc / lisp / ch8auxf.f

	double precision function ffoo(a,b,c)
	integer a,b(10)
	double precision c
	print 2,a,b(1),b(2),c
2	format(' a=',i4,', b(1)=',i5,', b(2)=',i5,' c=',f6.4)
	b(1) = 22
	ffoo = 1.23456
	return
	end
Commit	Line	Data
3d6d4647 C	1	double precision function ffoo(a,b,c)
	2	integer a,b(10)
	3	double precision c
	4	print 2,a,b(1),b(2),c
	5	2 format(' a=',i4,', b(1)=',i5,', b(2)=',i5,' c=',f6.4)
	6	b(1) = 22
	7	ffoo = 1.23456
	8	return
	9	end