Merge branch 'UCGM' of mmka.chem.univ.gda.pl:unres4 into UCGM

[unres4.git] / source / unres / REMD.F90

diff --git a/source/unres/REMD.F90 b/source/unres/REMD.F90
index fc0c9f1..699631c 100644 (file)
--- a/source/unres/REMD.F90
+++ b/source/unres/REMD.F90
@@ -627,11 +627,11 @@
         ii = ind+m
         mnum=molnum(i)
         iti=itype(i,mnum)
-        if (mnum.eq.5) then
-        mscab=0.0
-        else
+!        if (mnum.eq.5) then
+!        mscab=0.0
+!        else
         mscab=msc(iabs(iti),mnum)
-        endif
+!        endif
         massvec(ii)=mscab
 
         if (iti.ne.10 .and. iti.ne.ntyp1_molec(mnum) .and. mnum.ne.5) then