1 subroutine argos_diana_test(x,nsa) 2 integer nsa 3 real*8 x(nsa,3) 4c 5 integer i,j 6c 7 do 1 i=1,10 8 write(*,'(i5,3f12.6)') i,(x(i,j),j=1,3) 9 1 continue 10c 11 return 12 end 13c $Id$ 14