X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fcontrol.F90;h=fbd2dfb718993d3f56783c26272f80b6a1706364;hb=254aac5de5a2d56e17a059d77c5f32f7b77a41fa;hp=7ecc75775ce67d1eef8a67e16d62f205c152dcec;hpb=8ca97b16fe25b7053f258263899ba030572cc58f;p=unres4.git

diff --git a/source/unres/control.F90 b/source/unres/control.F90
index 7ecc757..fbd2dfb 100644
--- a/source/unres/control.F90
+++ b/source/unres/control.F90
@@ -242,6 +242,8 @@
 
       iliptranpar=60
       itube=61
+!     IONS
+      iion=401
 #if defined(WHAM_RUN) || defined(CLUSTER)
 !
 ! setting the mpi variables for WHAM
@@ -1921,7 +1923,7 @@
 #ifdef WHAM_RUN
         if (itype(i,1).ne.10) then
 #else
-        if (itype(i,1).ne.10 .and. itype(i,mnum).ne.ntyp1_molec(mnum)) then
+        if (itype(i,1).ne.10 .and. itype(i,mnum).ne.ntyp1_molec(mnum) .and. mnum.ne.5) then
 #endif
 	  nside=nside+1
           ialph(i,1)=nvar+nside