some corrections to previous commit from nostromo

[unres.git] / source / wham / src / molread_zs.F

diff --git a/source/wham/src/molread_zs.F b/source/wham/src/molread_zs.F
index 34b3210..a98f47c 100644 (file)
--- a/source/wham/src/molread_zs.F
+++ b/source/wham/src/molread_zs.F
@@ -862,7 +862,11 @@ cd      write(iout,*) "waga_theta",waga_theta,"waga_d",waga_d
      &   1.0d0/dsqrt(sigma_d(ki,i)),ki=1,constr_homology)
        enddo
       endif
+#ifdef AIX
       call flush_(iout)
+#else 
+      call flush(iout)
+#endif
 c -----------------------------------------------------------------
       return
       end