range of arrays: MaxProcs to NProcs

[unres4.git] / source / unres / MCM_MD.f90

diff --git a/source/unres/MCM_MD.f90 b/source/unres/MCM_MD.f90
index afb31bb..aa3f3fe 100644 (file)
--- a/source/unres/MCM_MD.f90
+++ b/source/unres/MCM_MD.f90
@@ -1034,8 +1034,8 @@
 
       use energy_data
       use geometry_data
-      use MPI_data, only:ifinish,nctasks,WhatsUp,MyID
-      use control_data, only:refstr,MaxProcs
+      use MPI_data, only:ifinish,nctasks,WhatsUp,MyID,NProcs
+      use control_data, only:refstr !,MaxProcs
       use io_base
       use control, only:tcpu,ovrtim
       use regularize_, only:fitsq
@@ -1067,12 +1067,12 @@
       real(kind=8) :: przes(3),obr(3,3)
       real(kind=8),dimension(6*nres) :: varold !(maxvar) (maxvar=6*maxres)
       logical :: non_conv
-      integer,dimension(-1:MaxMoveType+1,0:MaxProcs-1) :: moves1,moves_acc1    !(-1:MaxMoveType+1,0:MaxProcs-1)
+      integer,dimension(-1:MaxMoveType+1,0:NProcs-1) :: moves1,moves_acc1      !(-1:MaxMoveType+1,0:MaxProcs-1)
 #ifdef MPL
-      real(kind=8) :: etot_temp,etot_all(0:MaxProcs)
+      real(kind=8) :: etot_temp,etot_all(0:NProcs) !(0:MaxProcs)
       external d_vadd,d_vmin,d_vmax
       real(kind=8),dimension(-max_ene:max_ene) :: entropy1,nhist1
-      integer,dimension(nres*(MaxProcs+1)) :: nbond_move1,nbond_acc1
+      integer,dimension(nres*(NProcs+1)) :: nbond_move1,nbond_acc1 !(nres*(MaxProcs+1)) 
       integer,dimension(2) :: itemp
 #endif
       real(kind=8),dimension(6*nres) :: var_lowest     !(maxvar) (maxvar=6*maxres)