X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fcontrol.F90;fp=source%2Funres%2Fcontrol.F90;h=e4690776d2deedd96d69228070eb97e0a971dde8;hb=9591847f46e1b0163f508e2fda6a240fdc3e4890;hp=516a8d78009ce982fb69a1d4864a04d0bb4aa637;hpb=91b9f78d94b96277537615722323ebe03cc0a014;p=unres4.git

diff --git a/source/unres/control.F90 b/source/unres/control.F90
index 516a8d7..e469077 100644
--- a/source/unres/control.F90
+++ b/source/unres/control.F90
@@ -1164,6 +1164,17 @@
         jgrad_start(i)=i+1
         jgrad_end(i)=nres
       enddo
+! THIS SHOULD BE FIXED
+      itmp=0
+      do i=1,4
+       itmp=itmp+nres_molec(i)
+      enddo
+      call int_bounds(nres_molec(5),icatb_start,icatb_end)
+      icatb_start=icatb_start+itmp
+      icatb_end=icatb_end+itmp
+
+
+
       if (lprint) then 
         write (*,*) 'Processor:',fg_rank,' CG group',kolor,&
        ' absolute rank',myrank,&