parameter (MaxBinRms=100,MaxBinRgy=100)
integer MaxHdim
c parameter (MaxHdim=200000)
+<<<<<<< HEAD
parameter (MaxHdim=200)
integer maxinde
parameter (maxinde=200)
+=======
+ parameter (MaxHdim=100)
+ integer maxinde
+ parameter (maxinde=100)
+>>>>>>> e183793... Added src_MD-M-newcorr (Adasko's source) and src-NEWSC of WHAM (with Momo's SCSC potentials)
#ifdef MPI
include "mpif.h"
include "COMMON.MPI"
integer ilen
external ilen
+<<<<<<< HEAD
+=======
+ write (iout,*) "Enter WHAM_calc"
+ call flush(iout)
+>>>>>>> e183793... Added src_MD-M-newcorr (Adasko's source) and src-NEWSC of WHAM (with Momo's SCSC potentials)
write(licz2,'(bz,i2.2)') islice
nbin1 = 1.0d0/delta
write (iout,'(//80(1h-)/"Solving WHAM equations for slice",
#endif
return
+<<<<<<< HEAD
+=======
+>>>>>>> e183793... Added src_MD-M-newcorr (Adasko's source) and src-NEWSC of WHAM (with Momo's SCSC potentials)
end