X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc-M%2FssMD.F;h=1fd3325bf109171b29eaebd568120785ba728429;hb=d24fd92f8762d3b48a94c699ef90e0ab37d3c204;hp=42983f8adb16b33e02394c67ed81ff07cb3920cc;hpb=7006db11d703450fb82ce20cfc53f74614334362;p=unres.git

diff --git a/source/cluster/wham/src-M/ssMD.F b/source/cluster/wham/src-M/ssMD.F
index 42983f8..1fd3325 100644
--- a/source/cluster/wham/src-M/ssMD.F
+++ b/source/cluster/wham/src-M/ssMD.F
@@ -126,6 +126,7 @@ c      integer itypi,itypj,k,l
       double precision d_ssxm(1:3),d_ljxm(1:3),d_ssm(1:3),d_ljm(1:3)
       double precision f1,f2,h1,h2,hd1,hd2
       double precision omega,delta_inv,deltasq_inv,fac1,fac2
+      double precision xi,yi,zi
 c-------FIRST METHOD
       double precision xm,d_xm(1:3)
 c-------END FIRST METHOD