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