projects
/
unres.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
remd random start loop until low ene
[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