range of arrays: MaxProcs to NProcs

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

diff --git a/source/unres/muca_md.f90 b/source/unres/muca_md.f90
index 79189a2..b490c4f 100644 (file)
--- a/source/unres/muca_md.f90
+++ b/source/unres/muca_md.f90
@@ -237,7 +237,7 @@
 !-----------------------------------------------------------------------------
       subroutine read_muca
 
-      use control_data, only: modecalc,maxprocs
+      use control_data, only: modecalc !,maxprocs
       use MD_data
       use REMD_data
       use MPI_data
@@ -252,7 +252,7 @@
       real(kind=8) :: yp1,ypn,yp,x,y,muca_ene !,muca_factor
 !el local variable
       real(kind=8) :: emuca_alloc(4*maxres),nemuca_alloc(4*maxres)
-      integer(kind=2) :: i2rep_alloc(0:maxprocs)
+      integer(kind=2) :: i2rep_alloc(0:Nprocs) !(0:maxprocs)
       integer :: i,k,j
 !     real(kind=8) :: var,ene
 
@@ -325,7 +325,7 @@
 !-----------------------------------------------------------------------------
       subroutine print_muca
 
-      use control_data, only: modecalc,mucadyn,maxprocs
+      use control_data, only: modecalc,mucadyn !,maxprocs
       use MD_data
       use REMD_data
       use MPI_data
@@ -338,7 +338,7 @@
 !      include 'COMMON.SETUP'
 !      include 'COMMON.IOUNITS'
       real(kind=8) :: yp1,ypn,yp,x,y  !,muca_ene,muca_factor
-      real(kind=8) :: dummy(maxprocs)
+      real(kind=8) :: dummy(Nprocs) !(maxprocs)
 !el local variables
       integer :: i,j,k