X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Fcontact.f;h=ebd1126e2dceedb4973f1eba2ee783106d979c0a;hb=66980167b703e10af937168c72d113e607e4323d;hp=a244d860c0c95ff73829538df4d7c22f4a71cbfc;hpb=c131b73555ef3436ee4f01794133097fd341d3b6;p=unres.git

diff --git a/source/unres/src_MD/contact.f b/source/unres/src_MD/contact.f
index a244d86..ebd1126 100644
--- a/source/unres/src_MD/contact.f
+++ b/source/unres/src_MD/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)