X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fdata%2Fcalc_data.f90;h=7de07b05b97ad574e6c63d591a50c38024d385de;hb=04d0eb23476c67cc0cadc32bf09aa91c03e2dc15;hp=3f40fd0a5ab48399e7d6349a772f5835717af373;hpb=299e2c41124d3fa8adba7244716515a2cc160ed1;p=unres4.git

diff --git a/source/unres/data/calc_data.f90 b/source/unres/data/calc_data.f90
index 3f40fd0..7de07b0 100644
--- a/source/unres/data/calc_data.f90
+++ b/source/unres/data/calc_data.f90
@@ -9,6 +9,21 @@
        sigsq_om12,facp,facp_inv,facp1,eps2rt,eps2rt_om1,eps2rt_om2,&
        eps2rt_om12,eps3rt,eom1,eom2,eom12,evdwij,eps2der,eps3der,&
        sigder,dsci_inv,dscj_inv
-      real(kind=8),dimension(3) :: erij,gg
+      real(kind=8),dimension(3) :: erij,gg,gg_lipi,gg_lipj
 !-----------------------------------------------------------------------------
       end module calc_data
+      module calc_data_nucl
+!-----------------------------------------------------------------------------
+! commom.calc common/calc/
+      integer :: i,j,k,l,ind
+      real(kind=8) :: rrij,rij,xj,yj,zj,dxj,dyj,dzj,&
+       chi1,chi2,chi12,chip1,chip2,chip12,alf1,alf2,alf12,om1,om2,om12,&
+       om1om2,chiom1,chiom2,chiom12,chipom1,chipom2,chipom12,eps1,&
+       faceps1,faceps1_inv,eps1_om12,facsig,sigsq,sigsq_om1,sigsq_om2,&
+       sigsq_om12,facp,facp_inv,facp1,eps2rt,eps2rt_om1,eps2rt_om2,&
+       eps2rt_om12,eps3rt,eom1,eom2,eom12,evdwij,eps2der,eps3der,&
+       sigder,dsci_inv,dscj_inv
+      real(kind=8),dimension(3) :: erij,gg,gg_lipi,gg_lipj
+!-----------------------------------------------------------------------------
+      end module calc_data_nucl
+