write (iout,'(2i5,f10.5)') i,list_conf(i),totfree(i)
enddo
#endif
+#ifdef AIX
+ call flush_(iout)
+#else
call flush(iout)
+#endif
CALL HC(N,M,LEN,IOPT,IA,IB,CRIT,MEMBR,NN,DISNN,FLAG,DISS)
LEV = N-1
write (iout,*) "n",n," ncon_work",ncon_work," lev",lev