1      subroutine argos_diana_lochdr(sgmnam,imol,isel)
2c
3      implicit none
4c
5#include "argos_diana_common.fh"
6#include "global.fh"
7#include "mafdecls.fh"
8#include "msgids.fh"
9c
10      character*16 sgmnam(nsa)
11      integer imol(msa),isel(nsa)
12c
13      integer i,num,igrp,ia,j,ito
14c
15      num=0
16      do 1 i=1,nsa
17      if(isel(i).ne.0) num=num+1
18    1 continue
19c
20      write(lfnloc,1000) ngroup
21 1000 format(2i7)
22      do 4 j=1,ngroup
23      igrp=igroup(j,1)
24      ito=ldef(igrp)
25      write(lfnloc,1000) ito,nsa
26      do 2 i=1,ito
27      ia=idef(igrp,i)
28      write(lfnloc,1001) ia,imol(ia),sgmnam(ia)(11:16),sgmnam(ia)(1:5),
29     + sgmnam(ia)(6:10)
30    2 continue
31    4 continue
32      write(lfnloc,1000) num,nsa
33      do 3 i=1,nsa
34      if(isel(i).ne.0) then
35      write(lfnloc,1001) i,imol(i),sgmnam(i)(11:16),sgmnam(i)(1:5),
36     + sgmnam(i)(6:10)
37 1001 format(i7,i5,a6,' ',a5,':',a5)
38      endif
39    3 continue
40c
41      return
42      end
43c $Id$
44