Fixes to compile WHAM and CLUSTER on AIX (nostromo.icm.edu.pl)

[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 656d219..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
 
@@ -502,6 +506,7 @@ cc maxinter is maximum interaction sites
 
       if (lprint) then
         write (iout,'(/a/)') 'Torsional constants:'
+        do l=1,maxinter
         do i=1,nsccortyp
           do j=1,nsccortyp
             write (iout,*) 'ityp',i,' jtyp',j
@@ -517,6 +522,7 @@ cc maxinter is maximum interaction sites
             enddo
           enddo
         enddo
+        enddo
       endif
 
 C