1      subroutine argos_diana_group(sgmnam,imol,isel,wt,x,iwrk)
2c
3c $Id$
4c
5      implicit none
6c
7#include "argos_diana_common.fh"
8#include "global.fh"
9#include "mafdecls.fh"
10#include "msgids.fh"
11#include "rtdb.fh"
12c
13      character*16 sgmnam(nsa)
14      real*8 wt(nsa)
15      integer isel(nsa),imol(msa),iwrk(mxdef,mxnum,maxgrp)
16      real*8 x(nsa,3)
17c
18      integer i,j
19c
20      ngroup=ngroup+1
21      if(ngroup.gt.maxgrp) call md_abort('Increase maxgrp',maxgrp)
22c
23      read(card(8:46),1000) (igroup(ngroup,i),i=1,3),
24     + (rgroup(ngroup,i),i=1,2)
25 1000 format(i7,i5,i3,2f12.6)
26c
27      do 1 i=1,mxdef
28      do 2 j=1,mxnum
29      iwrk(i,j,ngroup)=0
30    2 continue
31    1 continue
32c
33      return
34      end
35