X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fcontrol.F90;fp=source%2Funres%2Fcontrol.F90;h=db5413f465b6a4fdeacefe9b2ca37e165e2ae217;hb=aeaa0a995cbe76e90e4701f7df3aa7cdd17c8555;hp=0444b441ddbf59750c07102a614af2900c3eaa5e;hpb=3026c1b94ea7f088eecd869cd4042916dd260f3d;p=unres4.git

diff --git a/source/unres/control.F90 b/source/unres/control.F90
index 0444b44..db5413f 100644
--- a/source/unres/control.F90
+++ b/source/unres/control.F90
@@ -721,14 +721,14 @@
         write (iout,'(i3,2(2x,2i3))') &
        i,(istart(i,iint),iend(i,iint),iint=1,nint_gr(i))
       enddo
-      endif
+!      endif
 !      lprint=.false.
       write (iout,'(a)') 'Interaction array2:' 
       do i=iatsc_s_nucl,iatsc_e_nucl
         write (iout,'(i3,2(2x,2i4))') &
        i,(istart_nucl(i,iint),iend_nucl(i,iint),iint=1,nint_gr_nucl(i))
       enddo
-
+      endif
       ispp=4 !?? wham ispp=2
 #ifdef MPI
 ! Now partition the electrostatic-interaction array