      subroutine argos_diana_listangl(sgmnam,last)
c
      implicit none
c
#include "argos_diana_common.fh"
c
      integer last
      character*16 sgmnam(msa)
      integer i,j
c
      if(me.eq.0) then
      do 5 i=last,nangl
      write(cangl(i),1000) i,iangl(i,1,3),(sgmnam(iangl(i,j,1))(11:16),
     + ':',sgmnam(iangl(i,j,1))(1:10),j=1,3)
 1000 format(2i4,4(a6,a,a10))
    5 continue
      endif
c
      return
      end
c $Id: argos_diana_listangl.F 21176 2011-10-10 06:35:49Z d3y133 $
