1c
2c     integer rtdb
3c     integer geom
4c
5      integer mx_atm
6      parameter (mx_atm = 200)
7c
8      character*255 spr_name
9      character*255 mon_name (mx_atm)  ! monomers name
10      character*255 j_mon_name
11      character*1024 input (mx_atm) !special input
12c
13      double precision qmon(mx_atm)  ! monomer charge
14c
15      integer mon_atm(mx_atm)        ! num of atom in monomer
16      integer nmon                   ! num of monomer
17      integer mon(mx_atm,mx_atm)     ! table: rows(nmon) x cols(mon_atm)
18      integer mmon (mx_atm)          ! monomers multiplicity
19      integer natoms                 ! total atoms in the sistem
20      integer lenname, lentheo
21c
22      double precision spr_energy
23      double precision bsse_error
24      double precision m_error(50)
25      double precision final_spr_energy
26c
27      double precision  mon_energy(mx_atm)
28c
29      logical first_j
30c
31      common/mon_i/ mon_atm, mon, natoms,nmon,mmon
32      common/mon_c/mon_name,spr_name,input
33      common/mon_d/qmon
34c
35c     common/bsse_en_d/final_spr_energy,bsse_error,spr_energy,m_error
36c
37c $Id$
38