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