PBC working for EGB (only)

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

diff --git a/source/unres/data/energy_data.f90 b/source/unres/data/energy_data.f90
index 873f053..1b05b85 100644 (file)
--- a/source/unres/data/energy_data.f90
+++ b/source/unres/data/energy_data.f90
@@ -109,7 +109,7 @@
       real(kind=8),dimension(:,:),allocatable :: r0d,eps_scp,rscp !(ntyp,2)  r0d  !!! nie używane
 ! 12/5/03 modified 09/18/03 Bond stretching parameters.
 !      common /stretch/
-      real(kind=8) :: vbldp0,akp,distchainmax
+      real(kind=8) :: vbldp0,akp,distchainmax,vbldpDUM
       real(kind=8),dimension(:,:),allocatable :: vbldsc0,aksc,abond0 !(maxbondterm,ntyp)
       integer,dimension(:),allocatable :: nbondterm    !(ntyp)
 !-----------------------------------------------------------------------------
@@ -246,5 +246,10 @@
 !      common/fourier/  z wham
       real(kind=8),dimension(:,:),allocatable :: b !(13,0:maxtor)
 !-----------------------------------------------------------------------------
+! 24 Apr 2017 
+! Varibles for cutoff on electorstatic
+      real(kind=8) sss_ele_cut,sss_ele_grad
+      integer xshift,yshift,zshift
 !-----------------------------------------------------------------------------
+
       end module energy_data