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