X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc%2Fwork_partition.F;h=a7a3cd54142a23d531b4d09c01e5e507b89c0eb8;hb=d1e105b8a901e674454eb39e436c4e2092d6a69a;hp=e31db534b9475c1d08aaec70b039de172086f6ac;hpb=478a9d9a1c99eb3f4bc4ca676ff3162bdd01d633;p=unres.git

diff --git a/source/cluster/wham/src/work_partition.F b/source/cluster/wham/src/work_partition.F
index e31db53..a7a3cd5 100644
--- a/source/cluster/wham/src/work_partition.F
+++ b/source/cluster/wham/src/work_partition.F
@@ -68,7 +68,11 @@ c        print *,"N",n," NCON_WORK",ncon_work
         if (N.ne.ncon_work) then
           write (iout,*) "!!! Checksum error on processor",me,
      &      n,ncon_work
-          call flush(iout)
+#ifdef AIX
+      call flush_(iout)
+#else
+      call flush(iout)
+#endif
           call MPI_Abort( MPI_COMM_WORLD, Ierror, Errcode )
         endif