Adam's unres update

[unres.git] / source / unres / src-HCD-5D / contact.f

diff --git a/source/unres/src-HCD-5D/contact.f b/source/unres/src-HCD-5D/contact.f
index f986380..ead0332 100644 (file)
--- 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