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