Fixes to compile WHAM and CLUSTER on AIX (nostromo.icm.edu.pl)

[unres.git] / source / cluster / wham / src / main_clust.F

diff --git a/source/cluster/wham/src/main_clust.F b/source/cluster/wham/src/main_clust.F
index f4d63f8..b5124ac 100644 (file)
--- a/source/cluster/wham/src/main_clust.F
+++ b/source/cluster/wham/src/main_clust.F
@@ -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