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