all CMakeLists.txt updated with corrected names and directories

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

diff --git a/source/cluster/wham/src/work_partition.F b/source/cluster/wham/src/work_partition.F
index e31db53..a7a3cd5 100644 (file)
--- 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