X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc%2Fmain_clust.F;h=b5124ac113153efc2a7a3bebfe91817222120fb6;hb=08be946cb0f8d56d14ca733827f403596f25db3d;hp=4b6478a8efb0d5af07ba120d8a7ca657e4ce60b9;hpb=f19e9bc0fb51e29ecaa5427e39ebb182bd578a02;p=unres.git

diff --git a/source/cluster/wham/src/main_clust.F b/source/cluster/wham/src/main_clust.F
index 4b6478a..b5124ac 100644
--- a/source/cluster/wham/src/main_clust.F
+++ b/source/cluster/wham/src/main_clust.F
@@ -59,9 +59,9 @@ C
         stop
       endif
 #endif
-
       call initialize
       call openunits
+      call cinfo
       call parmread
       call read_control
       call molread
@@ -227,7 +227,11 @@ C
         write (iout,'(2i5,f10.5)') i,list_conf(i),totfree(i)
       enddo
 #endif
+#ifdef AIX
+      call flush_(iout)
+#else
       call flush(iout)
+#endif
       CALL HC(N,M,LEN,IOPT,IA,IB,CRIT,MEMBR,NN,DISNN,FLAG,DISS)
       LEV = N-1
       write (iout,*) "n",n," ncon_work",ncon_work," lev",lev