Merge branch 'homology' of mmka.chem.univ.gda.pl:unres into homology

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

diff --git a/source/cluster/wham/src/parmread.F b/source/cluster/wham/src/parmread.F
index b1a9a32..8ffeeb0 100644 (file)
--- a/source/cluster/wham/src/parmread.F
+++ b/source/cluster/wham/src/parmread.F
@@ -246,7 +246,11 @@ C
           enddo
         enddo
       enddo
+#ifdef AIX
+      call flush_(iout)
+#else
       call flush(iout)
+#endif
       endif
 #endif