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