X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc%2Fwrtclust.f;h=6012b05ddb3e8bfcc23082f3b2ee45daf11747ed;hb=64b0c5822d976031125efd68857ec66056ff4a0e;hp=8303f0c0b6c073bf8a8368382fd0adda488bf067;hpb=9eac8e3582cd09922d0d2c4142adcb85232e9c77;p=unres.git

diff --git a/source/cluster/wham/src/wrtclust.f b/source/cluster/wham/src/wrtclust.f
index 8303f0c..6012b05 100644
--- a/source/cluster/wham/src/wrtclust.f
+++ b/source/cluster/wham/src/wrtclust.f
@@ -263,9 +263,9 @@ c create InsightII command file for their displaying in different colors
   200 FORMAT (/'FAMILY ',I4,' WITH TOTAL FREE ENERGY',1pE15.5,
      & ' CONTAINS ',I4,' CONFORMATION(S): ')
 c 300 FORMAT ( 8(I4,F6.1))
-  300 FORMAT (5(I4,1pe12.3))
+  300 FORMAT (5(I6,1pe12.3))
   400 FORMAT (//'ASSIGNMENT OF CONSECUTIVE CONFORMATIONS TO FAMILIES:')
-  500 FORMAT (8(2I4,2X)) 
+  500 FORMAT (8(I6,I4,2X)) 
   600 FORMAT ('REMARK FAMILY',I4,' CONFORMATION',I4,' ENERGY ',E15.6)
       RETURN
       END