workink EVDW i EES for PP,SB,PSB- warning energies differ as corrections made for...

[unres4.git] / source / unres / data / geometry_data.f90

diff --git a/source/unres/data/geometry_data.f90 b/source/unres/data/geometry_data.f90
index f5b843b..49357af 100644 (file)
--- a/source/unres/data/geometry_data.f90
+++ b/source/unres/data/geometry_data.f90
@@ -12,6 +12,7 @@
       real(kind=8),dimension(:,:),allocatable :: xloc,xrot !(3,maxres)
       real(kind=8),dimension(:),allocatable :: dc_work !(MAXRES6)
       integer :: nres,nres0
+      integer, dimension(5) :: nres_molec
 !      common /rotmat/
       real(kind=8),dimension(:,:,:),allocatable :: prod,rt !(3,3,maxres)
 !      common /refstruct/
@@ -26,6 +27,7 @@
       real(kind=8) :: buflipbot, bufliptop,bordlipbot,bordliptop,     &
         lipbufthick,lipthick
       integer,dimension(:,:),allocatable :: tabperm !(maxperm,maxsym)
+      integer molec
 !      common /from_zscore/ in module.compare
 !-----------------------------------------------------------------------------
 ! common.geo