test.f

test.f (text/plain), 174 bytes, created by Norman Yarvin on 2013-05-05 21:09:25 UTC

	implicit real*4 (a-h,o-z)
c
	dimension t(12)

	do 1000 i=1,12
	t(i)=i
 1000	continue

	call mung(t(1))

	do 2000 i=1,12
	print *, "t(", i, ") = ", t(i)
 2000	continue

	end