subroutine sub (a)
	integer a(2,2)
	write (6,*) 'Inside Fortran.  Note how numbers increase now.'
	write (6,*) a(1,1), a(1,2)
	write (6,*) a(2,1), a(2,2)
	return
	end