Merge branch 'adasko' into bartek with corrections

[unres.git] / source / wham / src-M / promienie.f

diff --git a/source/wham/src-M/promienie.f b/source/wham/src-M/promienie.f
index 12a2e80..c2d8732 100644 (file)
--- a/source/wham/src-M/promienie.f
+++ b/source/wham/src-M/promienie.f
@@ -36,7 +36,7 @@
       enddo
       close (isidep1)
       do i=1,ntyp1
-        if (i.eq.10 .or. i.eq.21) then
+        if (i.eq.10 .or. i.eq.ntyp1) then
           dsc_inv(i)=0.0d0
         else
           dsc_inv(i)=1.0d0/dsc(i)