Merge branch 'UCGM' of mmka.chem.univ.gda.pl:unres4 into UCGM

[unres4.git] / source / cluster / probabl.F90

diff --git a/source/cluster/probabl.F90 b/source/cluster/probabl.F90
index 4e5d092..fd7f817 100644 (file)
--- a/source/cluster/probabl.F90
+++ b/source/cluster/probabl.F90
@@ -245,6 +245,7 @@
 !        write (iout,*) "evdw1", wvdwpp,evdw1
 !        write (iout,*) "ebe",ebe,wang
 !#endif        
+        write(iout,*) "nss",nss
         Fdimless(i)=beta_h(ib)*etot+entfac(ii)
         totfree(i)=etot
 #ifdef DEBUG