	subroutine aquis
	common	/comdim/n(256)

	call print ('AQUIS ROUTINE')
	do	10 i=1,256
10	n(i)=i

C	other statement 
C	 .. but not TYPE,FORMAT...
C	 only math and syslib routines

	return
	end

