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