X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2FssMD.F;h=dceec729e701daaba71f3e311afe677bd3b6233e;hb=d18458ebff864e886a174bdd6c1db0dd4bebda72;hp=30fc811746a1a0234ac4a1515a48c43bce96c812;hpb=3e5191c219c2c8855e212d6852e6ef50f7e14ead;p=unres.git

diff --git a/source/unres/src_MD-M/ssMD.F b/source/unres/src_MD-M/ssMD.F
index 30fc811..dceec72 100644
--- a/source/unres/src_MD-M/ssMD.F
+++ b/source/unres/src_MD-M/ssMD.F
@@ -1959,6 +1959,7 @@ c      integer itypi,itypj,k,l
       double precision ssA,ssB,ssC,ssXs
       double precision ssxm,ljxm,ssm,ljm
       double precision d_ssxm(1:3),d_ljxm(1:3),d_ssm(1:3),d_ljm(1:3)
+      eij=0.0
       if (dtriss.eq.0) return
       i=resi
       j=resj