X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fcontact.f;h=cc4e0b7ae941d59a250079c052b7d065d40d8a66;hb=9ab6a6c94ffa93357b777d7a01615bc2cb964622;hp=24b11d6311fced7cdf1f2e125016dd601e9cc45c;hpb=b4662dbad52b91578a5cda22124037728093c6ed;p=unres.git

diff --git a/source/unres/src_MD-M/contact.f b/source/unres/src_MD-M/contact.f
index 24b11d6..cc4e0b7 100644
--- a/source/unres/src_MD-M/contact.f
+++ b/source/unres/src_MD-M/contact.f
@@ -175,7 +175,7 @@ c      do i=1,nharp
 c            write (iout,*)'i',i,' iharp',(iharp(k,i),k=1,4)
 c      enddo
       if (lprint) then
-      write (iout,*) "Hairpins:"
+      write (iout,*) "Hairpins:",nharp
       do i=1,nharp
         i1=iharp(1,i)
         j1=iharp(2,i)