X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Fcontact.f;h=f986380875bc17bfc2c3c966185ad82c98c8663f;hb=a9f1b123976804db7a99d09f2f43296d9fd1cf0d;hp=695446f16f0dad757ce0d58a64a0f7e4e0132eb7;hpb=5673961eec8f29bcff4be10a73b31f835ac927db;p=unres.git

diff --git a/source/unres/src-HCD-5D/contact.f b/source/unres/src-HCD-5D/contact.f
index 695446f..f986380 100644
--- a/source/unres/src-HCD-5D/contact.f
+++ b/source/unres/src-HCD-5D/contact.f
@@ -38,7 +38,7 @@ c         print *,'rcomp=',rcomp,' dist=',dist(nres+i,nres+j)
           i2=icont(2,i)
           it1=itype(i1)
           it2=itype(i2)
-          write (iout,'(i3,2x,a,i4,2x,a,i4)') 
+          write (iout,'(i5,2x,a,i5,2x,a,i4)') 
      &     i,restyp(it1),i1,restyp(it2),i2 
         enddo
       endif
@@ -137,7 +137,7 @@ c     print *,'nnt=',nnt,' nct=',nct
           i2=icont(2,i)
           it1=itype(i1)
           it2=itype(i2)
-          write (iout,'(i3,2x,a,i4,2x,a,i4)') 
+          write (iout,'(i5,2x,a,i5,2x,a,i4)') 
      &     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,i3,1x))') (restyp(itype(k)),k,k=i1,ii1)
-        write (iout,'(20(a,i3,1x))') (restyp(itype(k)),k,k=j1,jj1,-1)
+        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)
 c        do k=jj1,j1,-1
 c         write (iout,'(a,i3,$)') restyp(itype(k)),k
 c        enddo