X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Fcontact.f;h=ead03326b5f54aa63298376cb6071206ce63775f;hb=43dfdc33f5b338546258b5a882326f97a76b5bd4;hp=f986380875bc17bfc2c3c966185ad82c98c8663f;hpb=68aa1d135805a14583695611acfcf637748b4466;p=unres.git

diff --git a/source/unres/src-HCD-5D/contact.f b/source/unres/src-HCD-5D/contact.f
index f986380..ead0332 100644
--- a/source/unres/src-HCD-5D/contact.f
+++ b/source/unres/src-HCD-5D/contact.f
@@ -137,7 +137,7 @@ c     print *,'nnt=',nnt,' nct=',nct
           i2=icont(2,i)
           it1=itype(i1)
           it2=itype(i2)
-          write (iout,'(i5,2x,a,i5,2x,a,i4)') 
+          write (iout,'(i10,2x,a,i7,2x,a,i7)') 
      &     i,restyp(it1),i1,restyp(it2),i2 
         enddo
       endif
@@ -184,8 +184,8 @@ c      enddo
         ii1=iharp(3,i)
         jj1=iharp(4,i)
         write (iout,*)
-        write (iout,'(20(a,i5,1x))') (restyp(itype(k)),k,k=i1,ii1)
-        write (iout,'(20(a,i5,1x))') (restyp(itype(k)),k,k=j1,jj1,-1)
+        write (iout,'(20(a,i7,1x))') (restyp(itype(k)),k,k=i1,ii1)
+        write (iout,'(20(a,i7,1x))') (restyp(itype(k)),k,k=j1,jj1,-1)
 c        do k=jj1,j1,-1
 c         write (iout,'(a,i3,$)') restyp(itype(k)),k
 c        enddo