1      subroutine argos_diana_listangl(sgmnam,last)
2c
3      implicit none
4c
5#include "argos_diana_common.fh"
6c
7      integer last
8      character*16 sgmnam(msa)
9      integer i,j
10c
11      if(me.eq.0) then
12      do 5 i=last,nangl
13      write(cangl(i),1000) i,iangl(i,1,3),(sgmnam(iangl(i,j,1))(11:16),
14     + ':',sgmnam(iangl(i,j,1))(1:10),j=1,3)
15 1000 format(2i4,4(a6,a,a10))
16    5 continue
17      endif
18c
19      return
20      end
21c $Id$
22