1      subroutine dia_getsel
2c
3c $Id$
4c
5c     get atom selection
6c     ------------------
7c
8      implicit none
9c
10#include "dia_common.fh"
11#include "dia_params.fh"
12#include "global.fh"
13#include "mafdecls.fh"
14#include "rtdb.fh"
15#include "msgids.fh"
16#include "util.fh"
17c
18      if(.not.lsel) then
19      call dia_all(int_mb(i_isel),0,dbl_mb(i_wt),nsel)
20      lsel=.true.
21      endif
22      call dia_select(byte_mb(i_snam),int_mb(i_isel),dbl_mb(i_wt),
23     + dbl_mb(i_xref),nsel)
24      if(me.eq.0) then
25      write(*,3003) nsel,nsa
26 3003 format(' Selected',i5,' out of',i5,' atoms')
27      endif
28      return
29      end
30      subroutine dia_getsls
31c
32c     get atom selection
33c     ------------------
34c
35      implicit none
36c
37#include "dia_common.fh"
38#include "dia_params.fh"
39#include "global.fh"
40#include "mafdecls.fh"
41#include "rtdb.fh"
42#include "msgids.fh"
43#include "util.fh"
44c
45      if(.not.lsels) then
46      call dia_all(int_mb(i_ssel),0,dbl_mb(i_swt),nsel)
47      lsels=.true.
48      endif
49      call dia_select(card,byte_mb(i_snam),int_mb(i_ssel),dbl_mb(i_swt),
50     + dbl_mb(i_xref),nsel)
51      if(me.eq.0) then
52      write(*,3533) nsel,nsa
53 3533 format(' Selected',i5,' out of',i5,' atoms for superposition')
54      endif
55c
56      return
57      end
58      subroutine dia_getslo
59c
60c     get atom selection
61c     ------------------
62c
63      implicit none
64c
65#include "dia_common.fh"
66#include "dia_params.fh"
67#include "global.fh"
68#include "mafdecls.fh"
69#include "rtdb.fh"
70#include "msgids.fh"
71#include "util.fh"
72c
73      if(.not.lselo) then
74      call dia_all(int_mb(i_osel),0,dbl_mb(i_owt),nselo)
75      lselo=.true.
76      endif
77      call dia_select(card,byte_mb(i_snam),int_mb(i_osel),dbl_mb(i_owt),
78     + dbl_mb(i_xref),nselo)
79      if(me.eq.0) then
80      write(*,3633) nselo,nsa
81 3633 format(' Selected',i5,' out of',i5,' atoms for output')
82      endif
83c
84      return
85      end
86