small changes in cation cation interactions and wham correction

[unres4.git] / source / wham / enecalc.F90

diff --git a/source/wham/enecalc.F90 b/source/wham/enecalc.F90
index c698883..f1546ad 100644 (file)
--- a/source/wham/enecalc.F90
+++ b/source/wham/enecalc.F90
@@ -1484,6 +1484,11 @@ write(iout,*)"end of store_parm"
           enddo
           write(iout,*) "before gather Fdimless"
           write(iout,*) scount(me),scount_(0),idispl(0)
+          write (iout,*) "added update of scount_"
+         call MPI_AllGather( scount(me), 1, MPI_INTEGER, scount_(0), 1, &
+        MPI_INTEGER, WHAM_COMM, IERROR)
+
+
           call MPI_Gatherv(Fdimless_(1),scount(me),&
            MPI_REAL,Fdimless(1),&
            scount_(0),idispl(0),MPI_REAL,Master,&