wham with mpich2 (no aliasing) and new dimenstions

[unres.git] / source / cluster / wham / src / wrtclust.f

diff --git a/source/cluster/wham/src/wrtclust.f b/source/cluster/wham/src/wrtclust.f
index 8303f0c..6012b05 100644 (file)
--- 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