X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fdata%2Fenergy_data.f90;h=873f053483c67a78f04d7b900f49a3205fd659ad;hb=3d82fd4865ef986a636dcb144357cc095a20ffbc;hp=11382e28e05f02562918360ef74ecb24724c5cfa;hpb=299e2c41124d3fa8adba7244716515a2cc160ed1;p=unres4.git

diff --git a/source/unres/data/energy_data.f90 b/source/unres/data/energy_data.f90
index 11382e2..873f053 100644
--- a/source/unres/data/energy_data.f90
+++ b/source/unres/data/energy_data.f90
@@ -165,18 +165,7 @@
       real(kind=8),dimension(:),allocatable :: utheta,ugamma,uscdiff !(maxfrag_back)
       real(kind=8),dimension(:,:,:),allocatable :: wfrag_back !(3,maxfrag_back,maxprocs/20)
       integer,dimension(:,:,:),allocatable :: ifrag_back !(3,maxfrag_back,maxprocs/20)
-!      common /qmeas/
-      real(kind=8),dimension(50) :: qfrag
-      real(kind=8),dimension(100) :: qpair
-      real(kind=8),dimension(:,:),allocatable :: qinfrag,wfrag !(50,maxprocs/20)
-      real(kind=8),dimension(:,:),allocatable :: qinpair,wpair !(100,maxprocs/20)
-      real(kind=8) :: eq_time,Uconst
-      integer :: iset,nset
-      integer,dimension(:),allocatable :: mset !(maxprocs/20)
-      integer,dimension(:,:,:),allocatable :: ifrag !(2,50,maxprocs/20)
-      integer,dimension(:,:,:),allocatable :: ipair !(2,100,maxprocs/20)
-      integer :: nfrag,npair
-      logical :: usampl
+!      common /qmeas/ in module geometry
 !-----------------------------------------------------------------------------
 ! common.sbridge
 !      common /sbridge/
@@ -257,22 +246,5 @@
 !      common/fourier/  z wham
       real(kind=8),dimension(:,:),allocatable :: b !(13,0:maxtor)
 !-----------------------------------------------------------------------------
-! common.var
-! Store the geometric variables in the following COMMON block.
-!      common /var/ in module geometry_data
-! Store the angles and variables corresponding to old conformations (for use
-! in MCM).
-!      common /oldgeo/
-!el      real(kind=8),dimension(:,:),allocatable :: varsave !(maxvar,maxsave)
-!      real(kind=8),dimension(:),allocatable :: esave !(maxsave)
-!      integer,dimension(:),allocatable :: Origin !(maxsave)
-!      integer :: nstore
-! freeze some variables
-!      common /restr/
-      real(kind=8),dimension(:),allocatable :: varall !(maxvar)
-      integer,dimension(:),allocatable :: mask_theta,&
-       mask_phi,mask_side !(maxres)
-      logical :: mask_r
-!-----------------------------------------------------------------------------
 !-----------------------------------------------------------------------------
       end module energy_data