X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Fwham%2Fsrc-M%2Fenergy_p_new.F;fp=source%2Fwham%2Fsrc-M%2Fenergy_p_new.F;h=fdc98e4a19483df3d2175eeaf933baa5f7441293;hb=8a229347c2999ab38c8d3e8c5c6e5e42a17d04c3;hp=de97b0b8a837b26aad7c1c27751d2583b2f1d9d4;hpb=1effb48dc2c3c0f8aa60d0943ae2abee9c09cdb4;p=unres.git

diff --git a/source/wham/src-M/energy_p_new.F b/source/wham/src-M/energy_p_new.F
index de97b0b..fdc98e4 100644
--- a/source/wham/src-M/energy_p_new.F
+++ b/source/wham/src-M/energy_p_new.F
@@ -8795,7 +8795,8 @@ c SC SC
            enddo ! k
 #else
            dijCACA=dist(i,j)
-           sigma2CACA=0.25d0/(restok(itype(j))**2+restok(itype(i))**2)
+           sigma2CACA=scal_rad**2*0.25d0/
+     &         (restok(itype(j))**2+restok(itype(i))**2)
            do k=1,nsaxs
              dk = distsaxs(k)
              expCACA = dexp(-0.5d0*sigma2CACA*(dijCACA-dk)**2)